Примеры. WinAPI: Окна, типы (FASM)

Эта статья больше похожа на сборник примеров с объяснениями о WinAPI | FASM. Какие окна бывают в Windows.

Окна бывают: Диалоговое окно, немодальное диалоговое окно, обычное (стандартное) окно. (это все которые я знаю)

• Диалоговое окно не возвращает управление после вызова, она вернет управление после выполнения EndDialog.

• Немодальное диалоговое окно тоже что и диалоговое окно, но возвращает управление, и нам придется делать цикл обработки сообщений.

• Обычное (стандартное) окно тоже что и немодальное диалоговое окно, но нужно обрабатывать все сообщения нам самим.

Диалоговое окно

DialogBoxParam - Создание диалогового окна по шаблону из ресурсов. Код дальше не выполняется пока не будет вызвана функция EndDialog.

invoke DialogBoxParamA hInstance, lpTemplateName, hWndParent, lpDialogFunc, dwInitParam

hInstance - дескриптор модуля, можно получить из GetModuleHandle.

lpTemplateName - номер шаблона в ресурсах.

hWndParent - hWnd родительского окна, или Null.

lpDialogFunc - адрес на диалоговую процедуру.

dwInitParam - значение передается в lParam (диалоговую процедуру).

DialogBoxIndirectParamA - Создание диалогового окна по шаблону из памяти.

_Диалоговая процедура

Эта процедура должна возвращать False, если она не обрабатывает сообщения. То есть если вы не хотите писать код по обработке стандартных сообщений, то возвращаете False и Windows сделает все за вас.

Пример процедуры:

proc DialogProc hwnddlg, msg, wparam, lparam
  cmp [msg], WM_CLOSE
  jne @f
    invoke EndDialog, [hwnddlg], 0 ; Выход из диалога
  @@:
  xor eax, eax ; return false
  ret
endp

__Ресурсы, шаблоны

section '.rsrc' resource data readable
directory RT_DIALOG, dialogs
  resource dialogs, 1,\ 							; 1 - номер шаблона
  LANG_ENGLISH, form1
  
  dialog form1, 'My Window',\ 				; имя окна
  	100, 100, 100, 50,\ 							; координаты окна\размер окна
  	WS_VISIBLE+WS_CAPTION+WS_SYSMENU 	; стили окна
  
enddialog

Пример диалогового окна

format PE GUI 4.0
entry start
include 'win32a.inc'
section '.code' code readable writeable executable
start:
  invoke GetModuleHandle, 0
  invoke DialogBoxParam, eax, 1, 0, DialogProc, 0
  invoke ExitProcess, 0
  
proc DialogProc hwnddlg, msg, wparam, lparam
  cmp [msg], WM_CLOSE
  jne @f
    invoke EndDialog, [hwnddlg], 0
  @@:
  
  cmp [msg], WM_COMMAND
  jne .if1
    cmp [boolBut], 0
    jne @f
      invoke SetDlgItemText, [hwnddlg], 2, Button_Text1
      inc [boolBut]
      jmp .if1
    @@:
      invoke SetDlgItemText, [hwnddlg], 2, Button_Text2
      dec [boolBut]
  .if1:
  
  xor eax, eax
  ret
endp
; DATA
Button_Text1 db 'Hello world!',0
Button_Text2 db 'Hello!',0
boolBut db 0

section '.idata' import data readable writeable
  library kernel, 'KERNEL32.DLL',\
          user , 'USER32.DLL'
          
  import kernel,\
          GetModuleHandle, 'GetModuleHandleA',\
          ExitProcess, 'ExitProcess'
          
  import user,\
          DialogBoxParam, 'DialogBoxParamA',\
          EndDialog, 'EndDialog',\
          SetDlgItemText, 'SetDlgItemTextA'

section '.rsrc' resource data readable
directory RT_DIALOG, dialogs
  resource dialogs, 1, LANG_ENGLISH, form1
  
  dialog form1, 'My Window1', 100, 100, 100, 50,\
  WS_VISIBLE+WS_CAPTION+WS_SYSMENU
  
    dialogitem 'Button', 'hi', 2,10,15,70,15,WS_VISIBLE
  enddialog

Немодальное диалоговое окно

Все тоже что и в диалоговом окне, но добавлен цикл обработки сообщений.

