在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
原文：blog.csdn.net/u012366767 …
版权声明：本文为博主原创文章，转载请附上博文链接！
更多学习资料可关注：annalin1203获取
