Buscar por:

Pegando o path de um arquivo arrastado do explorer

Código

Uses 

  StdCtrls, ShellApi; 

  private 

  procedure WMDropFiles(var Msg : TWMDropFiles); message WM_DROPFILES; 

procedure TForm1.FormCreate(Sender: TObject); 

begin 

  DragAcceptFiles(Handle, True); 

end; 

procedure TForm1.WMDropFiles(var Msg: TWMDropFiles); 

var 

  i : Integer; 

  NumArqs : Integer; 

  NomeArq : String; 

begin 

  SetLength(NomeArq,255); 

  NumArqs := DragQueryFile(Msg.Drop,$FFFFFFFF,PChar(NomeArq),255); 

  for i := 0 to NumArqs-1 do begin 

  DragQueryFile(Msg.Drop,i,PChar(NomeArq),255); 

  Listbox1.Items.Add(NomeArq); 

  end; 

end;