程式語言 - High Level Assembly (HLA) - Win32 API (HLA v1.x) - Single Document Interface (SDI) - 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視窗程式設計的核心就是圍繞着事件處理(處理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()裡面

完成