Include windows.inc

Model large, WINDOWS PASCAL

Jumps

Locals

Jmp defwndproc

Je wmpaint

Je wmrbuttondown

Je wmcreate

Je wmlbuttondown

Je wmdestroy

WndProc PROC

Mov ah, 4Ch

Jmp msg_loop

Call DISPATCHMESSAGE, ds offset msg

Call TRANSLATEMESSAGE, ds offset msg

Je end_loop

Cmp ax, 0

; Обрабатываем сообщение

; Обрабатываем следующее сообщение

end_loop:

; Выходим из программы

mov ax, [msg.msWPARAM]

int 21h

Этот кусок кода должен начать работать стразу после создания главного окна. Он отвечает за получение, перевод и передачу сообщения вашему окну. Если этот обработчик получает сообщение WM_QUIT, то он завершает работу программы. Этот участок вашей программы только передает сообщения вашему окну, но не обрабатывает их, для этого существует функция WndProc, адрес которой мы передали при заполнении структуры WNDCLASS. Именно эта функция разбирает по кусочкам сообщения и передает работу вашим обработчикам.

ARG hwnd:WORD, wmsg:WORD, wparam:WORD, lparam:DWORD

cmp [wmsg], WM_DESTROY

; Если получили сообщение WM_DESTROY (получено сообщение "на выход")

cmp [wmsg], WM_LBUTTONDOWN

; Если получили сообщение WM_LBUTTONDOWN (нажата левая кнопка мыши)

cmp [wmsg], WM_CREATE

; Если получили сообщение WM_CREATE (получено сообщение "создать окно")

cmp [wmsg], WM_RBUTTONDOWN

; Если получили сообщение WM_RBUTTONDOWN (нажата правая кнопка мыши)

cmp [wmsg], WM_PAINT

; Если получили сообщение WM_PAINT (получено сообщение "нарисуйся")

; Если мы не обрабатываем ни одно из вышеперечисленных сообщений передаем

; управление стандартному обработчику

Процедура обработки сообщения должна обнулять регистровую пару DX:AX перед выходом из обработчика. Эти регистры используется Windows для получения результатов вызова обработчика.

Если переданное сообщение не обрабатывается обработчиком, обязательно нужно передать управление стандартному обработчику. Для того, чтобы это сделать, нужно вызвать функция DEFWINDOWPROC, передав ей в параметрах: идентификатор окна, идентификатор сообщения и параметры.

Теперь когда, все рассказано и показано, приведем пример рабочей программы.

Файл window.asm

; Подключаем файл описания констант и структур API

; Описываем используемые функции

extrn BEGINPAINT:PROC

extrn CREATEWINDOW:PROC

extrn DEFWINDOWPROC:PROC

extrn DISPATCHMESSAGE:PROC

extrn ENDPAINT:PROC

extrn GETMESSAGE:PROC

extrn GETSTOCKOBJECT:PROC

extrn INITAPP:PROC

extrn INITTASK:PROC

extrn LOADCURSOR:PROC

extrn MESSAGEBOX:PROC

extrn POSTQUITMESSAGE:PROC

extrn REGISTERCLASS:PROC

extrn SHOWWINDOW:PROC

extrn TEXTOUT:PROC

extrn TRANSLATEMESSAGE:PROC

extrn UPDATEWINDOW:PROC

extrn WAITEVENT:PROC

Дата добавления: 2014-01-06