delphi 文件拖拽获取路径（二）支持多文件（笔记）

首先先建立工程然后添加一个memo控件，用来存放路径。
拖拽文件需要用到shellAPI所以，在单元里面需要添加shellAPI






好了我们来看实现过程


1.  添加单元  shellAPI


2.  在过程里 procedure TForm1.FormCreate(Sender: TObject);


  加入此函数DragAcceptFiles(Form1.Handle,true);   //注册拖放文件


3. 在  public 里声明
  procedure TFfile(var Msg:TMessage);message WM_DROPFILES;


4.函数实现
procedure TForm1.TFfile(var Msg:TMessage);
var
  FilesCount: Integer;// 文件总数
  i: Integer;
  buffer:array[0..1024] of Char;
begin
inherited;
 try
buffer[0]:=#0;
  FilesCount:=DragQueryFile(Msg.WPa