High Level Assembly (HLA) >> Win32 API (HLA v1.x) >> Dialog

Create Window

---

參考資訊：
1. win32
2. masm32

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並且釋放相關資源

Makefile

export WINEPREFIX=/home/user/.wine_amd64

TARGET=main
MYWINE=box86 wine

all:
	${MYWINE} hlaparse.exe -WIN32 -level=high -v -test ${TARGET}.hla
	${MYWINE} polink.exe @${TARGET}.link hlalib.lib ${TARGET}.obj /OUT:${TARGET}.exe

run:
	${MYWINE} ${TARGET}.exe

clean:
	rm -rf ${TARGET}.exe ${TARGET}.obj ${TARGET}.link

編譯、執行

$ make
$ make run

返回上一頁