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

← →
Sourse (2004-08-06 16:00) [0]

Подскажите пожалуйста, как можно открыть файл путём перетаскивания этого файла курсором из проводника прямо в программу?

← →
VMcL © (2004-08-06 16:03) [1]

FAQ:
http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=1017056225&n=15
http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=988619923&n=15

← →
Кириешки © (2004-08-06 16:06) [2]

public
procedure CreateParams(var Params: TCreateParams); override;
procedure WMDropFiles(var Message: TWMDropFiles); message WM_DROPFILES;

procedure TForm1.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.ExStyle := Params.ExStyle or WS_EX_ACCEPTFILES;
end;

procedure TForm1.WMDropFiles(var Message: TWMDropFiles);
var aFile: array [0..255] of Char;
n, cnt: Integer;
begin
inherited;
cnt := DragQueryFile(Message.drop, $FFFFFFFF, nil, 0);
for n := 0 to cnt - 1
do
begin
DragQueryFile(Message.drop, n, aFile, 256); // get the FileName (max characters 255 + #0)
(. . . . . . . . .)
end;
DragFinish(Message.Drop); // Free resources
end;

Посмотри на torry.net - я видел там специальные компоненты для организвания Drag&Drop, в т.ч. и для этой задачи.

Как перетаскивать файлы из проводника в программу Найти похожие ветки