{
如何在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的转换！
}