设置可以从Windows资源管理器拖文件到 Form 上的 Momo

{
如何在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;

本文地址：http://com.8s8s.com/it/it4322.htm