{Так можно заставить окно принимать файлы, перетаскиваемые из проводника}{ОБЯЗАТЕЛЬНО ПОМЕСТИТЕ В СЕКЦИЮ PRIVATE СТРОКИ
procedure CreateParams(var Params: TCreateParams); override;
procedure WMDropFiles(var Message: TWMDropFiles); message WM_DROPFILES;
и не забудьте - ShellAPI поместить в uses}procedure TForm1.CreateParams(var Params: TCreateParams);
begininherited
CreateParams(Params);
{сделаем окно способным принимать файлы}
Params.ExStyle := Params.ExStyle or WS_EX_ACCEPTFILES;
end;
procedure TForm1.WMDropFiles(varMessage: TWMDropFiles);
var
aFile: array[0..255] of Char;
//FilesCount : Integer;begininherited;
{так можно узнать сколько файлов перетягивается}// FilesCount := DragQueryFile(Message.drop, $FFFFFFFF, nil, 0);begin{здесь можно поставить цикл открытия всех перетаскиваемых файлов
for N := 0 to FilesCount - 1 do DragQueryFile(Message.drop, N, aFile, 256);
а в данном случае открывается только первый файл в списке}
DragQueryFile(Message.drop, 0, aFile, 256);
Memo1.Lines.LoadFromFile(aFile);
end;
DragFinish(Message.Drop);
end;
procedure TForm1.FormCreate(Sender: TObject); {Form1.OnCreate}begin{сделаем окно неравнодушным к пролетающим над ним файлам}
DragAcceptFiles(Handle, True);
end;
В статье описывается способ создания приложения на языке Pascal с использованием Win95 Explorer для перетаскивания и обработки файлов.
Комментарии и вопросы
Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.