Главная / DELPHI / Часто задаваемые вопросы и ответы на них / Win Api / Как перетащить файлы из проводника в мою программу

Как перетащить файлы из проводника в мою программу


TMainForm = class(TForm)
 ...
private
 procedure WMDROPFILES(var Message: TWMDROPFILES); message
WM_DROPFILES;
 procedure ProcessFile(Filename: string);
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
 DragAcceptFiles(MainForm.Handle, TRUE); // enable drag&drop
end;

procedure TMainForm.ProcessFile(Filename: string);
begin
// any actions
end;

procedure TMainForm.WMDROPFILES(var Message: TWMDROPFILES);
var
 Files  : Longint;
 I      : Longint;
 Buffer : array[0..MAX_PATH] of Char;
begin
 Files := DragQueryFile(Message.Drop,$FFFFFFFF,nil,0); // Get count of
files
 for I := 0 to Files - 1 do begin
   DragQueryFile(Message.Drop,I,@Buffer,SizeOf(Buffer)); // Get N file
   ProcessFile(Buffer); // do something with the file
 end;
 DragFinish(Message.Drop); // end drag loop
end;


Sincerely yours,
Anatoly Podgoretsky

Copyright ©   "Мастера DELPHI"   E-mail:   delphi@mastak.com  http://www.delphimaster.ru

Источник получения информации: http://www.delphimaster.ru