segunda-feira, 14 de setembro de 2009

Pegando o path de um arquivo arrastado do explorer

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;

Nenhum comentário:

Postar um comentário