Meine Drag'n'Drop-Funktion ergänzen

[AlexII]

Hi,

ich habe wie folgt in mein Prog ne Drag'n'Drop Funktion eingebaut:

Delphi-Quellcode:

implementation

uses ShellAPI;

procedure TForm1.FormCreate(Sender: TObject);
begin
  DragAcceptFiles(Form1.Handle, true);
end;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
  protected
    procedure WMDROPFILES(var Msg: TMessage); message WM_DROPFILES;
  private
...

procedure TForm1.WMDROPFILES(var Msg: TMessage);
begin
showmessage('Ja es hat geklappt, hier lade ich die Daten');
end;

Jetzt mein Problem: damit ich die Daten, der auf das Prog zu ziehender Datei, laden kann, muss ich den Datentyp der Datei wissen. Wie kriege ich das raus, wer kann mir das sagen?