拖拽窗体问题？

Question

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

Answer 1

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

Answer 2

http://wapiknow.baidu.com/question/117695021.html?ssid=0&from=2001a&uid=wiaui_1315786654_2057&pu=usm%400%2Csz%40240_320%2Cgt%40500018_nokia_n78_0_2&bd_page_type=1