首先先建立工程然后添加一个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); //字符数组转换成字符串