支持文件拖放关键在于两点：
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的转换！

以下为程序片段

type
TForm1 = class(TForm)

btnEnableDragFile: TButton;

procedure btnEnableDragFileClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure DragFileProc(var Message: TMessage);
end;

implementation

var OLDWndProc:TWndMethod;

procedure TForm1.btnEnableDragFileClick(Sender: TObject);
begin
DragAcceptFiles(self.MemoDrag.Handle,true);
OLDWndProc:=self.MemoDrag.WindowProc;
//保存原来的WindowProc
self.MemoDrag.WindowProc:=self.DragFileProc;
//设置新的WindowProc
end;

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;