{ На эту форму можно бросить файл (например из проводника)
и он будет открыт }
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs,StdCtrls,
ShellAPI {обязательно!};
type
TForm1 = class(TForm)
Memo1: TMemo;
FileNameLabel: TLabel;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
protected
{Это и есть самая главная процедура}
procedure WMDropFiles(var Msg: TMessage); message wm_DropFiles;
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.WMDropFiles(var Msg: TMessage);
var
Filename: array[0 .. 256] of Char;
Count : integer;
begin
{ Получаем количество файлов (просто пример) }
nCount := DragQueryFile( msg.WParam, $FFFFFFFF,
acFileName, cnMaxFileNameLen);
{ Получаем имя первого файла }
DragQueryFile( THandle(Msg.WParam),
0, { это номер файла }
Filename,SizeOf(Filename) ) ;
{ Открываем его }
with FileNameLabel do begin
Caption := LowerCase(StrPas(FileName));
Memo1.Lines.LoadfromFile(Caption);
end;
{ Отдаем сообщение о завершении процесса }
DragFinish(THandle(Msg.WParam));
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
{ Говорим Windows, что на нас можно бросать файлы }
DragAcceptFiles(Handle, True);
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
{ Закрываем за собой дверь золотым ключиком}
DragAcceptFiles(Handle, False);
end;
end.
Источник:
Программа Delphi, позволяющая пользователям опускать файлы на форму и автоматически открывать их в компоненте Memo.
Вот шаг за шагом, как она работает:
Процедура WMDropFiles вызывается, когда пользователь опускает файлы на форму. Эта процедура получает параметр TMessage, содержащий информацию о опущенных файлах.
Программа использует функцию DragQueryFile для получения количества и имен опущенных файлов.
Для каждого файла программа создает новый лист табличной формы и устанавливает его заголовок в имя файла. Она также загружает содержимое файла в компонент Memo на этом листе.
Программа использует функцию DragFinish для указания, что операция опускания файлов завершена.
Процедура FormCreate вызывается при создании формы и настраивает форму для принятия опущенных файлов, вызвав функцию DragAcceptFiles с параметром True.
Процедура FormDestroy вызывается при уничтожении формы и настраивает форму для прекращения принятия опущенных файлов, вызвав функцию DragAcceptFiles с параметром False.
Обратите внимание, что это только пример кода, и вы можете захотеть изменить его, чтобы соответствовать вашим конкретным потребностям. Например, вы можете захотеть обрабатывать ошибки более надежно или предоставлять дополнительную обратную связь пользователю.
Также помните, что для работы этого кода вам нужно добавить компонент Memo на вашу форму и установить его имя в "Memo1".
Статья описывает способ перетаскивания файлов в программу на языке Delphi и обработку полученных файлов с помощью функции DragQueryFile, а также использование сообщения WM_DROPFILES для открытия файлов.
Комментарии и вопросы
Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS
Telegram-канал