Per Drag and Drop Datei einfügen.

[SirThornberry]

Delphi-Quellcode:

procedure WMDROPFILES (var Msg: TMessage); message WM_DROPFILES;
[...]
  DragAcceptFiles(form1.handle, True); 
[...]
procedure TForm1.WMDROPFILES (var Msg: TMessage);
var i, anzahl, size, lastcount, wdh1: integer;
    Dateiname: PChar;
    tmpLied: PTLied;
begin
  inherited;
  Dateiname := '';
  anzahl := DragQueryFile(Msg.WParam, $FFFFFFFF, Dateiname, 255);
  for i := 0 to (anzahl - 1) do
  begin
    size := DragQueryFile(Msg.WParam, i , nil, 0) + 1;
    Dateiname:= StrAlloc(size);
    DragQueryFile(Msg.WParam,i , Dateiname, size);
    //dateiname auswerten (kann auch ein ordner sein)

    StrDispose(Dateiname);
  end;


  DragFinish(Msg.WParam);

end;