程式語言 - High Level Assembly (HLA) - Win32 API (HLA v1.x) - Dialog - Create Window



參考網站:
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控制項(如:Button、Edit)也是此類道理,比較需要注意的是,Windows視窗程式設計的核心是圍繞着事件處理(處理Message),任何的視窗設定或者溝通都是以事件導向為原則,因此,寫出一個簡單的視窗框架,將有助於了解Windows視窗程式的運作

main.hla

program main;

#include("w.hhf")
#include("args.hhf")
#include("memory.hhf")
#include("strings.hhf")

static
    hInstance:   dword;
    CommandLine: string;

readonly
    szCaption: string:= "main";

procedure WinMain(hInst:dword; hPrevInst:dword; CmdLine:string; CmdShow:dword);
var
    msg: w.MSG;

begin WinMain;
    w.CreateWindowEx(w.WS_EX_LEFT, w.WC_DIALOG, szCaption,
        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~10:初始化的Global變數
Line 12:唯讀的資料區段
Line 13:唯讀的Global變數
Line 15~30:類似Pascal語言的Procedure宣告方式
Line 16~17:類似Pascal語言的Local變數宣告方式
Line 19~30:類似Pascal語言的Procedure主體
Line 20~21:在建立Windows視窗時,需要指定對應的Class,如:Edit、Button,除了可以使用系統預設的Class之外,也可以註冊自定義的Class,上面例子使用的WC_DIALOG,就是系統預設定義的Dialog Class,WS_OVERLAPPEDWINDOW代表視窗有標題、最大化、最小化的按鈕,WS_VISIBLE是建立一個可視化的視窗
Line 23~28:無窮迴圈寫法
Line 24:從Queue提取Message(包含視窗、系統事件)
Line 27:分發Message到處理視窗事件的副程式,由於目前的Dialog視窗並沒有對應的處理副程式,因此,無法處理任何Message,包含關閉視窗的Message,所以執行後,必須使用kill命令強制關閉該視窗
Line 29:回傳值都是放在eax
Line 33~35:一般習慣是在程式進入時,保存Instance、CommandLine的內容
Line 37:呼叫自定義的WinMain(),模擬C語言的WinMain(),當然也可以把內容都寫在main()裡面
Line 39:結束Process並且釋放相關資源

完成