当文件拖放至窗体中后，系统将向窗体发送WM_DRAPFILES事件

定义触发过程：

procedure WMDROPFILES(var Msg: TMessage);message WM_DROPFILES;

启用窗口支持拖放

DragAcceptFiles(Handle, True);//true为支持

返回文件总数：DragQueryFile(Msg.WParam, $FFFFFFFF, nil, 0);

返回文件名：

DragQueryFile(Msg.WParam, i, FileName, 256);  

// i 是文件序号，FileName是文件名数组

释放：DragFinish(Msg.WParam);

拖动文件蕴含的windows消息机制