拖拽窗体问题？
procedure TForm1.DropFiles(var Msg: TMessage);
SetWP('.....'); //在....。如何写才能获取拖拽到窗体图片的全路径
DragFinish(Msg.WParam);
end;

[解决办法]
要获得当前拖拽的文件的完整文件名（含 路径 ），只需要一个函数：
UINT DragQueryFile(
HDROP hDrop,
UINT iFile,
LPTSTR lpszFile,
UINT cch
);
参数解释：
hDrop: HDROP标识符，即响应函数中的hDropInfo参数
iFile: 待查询的文件索引号，从0开始。可以同时拖拽多个文件，因此就需要一个索引号来进行区分。如果该参数为0xFFFFFFFF，则该函数返回拖拽的文件的个数
lpszFile: 用于存放文件名的缓冲区首地址
cch: 缓冲区长度
返回值：文件名长度
另外，查询完成后需要释放系统分配内存，使用下面这个函数：
VOID DragFinish(
HDROP hDrop
);