当文件拖放至窗体中后，系统将向窗体发送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);