參考網站:
http://winapi.freetechsecrets.com/win32/
http://masm32.com/board/index.php?topic=3584.0
https://www.plantation-productions.com/Webster/
https://www.plantation-productions.com/Webster/Win32Asm/win32API.html
Windows的視窗可以分成:Dialog、Single Document Interface(SDI)、Multiple Document Interface(MDI)三種類別,相對於SDI、MDI,Dialog類別是比較容易上手學習的一個類別,相當適合初次學習Windows視窗設計的使用者,而Windows視窗程式設計的核心就是圍繞着事件處理(處理Message),任何的視窗設定或者溝通都是以事件導向為原則,因此,寫出一個簡單的視窗框架,將有助於了解Windows視窗程式的運作
main.hla
program main; #include("w.hhf") #include("args.hhf") #include("memory.hhf") #include("strings.hhf") static hInstance: dword; CommandLine: string; wndClass: w.WNDCLASS; readonly szName: string:= "main"; procedure WinMain(hInst:dword; hPrevInst:dword; CmdLine:string; CmdShow:dword); var msg: w.MSG; begin WinMain; mov(w.DefWindowProc, wndClass.lpfnWndProc); mov(szName, wndClass.lpszClassName); w.RegisterClass(wndClass); w.CreateWindowEx(w.WS_EX_LEFT, szName, szName, w.WS_OVERLAPPEDWINDOW | w.WS_VISIBLE, 0, 0, 300, 300, 0, 0, NULL, NULL); forever w.GetMessage(msg, NULL, 0, 0); breakif(!eax); w.DispatchMessage(msg); endfor; mov(msg.wParam, eax); end WinMain; begin main; w.GetModuleHandle(NULL); mov(eax, hInstance); mov(arg.cmdLn(), CommandLine); WinMain(hInstance, NULL, CommandLine, w.SW_SHOWNORMAL); w.ExitProcess(eax); end main;
Line 8:初始化的資料區段
Line 9~11:初始化的Global變數
Line 13:唯讀的資料區段
Line 14:唯讀的Global變數
Line 16~35:類似Pascal語言的Procedure宣告方式
Line 17~18:類似Pascal語言的Local變數宣告方式
Line 20~35:類似Pascal語言的Procedure主體
Line 21~23:一般SDI視窗會註冊屬於自己的Class並且設定事件處理副程式,目前司徒著重在說明如何建立Windows視窗,因此,我們使用系統預設的事件處理副程式(DefWindowProc),視窗訊息統一交給系統幫忙處理,由於是自定義的Class,因此,需要幫這個Class設定一個名字,之後就可以用這個Class名字來建立Windows視窗
Line 25~26:使用剛剛註冊的Class來建立Windows視窗,WS_OVERLAPPEDWINDOW代表視窗有標題、最大化、最小化的按鈕,WS_VISIBLE是建立一個可視化的視窗
Line 28~33:無窮迴圈寫法
Line 29:從Queue提取Message(包含視窗、系統事件)
Line 32:分發Message到處理視窗事件的副程式,由於目前註冊的處理副程式是使用系統預設(DefWindowProc),因此,無法處理這個SDI視窗的Message,包含關閉視窗的Message,所以必須使用kill命令強制關閉該視窗
Line 34:回傳值都是放在eax
Line 38~40:一般習慣是在程式進入時,保存Instance、CommandLine的內容
Line 42:呼叫自定義的WinMain(),模擬C語言的WinMain(),當然也可以把內容都寫在start()裡面
完成