实现文件拖放

Delphi中实现文件拖放

首先在uses中加入ShellAPI   再在窗体 TForm1.Create事件中加入代码： DragAcceptFiles(self.Handle,true);//设定接受拖动事件的句柄为本窗口   再在TForm1的Public中写： Procedure DragFiles(var Msg:TMessage);Message WM_DROPFILES;//响应文件拖动事件     再写上 TForm1.DragFiles过程的代码:   procedure TForm1.DragFiles(var msg:TMessage); var p:array[0..254] of char; i:word; begin inherited; // i:=DragQueryFile(Msg.WParam,$FFFFFFFF,nil,0);//这一句结果i=拖放文件的总个数 // for i:=0 to i-1 do // begin DragQueryFile(Msg.WParam,0,p,255);//将拖放的第i个文件的文件路径拷到P中,这里改i为0，就是只算第一个文件的 Edit1.Text:=StrPas(p); //end; end;