.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