用于从内存加载／卸载／注入DLL。支持加载易语言静态链接的DLL。 ========================================== DLL 载入窗口例子 ========================================== .版本 2 .数据类型 MSG .成员 hwnd, 整数型 .成员 message, 整数型 .成员 wParam, 整数型 .成员 lParam, 整数型 .成员 time, 整数型 .成员 x, 整数型 .成员 y, 整数型 .版本 2 .DLL命令 GetMessageA, 逻辑型, "user32.dll", "GetMessageA" .参数 lpMsg, MSG .参数 hWnd, 整数型 .参数 wMsgFilterMin, 整数型 .参数 wMsgFilterMax, 整数型 .DLL命令 TranslateMessage, 逻辑型, "user32.dll", "TranslateMessage" .参数 lpMsg, MSG .DLL命令 DispatchMessageA, 整数型, "user32.dll", "DispatchMessageA" .参数 lpMsg, MSG .DLL命令 IsWindow, 逻辑型, "user32.dll", "IsWindow" .参数 hWnd, 整数型 .DLL命令 CreateThread, 整数型, "kernel32.dll", "CreateThread" .参数 lpThreadAttributes, 整数型 .参数 dwStackSize, 整数型 .参数 lpStartAddress, 整数型 .参数 lpParameter, 整数型 .参数 dwCreationFlags, 整数型 .参数 lpThreadId, 整数型 .DLL命令 CloseHandle, 逻辑型, "kernel32.dll", "CloseHandle" .参数 hObject, 整数型 .版本 2 .子程序 EnterProc, 整数型, 公开, 入口函数 .参数 param, 整数型 返回 (载入窗口 (窗口1)) .子程序 载入窗口, 整数型 .参数 窗口, 窗口 .局部变量 hThread, 整数型 hThread ＝ CreateThread (0, 0, 到整数 (&private_thread), 0, 0, 0) CloseHandle (hThread) 返回 (选择 (hThread ≠ 0, 1, 0)) .子程序 private_thread, 整数型 .参数 param, 整数型 .局部变量 hwnd, 整数型 .局部变量 msg, MSG 载入 (窗口1, , 假) .如果真 (是否已创建 (窗口1)) hwnd ＝ 窗口1.取窗口句柄 () .如果真结束 .判断循环首 (IsWindow (hwnd) 且 GetMessageA (msg, hwnd, 0, 0)) TranslateMessage (msg) DispatchMessageA (msg) .判断循环尾 () 返回 (0) ======================================================================================================
操作系统支持： Windows
