{
如何在Delphi程序中支持文件拖放
支持文件拖放关键在于两点：
1、使程序能接收WM_DROPFILES 消息；
2、在WM_DROPFILES 消息的响应程序中取得被拖放的文件名，然后进行相应处理。
使程序能接收WM_DROPFILES 消息
首先，需要调用WINAPI DragAcceptFiles(handle,True);其中的handle为要接收
WM_DROPFILES消息的控件的handle。例如，我们要让Memo1接收该消息，则
调用形式为DragAcceptFiles(Form1.Memo1.handle,True);
其次，要在收到WM_DROPFILES消息时做处理，需要用自己的代码替换该控件的
WindowProc方法。在替换前，要保存原来的WindowProc方法以便处理其他
消息。为此，我们定义一个全程变量 OldWndProc:TWndMethod保存原来的
WindowProc方法;再在窗体定义的Public段定义了一个方法
procedure DragFileProc(var Message: TMessage);作为新的WindowProc方法。
在Unit的implementation 段内写下DragFileProc的完整代码，当消息为其他
消息地调用OldWndProc来处理，当消息为WM_DROPFILES时，作相应处理。
取得被拖放的文件名，然后进行相应处理
在WM_DROPFILES消息的响应程序中，先调用DragQueryFile(Message.wParam，$FFFFFFFF,nil,0)
返回值为拖放的文件总数。再循环调用DragQueryFile(Message.wParam,i,buf,len);取得拖放文件全名。
i为0到拖放的文件总数减1 的值，buf为Pchar型，是存放文件名的缓冲区，len为文件名缓冲区长度。
至于取得文件名后的处理，就悉听尊便了。一定要注意Pchar和String的转换！
}
implementation
var OLDWndProc:TWndMethod;
{$R *.DFM}
procedure TForm1.DragFileProc(var Message:TMessage) ;
var i:word;
p:array[0..254]of char;
begin
if Message.Msg=WM_DropFiles then
begin
//self.MemoDrag.Clear;
i:=DragQueryFile(Message.WParam,$FFFFFFFF,nil,0);
//取得拖放文件总数
for i:=0 to i-1 do
begin
DragQueryFile(Message.WParam,i,p,255);
//取得拖放文件名
self.MemoDrag.Lines.add(StrPas(p));
//对文件的处理
end;
end else //其他消息，调用原来的处理程序
OLDWndProc(Message);
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
DragAcceptFiles(self.MemoDrag.Handle,true);
OLDWndProc:=self.MemoDrag.WindowProc;
//保存原来的WindowProc
self.MemoDrag.WindowProc:=self.DragFileProc;
//设置新的WindowProc
end;
本类阅读TOP10