Эта статья больше похожа на сборник примеров с объяснениями о 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'Только зарегистрированные пользователи могут участвовать в опросе. Войдите, пожалуйста.
Стоит ли делать такие статьи?
40% Да28
60% Нет42
Проголосовали 70 пользователей. Воздержались 17 пользователей.
ссылка на оригинал статьи https://habr.com/ru/articles/577372/
Добавить комментарий