程式語言 - Wine - Assembly (ARM 32) - Single Document Interface (SDI) - Handle Event

參考資訊：
http://www.winprog.org/tutorial/
http://winapi.freetechsecrets.com/win32/
https://github.com/gammasoft71/Examples_Win32
http://masm32.com/board/index.php?topic=3584.0
https://learn.microsoft.com/en-us/windows/win32/winmsg/window-styles

當視窗有事件需要被處理時，系統會透過呼叫註冊的Callback副程式來處理，而這個Callback副程式就是在註冊Class時，設定給lpfnWndProc的事件處理副程式，因此，當這個事件處理副程式被呼叫時，可以處理自己感興趣的事件，而其餘事件則交給系統處理(透過呼叫DefWindowProc())，需要注意的是，例如：WM_CLOSE，就必須由該視窗自己處理，因為系統無法知道還有哪些額外的資源需要被釋放掉

main.s

    .include "head.inc"

    .text
WndProc:
    push { lr }
    cmp r1, #WM_CLOSE
    beq handle_close
    cmp r1, #WM_DESTROY
    beq handle_destroy
    b handle_default
 
handle_close:
    bl DestroyWindow
    eor r0, r0
    b finish
 
handle_destroy:
    ldr r0, =0
    bl PostQuitMessage
    eor r0, r0
    b finish
 
handle_default:
    bl DefWindowProcA
    b finish
 
finish:
    pop { pc }

WinMain:
    push { lr }

    ldr r0, =wndClass
    ldr r1, =WndProc
    str r1, [r0, #WNDCLASS.lpfnWndProc]
    ldr r1, =szAppName
    str r1, [r0, #WNDCLASS.lpszClassName]
    bl RegisterClassA

    ldr r3, =0
    ldr r2, =0
    ldr r1, =0
    ldr r0, =0
    push { r0, r1, r2, r3 }
    ldr r3, =300
    ldr r2, =300
    ldr r1, =0
    ldr r0, =0
    push { r0, r1, r2, r3 }
    ldr r3, =WS_OVERLAPPEDWINDOW | WS_VISIBLE
    ldr r2, =szAppName
    ldr r1, =szAppName
    ldr r0, =WS_EX_LEFT
    bl CreateWindowExA
    add sp, sp, #32
    ldr r1, =hWin
    str r0, [r1]

loop:
    ldr r3, =0
    ldr r2, =0
    ldr r1, =0
    ldr r0, =szMsg
    bl GetMessageA

    cmp r0, #0
    beq exit
  
    ldr r0, =szMsg
    bl DispatchMessageA
    b loop

exit:
    mov r0, #0
    bl ExitProcess
 
    pop { pc }

Line 12~21：關閉視窗的順序為：主視窗收到WM_CLOSE事件時，呼叫DestroyWindow()，DestroyWindow()會自動將子視窗的相關資源也一併釋放掉(包含Resource描述的資源)，系統接著會發送WM_DESTROY事件給主視窗，待主視窗收到WM_DESTROY事件時，呼叫PostQuitMessage()結束視窗，值得注意的地方是，SendMessage()是屬於Block方式呼叫(必須等待動作執行完畢才返回)，而PostQuitMessage()則是Non-block方式呼叫
Line 23~24：其餘事件由系統代為處理

編譯、執行

$ winegcc main.s -o main
$ wine ./main.exe