易语言用API实现文件拖放源码

用API实现文件拖放系统结构:WindowProc,DropFiles,SetWindowLongA,CallWindowProcA,DragAcceptFiles,DragQueryFileA,DragFinish, ======窗口程序集1 || ||------__启动窗口_创建完毕 || ||------WindowProc || ||------__启动窗口_将被销毁 || ||------DropFiles || ||------_超级列表框1_被双击 || ||------_按钮1_被单击 || || ======调用的Dll || ||---[dll]------SetWindowLongA || ||---[dll]------CallWindowProcA || ||---[dll]------DragAcceptFiles || ||---[dll]------DragQueryFileA || ||---[dll]------DragFinish 调用的DLL命令: .DLL命令SetWindowLongA,子程序指针,,"SetWindowLongA" .参数hWnd,整数型 .参数nIndex,整数型 .参数dwNewLong,子程序指针 .DLL命令CallWindowProcA,整数型,,"CallWindowProcA" .参数lpPrevWndFunc,子程序指针 .参数hWnd,整数型 .参数Msg,整数型 .参数wParam,整数型 .参数lParam,整数型 .DLL命令DragAcceptFiles,整数型,"shell32.dll","DragAcceptFiles" .参数hWnd,整数型 .参数fAccept,整数型 .DLL命令DragQueryFileA,整数型,"shell32.dll","DragQueryFileA" .参数hDrop,整数型 .参数iFile,整数型 .参数lpszFile,文本型 .参数cch,整数型 .DLL命令DragFinish,整数型,"shell32.dll","DragFinish" .参数hDrop,整数型