.386
.model flat,stdcall
option casemap:none
;==========================
;include部分
include windows.inc
include gdi32.inc
include user32.inc
includelib user32.lib
includelib gdi32.lib
include kernel32.inc
includelib kernel32.lib
;===========================
;未初始化数据段
.data?
hInstance dd ? ;主程序句柄
hManinHwnd dd ? ;主窗口句柄
;常量段
.const
szContent db "this is first window",0
szWindowClass db "New_Window",0
szTitle db "My_First_Window",0
szButton db "Button",0
szButtonTitle db "&Cancel",0
;已初始化的数据段
.data
szMsgText db 1024 dup(?)
szFrmatText db "ebx:%0.8X",0
;代码段
.code
_WindowCallbackProc proc uses ebx edi esi hWnd,uMsg,wParam,lParam
local @stPs:PAINTSTRUCT
local @stRect:RECT
local @hDc:dword
mov eax,uMsg
.if eax == WM_PAINT
invoke BeginPaint,hWnd,addr @stPs
mov @hDc,eax
invoke GetClientRect,hWnd,addr @stRect
invoke DrawText,@hDc,addr szContent,-1,\
addr @stRect,\
DT_SINGLELINE or DT_CENTER or DT_VCENTER
.elseif eax == WM_CREATE
invoke CreateWindowEx,NULL,offset szButton,offset szButtonTitle,WS_CHILD or WS_VISIBLE,\
10,50,80,40,hWnd,1001,hInstance,NULL
.elseif eax == WM_COMMAND
mov ebx,wParam
and ebx,0FFFFh
.if ebx == 03E9h
invoke wsprintf,addr szMsgText,addr szFrmatText,ebx
invoke MessageBox,NULL,addr szMsgText,NULL,NULL
.endif
.elseif eax == WM_CLOSE
invoke DestroyWindow,hManinHwnd
invoke PostQuitMessage,NULL
.else
invoke DefWindowProc,hWnd,uMsg,wParam,lParam
ret
.endif
xor eax,eax
ret
_WindowCallbackProc endp
;定义wMain函数
_wMain proc
local @stWndClass:WNDCLASSEX
local @stMsg:MSG
invoke GetModuleHandle,NULL
mov hInstance,eax
invoke RtlZeroMemory,addr @stWndClass,sizeof @stWndClass
;注册窗口类
invoke LoadCursor,0,IDC_ARROW
mov @stWndClass.hCursor,eax
push hInstance
pop @stWndClass.hInstance
mov @stWndClass.cbSize,sizeof WNDCLASSEX
mov @stWndClass.style,CS_HREDRAW or CS_VREDRAW
mov @stWndClass.lpfnWndProc,offset _WindowCallbackProc
mov @stWndClass.hbrBackground,COLOR_WINDOW + 1
mov @stWndClass.lpszClassName,offset szWindowClass
invoke RegisterClassEx,addr @stWndClass
;********************************************************************
; 建立并显示窗口
;********************************************************************
invoke CreateWindowEx,WS_EX_CLIENTEDGE,offset szWindowClass,offset szTitle,\
WS_OVERLAPPEDWINDOW,\
100,100,600,400,\
NULL,NULL,hInstance,NULL
mov hManinHwnd,eax
invoke ShowWindow,hManinHwnd,SW_SHOWNORMAL
invoke UpdateWindow,hManinHwnd
;********************************************************************
; 消息循环
;********************************************************************
.while TRUE
invoke GetMessage,addr @stMsg,NULL,0,0
.break .if eax == 0
invoke TranslateMessage,addr @stMsg
invoke DispatchMessage,addr @stMsg
.endw
ret
_wMain endp
start:
call _wMain
invoke ExitProcess,NULL
end start
