Primero hay que agregar el unit "ShellApi", poner un TListBox y hacer lo siguiente:
Declara este procedure en la seccion private de tu form
delphi
procedure WMDropFiles (var Msg: TWMDropFiles); message WM_DropFiles;
y su implementation:
delphi
procedure TForm1.WMDropFiles (var Msg: TWMDropFiles); var aName: array [0..Max_Path] of char; iFileCount,i: integer; begin FileCount := DragQueryFile(Msg.Drop,$FFFFFFFF,aName,MAX_PATH); for i := 0 to iFileCount-1 do begin DragQueryFile(Msg.Drop,i,aName,MAX_PATH); ListBox1.Items.Add(aName); end; DragFinish(msg.Drop); end;
Este código va en el OnCreate de la form:
delphi
procedure TForm1.FormCreate(Sender: TObject); begin DragAcceptFiles(Handle,True) ; end;
Es algo sencillo como antes dije pero espero les sirva, saludos