format PE GUI 4.0
entry MyEntry
ᅠ
include 'C:\INCLUDE\Win32ax.inc'
ᅠ
section '.data' data readable writeable
szClsName db "TestWndClass",0
szWindowName db "Tutorial #1",0
wCls WNDCLASS
wMsg MSG
section '.code' code readable executable
MyEntry:
ᅠᅠᅠmov [wCls.style],CS_VREDRAW+CS_HREDRAW
ᅠᅠᅠmov [wCls.lpfnWndProc],WndProc
ᅠᅠᅠmov [wCls.lpszClassName],szClsName
ᅠᅠᅠmov [wCls.hbrBackground],COLOR_WINDOW+1
ᅠᅠᅠinvoke RegisterClass,wCls
ᅠᅠᅠinvoke CreateWindowEx,0,szClsName,szWindowName,WS_VISIBLE or WS_SYSMENU,\
ᅠᅠᅠᅠᅠ200,200,200,200,0,0,0,0
ᅠᅠᅠ.while eax<>0
ᅠᅠᅠᅠᅠinvoke GetMessage,wMsg,0,0,0
ᅠᅠᅠᅠᅠpush eax
ᅠᅠᅠᅠᅠᅠᅠinvoke TranslateMessage,wMsg
ᅠᅠᅠᅠᅠᅠᅠinvoke DispatchMessage,wMsg
ᅠᅠᅠᅠᅠᅠpop eax
ᅠᅠᅠ.endw
ᅠᅠᅠinvoke ExitProcess,0
proc WndProc hWnd,uMsg,wParam,lParam
ᅠᅠᅠpush edi esi ebx
ᅠᅠᅠmov eax,[uMsg]
ᅠᅠᅠ.if eax=WM_CLOSE
ᅠᅠᅠᅠᅠinvoke PostQuitMessage,0
ᅠᅠᅠ.elseif eax=WM_CREATE
ᅠᅠᅠ.else
ᅠᅠᅠᅠᅠinvoke DefWindowProc,[hWnd],[uMsg],[wParam],[lParam]
ᅠᅠᅠ.endif
ᅠᅠᅠpop ebx esi edi
ᅠᅠᅠret
endp
section '.idata' import data readable writeable
ᅠ
ᅠlibrary kernel32, 'KERNEL32.DLL',\
ᅠᅠᅠᅠuser32, 'USER32.DLL'
ᅠinclude 'C:\INCLUDE\APIA\Kernel32.inc'
ᅠinclude 'C:\INCLUDE\APIA\User32.inc'

format PE GUI [b]4.0[/b] entry MyEntry ᅠ [i]include 'C:\INCLUDE\Win32ax.inc'[/i] ᅠ [b]section[/b] '.[i]data[/i]' data readable writeable szClsName db "[i]TestWndClass[/i]",[b]0[/b] szWindowName db "[u]Tutorial #1[/u]",[b]0[/b] wCls WNDCLASS wMsg MSG [b]section[/b] '.[u]code[/u]' code readable executable MyEntry: ᅠᅠᅠmov [wCls.style],CS_VREDRAW+CS_HREDRAW ᅠᅠᅠmov [wCls.lpfnWndProc],WndProc ᅠᅠᅠmov [wCls.lpszClassName],szClsName ᅠᅠᅠmov [wCls.hbrBackground],COLOR_WINDOW[b]+1[/b] ᅠᅠᅠinvoke RegisterClass,wCls ᅠᅠᅠinvoke CreateWindowEx,0,szClsName,szWindowName,WS_VISIBLE or WS_SYSMENU,\ ᅠᅠᅠᅠᅠ[b]200,200,200,200,0,0,0,0[/b] ᅠᅠᅠ.while eax<>0 ᅠᅠᅠᅠᅠinvoke GetMessage,wMsg[b],0,0,0[/b] ᅠᅠᅠᅠᅠpush eax ᅠᅠᅠᅠᅠᅠᅠinvoke TranslateMessage,wMsg ᅠᅠᅠᅠᅠᅠᅠinvoke DispatchMessage,wMsg ᅠᅠᅠᅠᅠᅠpop eax ᅠᅠᅠ.[b]endw[/b] ᅠᅠᅠinvoke ExitProcess,[b]0[/b] proc WndProc hWnd,uMsg,wParam,lParam ᅠᅠᅠpush edi esi ebx ᅠᅠᅠmov eax,[uMsg] ᅠᅠᅠ.[b]if[/b] eax=WM_CLOSE ᅠᅠᅠᅠᅠinvoke PostQuitMessage,[b]0[/b] ᅠᅠᅠ.[b]elseif[/b] eax=WM_CREATE ᅠᅠᅠ.[b]else[/b] ᅠᅠᅠᅠᅠinvoke DefWindowProc,[hWnd],[uMsg],[wParam],[lParam] ᅠᅠᅠ.[b]endif[/b] ᅠᅠᅠpop ebx esi edi ᅠᅠᅠret endp [b]section[/b] '.[u]idata[/u]' import data readable writeable ᅠ ᅠlibrary kernel32, '[u]KERNEL32.DLL[/u]',\ ᅠᅠᅠᅠuser32, '[u]USER32.DLL[/u]' ᅠinclude '[u]C:\INCLUDE\APIA\Kernel32.inc[/u]' ᅠinclude '[u]C:\INCLUDE\APIA\User32.inc[/u]'