Пример немодального диалогового окна

format PE GUI 4.0
entry start
include 'win32a.inc'
section '.code' code readable writeable executable
start:
  invoke GetModuleHandle, 0
  invoke CreateDialogParam, eax, 1, 0, DialogProc, 0
  mov [hDialog], eax
  
  StartLoop:
    invoke GetMessage, msg, NULL, 0, 0
    cmp eax, 1
    jb Exit
      invoke IsDialogMessage, [hDialog], msg
  jmp StartLoop
  Exit:
    invoke ExitProcess, 0

proc DialogProc hwnddlg, msg, wparam, lparam
  xor eax, eax
  cmp [msg], WM_CLOSE
  jne @f
    invoke DestroyWindow, [hwnddlg]
    invoke PostQuitMessage, 0
  @@:
  xor eax,eax
ret
endp

msg MSG
hDialog dd 0

section '.idata' import data readable writeable
  library kernel, 'KERNEL32.DLL',\
          user, 'USER32.DLL'
          
  import kernel,\
          GetModuleHandle, 'GetModuleHandleA',\
          ExitProcess, 'ExitProcess'
          
  import user,\
          CreateDialogParam, 'CreateDialogParamA',\
          DestroyWindow, 'DestroyWindow',\
          GetMessage, 'GetMessageA',\
          IsDialogMessage, 'IsDialogMessageA',\
          PostQuitMessage, 'PostQuitMessage'
          
section '.rsrc' resource data readable
directory RT_DIALOG, dialogs
resource dialogs,1,LANG_ENGLISH, form1
  dialog form1, 'New Window', 100, 100, 100, 50,\
  WS_VISIBLE+WS_CAPTION+WS_SYSMENU+DS_CENTER
  
  enddialog

обычное (стандартное) окно

Оно немного отличается от немодального диалогового окна: шаблон не требуется. Используется часто эта функция: CreateWindowExA

Но перед тем нужно зарегистрировать класс: RegisterClassA

Цикл обработки сообщений:

@@:
  invoke GetMessage, msg, [hwnd], 0, 0
  test eax, eax
  jz @f
  invoke TranslateMessage, msg
  invoke DispatchMessage, msg
  jmp @b
@@:

Пример окна

format PE GUI 4.0
entry Start

include 'win32a.inc'

section '.code' code readable writeable executable

proc WinProc, hWnd, msg, wParam, lParam
  cmp [msg], WM_CLOSE
  jne @f
    invoke DestroyWindow, [hWnd]
    jmp .Exit
  @@:
  
  cmp [msg], WM_DESTROY
  jne @f
    invoke ExitProcess,0  
  @@:
  
  .Exit:
    invoke DefWindowProc, [hWnd], [msg], [wParam], [lParam]
ret
endp

Start:
    
    invoke GetModuleHandle, 0
    mov [wnd.hInstance], eax
    
    invoke RegisterClass, wnd
    test eax, eax
    jnz @f
      invoke MessageBox, 0, Error.FailRegisterClass, Error.Text, MB_OK+MB_ICONERROR
      jmp Exit
    @@:
    
    invoke CreateWindowEx, 0, ClassName, WindowName, WS_OVERLAPPEDWINDOW + WS_VISIBLE, CW_USEDEFAULT, CW_USEDEFAULT, 500, 500, 0, 0, [wnd.hInstance], 0
    test eax, eax
    jnz @f
      invoke MessageBox, 0, Error.FailCreateWindow, Error.Text, MB_OK+MB_ICONERROR
      jmp Exit
    @@:
    
    mov [hwnd], eax
    
    @@:
      invoke GetMessage, msg, [hwnd], 0, 0
      test eax, eax
      jz @f
      invoke TranslateMessage, msg
      invoke DispatchMessage, msg
      jmp @b
    @@:
    
Exit: 
    invoke ExitProcess,0

section '.data' data readable writeable

    ClassName db 'WinClass',0
    WindowName db 'Window Proj',0
    
    hwnd dd 0
    
    msg MSG
    wnd WNDCLASS 0, WinProc, 0, 0, 0, 0, 0, COLOR_WINDOW, 0, ClassName   

    Error:
      .Text db 'Error',0
      .FailRegisterClass db 'RegisterClassA - Fail',0
      .FailCreateWindow db 'CreateWindowExA - Fail',0

