Delphi中如何实现多文件拖放并获取其路径示例？

本文共计292个文字，预计阅读时间需要2分钟。

plaintextUnit Unit1; Interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ShellAPI;type TForm1=class(TForm) Memo1: TMemo; procedure FormCreate(Sender: TObject); private // 当文件拖拽至窗口 end;

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ShellAPI;

type
TForm1 = class(TForm)
Memo1: TMemo;
procedure FormCreate(Sender: TObject);
private
// 当文件拖放至窗体中后，系统将向窗体发送WM_DRAPFILES事件，
// 因此我们可以在WMDROPFILES过程中获取文件总数及文件名。
procedure WMDROPFILES(var Msg: TMessage);message WM_DROPFILES;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
// 当程序启动时，启用文件拖放功能。当第二个参数True时，
// 启用文件拖放，如果为False则禁止文件拖放。