Steward

分享是一種喜悅、更是一種幸福

程式語言 - Wine - Assembly (ARM 32) - Single Document Interface (SDI) - Create Window

---

參考資訊：
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

Windows的視窗可以分成：Dialog、Single Document Interface(SDI)、Multiple Document Interface(MDI)三種類別，相對於SDI、MDI，Dialog類別是比較容易上手學習的一個類別，相當適合初次學習Windows視窗設計的使用者，而Windows視窗程式設計的核心就是圍繞着事件處理(處理Message)，任何的視窗設定或者溝通都是以事件導向為原則，因此，寫出一個簡單的視窗框架，將有助於了解Windows視窗程式的運作

main.S

    .global WinMain

    .equiv WC_DIALOG, 0x8002
    .equiv WM_DESTROY, 2
    .equiv WM_CLOSE, 0x10
    .equiv WS_OVERLAPPED, 0
    .equiv WS_CAPTION, 0xc00000
    .equiv WS_SYSMENU, 0x80000
    .equiv WS_THICKFRAME, 0x40000
    .equiv WS_MINIMIZEBOX, 0x20000
    .equiv WS_MAXIMIZEBOX, 0x10000
    .equiv WS_VISIBLE, 0x10000000
    .equiv WS_EX_LEFT, 0x00000000
    .equiv WS_OVERLAPPEDWINDOW, (WS_OVERLAPPED | WS_CAPTION | WS_SYSMENU | WS_THICKFRAME | WS_MINIMIZEBOX | WS_MAXIMIZEBOX)

    .equiv WNDCLASS.style, 0
    .equiv WNDCLASS.lpfnWndProc, 4
    .equiv WNDCLASS.cbClsExtra, 8
    .equiv WNDCLASS.cbWndExtra, 12
    .equiv WNDCLASS.hInstance, 16
    .equiv WNDCLASS.hIcon, 20
    .equiv WNDCLASS.hCursor, 24
    .equiv WNDCLASS.hbrBackground, 28
    .equiv WNDCLASS.lpszMenuName, 32
    .equiv WNDCLASS.lpszClassName, 36

    .data
hWin: .skip 4
szMsg: .skip 28
szAppName: .asciz "main"
pDefWndProc: .skip 4
wndClass:
    .space 4   @ style
    .space 4   @ lpfnWndProc
    .space 4   @ cbClsExtra
    .space 4   @ cbWndExtra
    .space 4   @ hInstance
    .space 4   @ hIcon
    .space 4   @ hCursor
    .space 4   @ hbrBackground
    .space 4   @ lpszMenuName
    .space 4   @ lpszClassName
wndClass_end:
WNDCLASS_SIZE: .word wndClass_end - wndClass

    .text
WinMain:
    push { lr }
 
    ldr r0, =wndClass
    ldr r1, =DefWindowProcA
    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:
    pop { pc }

編譯、執行

$ winegcc-armhf -b arm-linux-gnueabihf main.S -o main.exe
$ WINEPREFIX=~/.wine_arm32 myarm32 main.exe.so