delphi 文件拖拽获取路径（一）支持单文件（笔记）

首先先建立工程然后添加一个label1控件，用来存放路径。
拖拽文件需要用到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
  buffer:array[0..1024] of Char;
begin
inherited;
buffer[0]:=#0;
DragQueryFile(Msg.WParam,0,buffer,sizeof(buffer)); //获取拖入文件名称
label1.Caption:=PChar(@buffer); //字符数组转换成字符串
end;

运行结果

源码下载