Delphi 拖放文件编程（覆盖WM_DROPFILES消息）

提示：扫一扫查出行
【扫一扫了解最新限行尾号】
复制提示

unit Unit1;

interface

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

type
TForm1 = class(TForm)
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
private
    { Private declarations }
public
     procedure WMDropFiles(var message:TMessage);message WM_DROPFILES;
    { Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
procedure tform1.WMDropFiles(var message:TMessage);
//响应拖动事件，讲文件的路径放置到Memo控件中
var
   p:array[0..254] of char;
   i:word;
begin
   inherited;
   memo1.lines.clear;
   i:=dragqueryfile(message.wparam,$ffffffff,nil,0);
   caption :=inttostr(i);
   for i:=0 to i-1 do
   begin
      dragqueryfile(message.wparam,i,p,255);
      //取得文件路径
      memo1.lines.Add(strpas(p));
   end;
end;