 .386 ;告诉编译器程序所用指令集，(.386P)带P表示使用特权级指令。
.model flat,stdcall;内存模式平坦的4G空间
;参数传递方式C从右往左，调用者恢复堆栈指针。
;PSCAL从左往右，被调用者恢复堆栈指针。
;stdcall从右往左传递，但是堆栈指针由被调用者恢复。
option casemap:none;区分标志的大小写
include windows.inc;各种常量，宏的定义
include user32.inc
includelib user32.lib ; calls to functions in user32.lib and kernel32.lib
include kernel32.inc
includelib kernel32.lib
include gdi32.inc
includelib gdi32.lib
RGB macro Red,Green,Blue
xor eax,eax
mov ah,Blue
shl eax,8
mov ah,Green
mov al,Red
endm
WinMain proto :DWORD,:DWORD,:DWORD,:DWORD
.DATA ; initialized data
ClassName db "SimpleWinClass",0 ; the name of our window class
AppName db "Our First Window",0 ; the name of our window
OurText db "彭小虎是个SB!",0 ; the text of our client
FontName db "script",0
MouseClick db 0
.DATA? ; Uninitialized data
hInstance HINSTANCE ? ; Instance handle of our program
CommandLine LPSTR ?
hitpoint POINT <>
.CODE ; Here begins our code
start:
invoke GetModuleHandle, NULL ; 获取一个应用程序或动态链接库的模块句柄，返回值存储在eax
; Under Win32, hmodule==hinstance mov hInstance,eax
mov hInstance,eax
invoke GetCommandLine ; 获得指向当前命令行缓冲区的一个指针
mov CommandLine,eax
invoke WinMain, hInstance,NULL,CommandLine, SW_SHOWDEFAULT ; call the main function，第三个参数表示窗口初始状态
invoke ExitProcess, eax ; quit our program. The exit code is returned in eax from WinMain.
;---------------------------------------------------------------------------
WinMain proc hInst:HINSTANCE,hPrevInst:HINSTANCE,CmdLine:LPSTR,CmdShow:DWORD
LOCAL wc:WNDCLASSEX ; create local variables on stack
LOCAL msg:MSG
LOCAL hwnd:HWND
mov wc.cbSize,SIZEOF WNDCLASSEX ; fill values in members of wc
mov wc.style, CS_HREDRAW or CS_VREDRAW
mov wc.lpfnWndProc, OFFSET WndProc
mov wc.cbClsExtra,NULL
mov wc.cbWndExtra,NULL
push hInstance
pop wc.hInstance
mov wc.hbrBackground,COLOR_WINDOW+1
mov wc.lpszMenuName,NULL
mov wc.lpszClassName,OFFSET ClassName
invoke LoadIcon,NULL,IDI_APPLICATION
mov wc.hIcon,eax
mov wc.hIconSm,eax
invoke LoadCursor,NULL,IDC_ARROW
mov wc.hCursor,eax
invoke RegisterClassEx, addr wc ; register our window class
invoke CreateWindowEx,NULL,\
ADDR ClassName,\ ;窗口类名
ADDR AppName,\ ;窗口标题栏名
WS_OVERLAPPEDWINDOW,\ ;窗口样式
;窗口位置与高宽设置
CW_USEDEFAULT,\
CW_USEDEFAULT,\
CW_USEDEFAULT,\
CW_USEDEFAULT,\
NULL,\ ;双亲句柄
NULL,\ ;菜单句柄
hInst,\ ;实例句柄
NULL
mov hwnd,eax
invoke ShowWindow, hwnd,CmdShow ; display our window on desktop
invoke UpdateWindow, hwnd ; refresh the client area
.WHILE TRUE ; Enter message loop
invoke GetMessage, ADDR msg,NULL,0,0
.BREAK.IF (!eax)
invoke TranslateMessage, ADDR msg
invoke DispatchMessage, ADDR msg
.ENDW
mov eax,msg.wParam ; return exit code in eax
ret
WinMain endp
;---------------------------------------------------------------------------
WndProc proc hWnd:HWND, uMsg:UINT, wParam:WPARAM, lParam:LPARAM
LOCAL hdc:HDC
LOCAL ps:PAINTSTRUCT
LOCAL hfont:HFONT
.IF uMsg==WM_DESTROY ; if the user closes our window
invoke PostQuitMessage,NULL ; quit our application
.ELSEIF uMsg==WM_LBUTTONDOWN
mov eax,lParam
and eax,0FFFFh
mov hitpoint.x,eax
mov eax,lParam
shr eax,16
mov hitpoint.y,eax
mov MouseClick,TRUE
invoke InvalidateRect,hWnd,NULL,TRUE
.ELSEIF uMsg==WM_PAINT
invoke BeginPaint,hWnd,ADDR ps ;返回设备句柄
mov hdc,eax ;取得设备句柄
invoke CreateFont,50,16,270,0,FW_DEMIBOLD,0,0,0,GB2312_CHARSET,\
OUT_CHARACTER_PRECIS,CLIP_DEFAULT_PRECIS,\
DEFAULT_QUALITY,DEFAULT_PITCH or FF_SCRIPT,\
ADDR FontName
invoke SelectObject,hdc,eax
mov hfont,eax;保存
RGB 8,80,8
invoke SetBkColor,hdc,eax
invoke TextOut,hdc,80,120,ADDR OurText,SIZEOF OurText
invoke SelectObject,hdc, hfont;恢复
.IF MouseClick
invoke lstrlen,ADDR OurText
invoke TextOut,hdc,hitpoint.x,hitpoint.y,ADDR OurText,eax
.ENDIF
invoke EndPaint,hWnd, ADDR ps
.ELSE
invoke DefWindowProc,hWnd,uMsg,wParam,lParam ; Default message processing
ret
.ENDIF
xor eax,eax
ret
WndProc endp
;---------------------------------------------------------------------------
end start
|