section '.idata' import readable writeable

  library kernel, 'kernel32.dll',\
          user, 'user32.dll'
  
  import kernel,\
          ExitProcess, 'ExitProcess',\
          GetModuleHandle, 'GetModuleHandleA'
          
  import user,\
          MessageBox, 'MessageBoxA',\
          RegisterClass, 'RegisterClassA',\
          CreateWindowEx, 'CreateWindowExA',\
          GetMessage, 'GetMessageA',\
          TranslateMessage, 'TranslateMessage',\
          DispatchMessage, 'DispatchMessageA',\
          DestroyWindow, 'DestroyWindow',\
          PostQuitMessage, 'PostQuitMessage',\
          DefWindowProc, 'DefWindowProcA'

Пример окна с кнопкой

format PE GUI 4.0
entry Start

include 'win32ax.inc'

section '.code' code readable writeable executable

proc WinProc, hWnd, msg, wParam, lParam
  cmp [msg], WM_CLOSE
  jne @f
    invoke DestroyWindow, [hWnd]
    jmp .Exit
  @@:
  
  cmp [msg], WM_DESTROY
  jne @f
    invoke ExitProcess,0  
  @@:
  
  cmp [msg], WM_COMMAND
  jne @f
    mov eax, [hwndButton]
    cmp [lParam], eax
    jne @f
      invoke MessageBox, 0, 'Hi', 'Hello', MB_OK  
  @@:
  
  
  .Exit:
    invoke DefWindowProc, [hWnd], [msg], [wParam], [lParam]
ret
endp

Start:
    
    invoke GetModuleHandle, 0
    mov [wnd.hInstance], eax
    
    invoke RegisterClass, wnd
    test eax, eax
    jnz @f
      invoke MessageBox, 0, Error.FailRegisterClass, Error.Text, MB_OK+MB_ICONERROR
      jmp Exit
    @@:
    
    invoke CreateWindowEx, 0, ClassName, WindowName, WS_OVERLAPPEDWINDOW + WS_VISIBLE, CW_USEDEFAULT, CW_USEDEFAULT, 500, 500, 0, 0, [wnd.hInstance], 0
    test eax, eax
    jnz @f
      invoke MessageBox, 0, Error.FailCreateWindow, Error.Text, MB_OK+MB_ICONERROR
      jmp Exit
    @@:
    mov [hwnd], eax
    
    invoke CreateWindowEx, 0, ClassButton, ButtonName, WS_VISIBLE+WS_CHILD, 10, 10, 50, 30, eax, 0, [wnd.hInstance], 0
    mov [hwndButton], eax
    
    @@:
      invoke GetMessage, msg, [hwnd], 0, 0
      test eax, eax
      jz @f
      invoke TranslateMessage, msg
      invoke DispatchMessage, msg
      jmp @b
    @@:
    
Exit: 
    invoke ExitProcess,0

section '.data' data readable writeable

    ClassName db 'WinClass',0
    WindowName db 'Window Proj',0
    ClassButton db 'BUTTON',0
    ButtonName db 'Hello',0
    
    hwnd dd 0
    hwndButton dd 0
    
    msg MSG
    wnd WNDCLASS 0, WinProc, 0, 0, 0, 0, 0, COLOR_WINDOW, 0, ClassName   

    Error:
      .Text db 'Error',0
      .FailRegisterClass db 'RegisterClassA - Fail',0
      .FailCreateWindow db 'CreateWindowExA - Fail',0

section '.idata' import readable writeable

  library kernel, 'kernel32.dll',\
          user, 'user32.dll'
  
  import kernel,\
          ExitProcess, 'ExitProcess',\
          GetModuleHandle, 'GetModuleHandleA'
          
  import user,\
          MessageBox, 'MessageBoxA',\
          RegisterClass, 'RegisterClassA',\
          CreateWindowEx, 'CreateWindowExA',\
          GetMessage, 'GetMessageA',\
          TranslateMessage, 'TranslateMessage',\
          DispatchMessage, 'DispatchMessageA',\
          DestroyWindow, 'DestroyWindow',\
          PostQuitMessage, 'PostQuitMessage',\
          DefWindowProc, 'DefWindowProcA'