.版本 2 .程序集 程序集1 .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行 .局部变量 window, 窗口类 .局部变量 msg, MSG window.创建 () .判断循环首 (GetMessage (msg, 0, 0, 0)) TranslateMessage (msg) DispatchMessage (msg) .判断循环尾 () 返回 (msg.wParam) ' 可以根据您的需要返回任意数值 .子程序 窗口_WndProc, 整数型 .参数 hWnd, 整数型 .参数 message, 整数型 .参数 wParam, 整数型 .参数 lParam, 整数型 .局部变量 窗口类指针, 整数型 .局部变量 窗口类, 窗口类, 静态 .局部变量 返回值, 逻辑型 窗口类指针 ＝ GetWindowLong (hWnd, #GWL_USERDATA) .如果真 (message ＝ 2) PostQuitMessage (0) .如果真结束 .如果真 (窗口类指针 ≠ 0) .如果真 (message ＝ 16) 强制交换变量 (窗口类指针, 窗口类) 返回值 ＝ 窗口类.可否被关闭 () 强制交换变量 (窗口类指针, 窗口类) .如果真 (返回值 ＝ 假) 返回 (0) .如果真结束 .如果真结束 .如果真结束 返回 (DefWindowProc (hWnd, message, wParam, lParam))