在uses里引用ShellAPI单元；

在Form的OnCreate事件里添加以下语句：

DragAcceptFiles(Self.Handle, True);
这里Self.Handle可以换成其它控件的句柄，如Self.Memo1.Handle；

然后编写文件拖拽功能要实现的目的：

procedure DragDropFiles(var msg : TWMDropFiles);  // 文件拖拽
message WM_DROPFILES;
下面是事件实现的关键代码：

FileName : array [0..255] of Char;
i, iCount   : Integer;
iCount := DragQueryFile(msg.Drop, $FFFFFFFF, nil, 0);    // 文件数量
DragQueryFile(msg.Drop, i - 1, @FileName, SizeOf(FileName));
DragFinish(msg.Drop);

---------------------
作者：有个家伙喜欢代码
来源：CSDN
原文：https://blog.csdn.net/u012366767 ... 872?utm_source=copy
版权声明：本文为博主原创文章，转载请附上博文链接！

奈斯