| Министерство образования РФ
ИНСТИТУТ ПЕРЕПОДГОТОВКИ КАДРОВ
Уральского государственного технического университета
Кафедра микропроцессорной техники
Оценка проекта
Члены комиссии
Программа демонстрирующая иерархию окон
Windows
Курсовая работа
руководитель: Кулюкин В.П.
слушатель гр.СП-923:
2001г.
Содержание:
Введение
1. Оконные приложения
Windows.
2. Каркасное
Windows-приложение на ассемблере
3. Иерархия окон
4.
«Программа демонстрирующая иерархию окон
Windows»
5.Библиографический список
Введение
В подавляющем большинстве книг о программировании для Windows изложение, как правило, ведется на базе языка C/C++, реже — на базе Pascal. А что же ассемблер — в стороне? Конечно, нет! Мы не раз обращали ваше внимание на правильное понимание места ассемблера в архитектуре компьютера. Любая программа на языке самого высокого уровня в своем внутреннем виде представляет собой последовательность машинных кодов. А раз так, то всегда остается теоретическая возможность написать ту же программу, но уже на языке ассемблера: Непонимание или недооценка такой возможности приводит к тому, что достаточно часто приходится слышать фразу, подобную следующей: «Ах, опять этот ассемблер, но ведь это что-то несерьезное!» Также трудно согласиться с тезисом, который чаще всего следует вслед за этой фразой. Суть его сводится к утверждению того, что мощность современных компьютеров позволяет не рассматривать проблему эффективности функционирования программы в качестве первоочередной. Гораздо легче решить ее за счет увеличения объема памяти, быстродействия центрального процессора и качества компьютерной периферии. Чем обосновать необходимость разработки Windows-приложений на языке ассемблера? Приведем следующие аргументы:
- языке ассемблера позволяет программисту полностью контролировать создаваемый им программный код и оптимизировать его по своему усмотрению;
- компиляторы языков высокого уровня помещают в загрузочный модуль программы избыточную информацию. Эквивалентные исполняемые модули, исходный текст которых написан на языке ассемблера, имеют в несколько раз меньший размер;
- при программировании на ассемблере сохраняется полный доступ к аппаратным ресурсам компьютера;
- приложение, написанное на языке ассемблера, как правило, быстрее загружается в оперативную память компьютера;
- приложение, написанное на языке ассемблера, обладает, как правило, более высокой скоростью работы и реактивностью ответа на действия пользователя. Разумеется, эти аргументы не следует воспринимать, как некоторую рекламную кампанию в поддержку языка ассемблера. Но нельзя забывать и о том, что существует бесконечное множество прикладных задач, ждущих своей очереди на компьютерную реализацию. Далеко не все из этих задач требуют применения тяжеловесных средств разработки, результатом работы которых являются столь же тяжеловесные исполняемые файлы. Многие прикладные задачи могут быть изящно исполнены на языке ассемблера, не теряя привлекательности.
1. Оконные приложения
Windows
.
Windows поддерживает два типа приложений:
- оконное приложение
— строится на базе специального набора функций (API), составляющих графический интерфейс пользователя (GUI, Graphic User Interface). Оконное приложение представляет собой программу, которая весь вывод на экран производит в графическом виде. Первым результатом работы оконного приложения является отображение на экране специального объекта — окна. После того как окно отображено на экране, вся работа приложения направлена на то, чтобы поддерживать его в актуальном состоянии;
Основной тип приложений в Windows — оконные, поэтому с них мы и начнем знакомство с процессом разработки программ для этой операционной системы.
Любое оконное Windows-приложение имеет типовую структуру, основу которой составляет так называемое каркасное приложение.
Это приложение содержит минимально необходимый программный код для обеспечения функционирования полноценного Windows-приложения. Не случайно во всех источниках в качестве первого Windows-приложения рекомендуется изучать и исследовать работу некоторого каркасного приложения, так как именно оно отражает основные особенности взаимодействия программы с операционной системой Windows. Более того, написав и отладив один раз каркасное приложение, вы будете использовать его в необходимую терминологию и сможем больше внимания уделить логике работы Windows-приложения, а не деталям его реализации.
Минимальное приложение Windows состоит из трех частей:
- главной функции;
- цикла обработки сообщений;
- оконной функции.
Выполнение любого оконного Windows-приложения начинается с главной функции.
Она содержит код, осуществляющий настройку (инициализацию) приложения в среде операционной системы Windows. Видимым для пользователя результатом работы главной функции является появление на экране графического объекта в виде окна. Последним действием кода главной функции является создание цикла обработки сообщений.
После его создания приложение становится пассивным и начинает взаимодействовать с внешним миром посредством специальным образом оформленных данных — сообщений.
Обработка поступающих приложению сообщений осуществляется специальной функцией, называемой оконной.
Оконная функция уникальна тем, что может быть вызвана только из операционной системы, а не из приложения, которое ее содержит. Таким образом, Windows-приложение, как минимум, должно состоять из трех перечисленных элементов.
Каркасное Windows-приложение на ассемблере содержит один сегмент данных .data и один сегмент кода . code. Сегмент стека в исходных текстах Windows-приложений непосредственно описывать не нужно. Windows выделяет для стега объем памяти, размер которого задан программистом в файле с расширением . def. Текст листинга 2 достаточно большой. Поэтому для обсуждения разобьем erо комментариями на характерные фрагменты, каждый из которых затем поясним необходимой степенью детализации.
2. Каркасное
Windows
-приложение на ассемблере
<1> ;Пример каркасного приложения для Win32
<2> .386
<3> locals ;разрешает применение локальных меток в программе
<4> .model flat, STDCALL ;модель памяти flat Я
<5> ;STDCALL - передача параметров в стиле С (справа налево),
<6> ; вызываемая процедура чистит за собой стек Ш
<7>
include windowA.inc ;включаемый файл с описаниями базовых структур
;и констант Win32 т
<8> ;Объявление внешними используемых в данной программе функций Win32 (ASCII):
<9> extrn GetModuleHandleA:PROC
<10> extrn GetVersionExA:PROC В
<11> extrn GetCommandLineA:PROC
<12> extrn GetEnvironmentStringsA:PROC
<13> extrn GetEnvironmentStringsA:PROC
<14> extrn GetStartupInfoA:PROC
<15> extrn LoadIconA:PROC
<16> extrn LoadCursorA:PROC
<17> extrn GetStockObject:PROC
<18> extrn RegisterClassExA:PROC
<19> extrn CreateWindowExA:PROC
<20> extrn ShowWindow:PROC
<21> extrn UpdateWindow:PROC
<22> extrn GetMessageA:PROC
<23> extrn TranslateMessage:PROC
<24> extrn DispatchMessageA:PROC
<25> extrn ExitProcess:PROC
<26> extrn PostQuitMessage:PROC
<27> extrn DefWindowProcA:PROC
<28> extrn PlaySoundA:PROC
<29> extrn ReleaseDC:PROC
<30> extrn TextOutA:PROC
<31> extrn GetDC:PROC
<32> extrn BeginPaint:PROC
<33> extrn EndPaint:PROC
<34> ;объявление оконной функции объектом, видимым за пределами данного кода
<35> public WindowProc
<36> .data
<37> hwnd dd 0
<38> hInst dd 0
<39> hdc dd 0
<40> ;lpVersionInformation OSVERSIONINFO <?>
<41> wcl WNDCLASSEX <?>
<42> message MSG <?>
<43> ps PAINTSTRUCT <?>
<44> szClassName db 'Приложение Win32 ',0
<45> szTitleName db 'Каркасное приложение Win32 на ассемблере'.0
<46> MesWindow db 'Это процесс разработки приложения
на ассемблере?'
<47> MesWindowLen= $-MesWindow
<48> playFileCreate db 'create.wav',0
<49> playFilePaint db 'paint.wav',0
<50> playFileDestroy db 'destroy.wav',0
<51> . code
<52> start proc near
<53> ;точка входа в программу:
<54> ;начало стартового кода
<55> ;вызовы расположенных ниже функций можно при необходимости раскомментировать,
<56> :но они не являются обязательными в данной программе
<57> ;вызов BOOL GetVersionEx(LPOSVERSIONINFO lpVersionInformation)
<58> ; push offset lpVersionInformation
<59> ; call GetVersionExA
<60> ;далее можно вставить код для анализа информации о версии Windows
<61> ;вызов LPTSTR GetCommandLine(VOID) - получить указатель на командную строку
<62> ; call GetCommandLineA :врегистре еах адрес
<63> ;вызов LPVOID GetEnvironmentStrings (VOID) - получить указатель
;на блок с переменными окружения
<64> ; call GetEnvironmentStringsA ;врегистре еах адрес
<65> ;вызов VOIDGetStartupInfo(LPSTARTUPINFO lpStartupInfo) ;указатель
;на структуру STARTUPINFO
<66> ; push offset lpStartupInfo
<67> ; call GetStartupInfoA
<68> ;вызов HMODULE GetModuleHandleA (LPCTSTR lpModuleName)
<69> push NULL ;0->GetModuleHandle
<70> call GetModuleHandleA ;получить значение базового адреса,
<71> mov hInst, eax ;no которому загружен модуль.
<72> ;далее hInst будет использоваться в качестве дескриптора данного приложения
<73> ;конец стартового кода
<74> WinMain:
<75>;определить класс окна ATOM RegisterClassEx(CONST WNDCLASSEX *lpWndClassEx),
<76> ; где *lpWndClassEx - адрес структуры WndClassEx
<77> ;для начала инициализируем поля структуры WndClassEx
<78> mov wcl.cbSize,typeWNDCLASSEX -.размер структуры
:в wcl.cbCIZE
<79> mov wcl.style,CS_HREDRAW+CS_VREDRAW
<80> mov wcl.pfnWndProg,offsetWindowProg ;адрес оконной процедуры
<81> mov wcl.cbCisExtra,0
<82> mov wcl.cbWndExtra,0
<83> mov eax,hInst
<84> mov ;дискриптор приложения в поле hInstance структуры wcl
<85> mov wcl.hInstance, eax
<86> ;готовим вызов HICON LoadIcon (HINSTANCE hInstance, LPCTSTR lpIconName)
<87> push IDI_APPLICATION ,-стандартный значок
<88> push 0 ;NULL
<89> саП LoadIconA
<90> mov wcl.hIcon, eax ,-дескриптор значка в поле hIcon I
;структуры wcl
<91> ;готовим вызов HCURSOR LoadCursorA (HINSTANCE hInstance, LPCTSTR M
;lpCursorName)
<92> push IDC_ARROW ,-стандартный курсор - стрелка
<93> push 0
<94> саll LoadCursorA
<95> mov wcl.hCursor,eax ;дескриптор курсора в поле hCursor
;структуры wc1
<96> ;определим цвет фона окна - белый
<97> ;готовим вызов HGDIOBJ GetStockObject(int fnObject)
<98> push WHITE_BRUSH
<99> саП GetStockObject
<100> mov wcl.hbrBackground, eax
<101> mov dword ptrwcl.lpszMenuName, 0 ;без главного меню
<102> mov dwordptrwcl.lpszClassName,offsetszC1assName; имя
;класса окна
<103> mov wcl.hIconSm, 0
<104> ;регистрируем класс окна - готовим вызов RegisterClassExA (&wndclass)
<105> push offset wcl
<106> саП RegisterClassExA
<107> test ax, ах;проверить на успех регистрации класса окна
<108> jz end_cyc1_msg ;неудача
<109> ;создаем окно:
<110> ;готовим вызовHWND CreateWindowExA(DWORDdwExStyle,
LPCTSTR1pClassName,
<111> ; LPCTSTR 1pW1ndowName, DWORD dwStyle, int x, int у, int nWidth,
|;int nHeight,
<112> ; HWND hWndParent, HMENU hMenu, HANDLE hInstance, LPVOID
;lpParam)
<113> push 0 ;lpParam
<114> push hInst ;hInstance
<115> push NULL ;menu
<116> push NULL ;parent hwnd
<117> push CW_USEDEFAULT ;высота окна
<118> push CW_USEDEFAULT ;ширина окна
<119> push CW_USEDEFAULT ;координата у левого верхнего угла
;окна
<120> push CW_USEDEFAULT ;координата х левого верхнего угла
<121> push WS_OVERLAPPEDWINDOW ;стиль окна
<122> push offset szTitleName ;строка заголовка окна
<123> push offset szClassName ;имя класса окна
<124> push NULL
<125> саll CreateWindowExA
<126> mov hwnd,eax ;-дескриптор окна
<127> ;показать окно:
<128> ;готовим вызов BOOL ShowWindow( HWND hWnd, int nCmdShow )
<129> push SW_SHOWNORMAL
<130> push hwnd
<131> call ShowWindow
<132> ;перерисовываем содержимое окна
<133> ;готовим вызов BOOL UpdateWindow( HWND hWnd )
<134> push hwnd
<135> call UpdateWindow
<136> ;запускаем цикл сообщений:
<137> ;готовим вызов BOOL GetMessageA( LPMSG lpMsg, HWND hWnd,
<138> ; UINTwMsgFilterMin,UINTwMsgFilterMax)
<139> cycl_msg:
<140> push 0
<141> push 0
<142> push NULL
<143> push offset message
<144> cal 1 GetMessageA
<145> cmp ах, 0
<146> je end_cycl_msg
<147> ;трансляция ввода с клавиатуры
<148> ;готовим вызов BOOL Trans1ateMessage( CONST MSG *lpMsg )
<149> push offset message
<150> call TranslateMessage
<151> ;отправим сообщение оконной процедуре
<152> ;готовим вызов LONG D1spatchMessage( CONST MSG *lpmsg )
<153> push offset message
<154> call DispatchMessageA
<155> jmp cycl_msg
<156> end_cycl_msg:
<157>
<158> ;выход из приложения
<159> ;готовим вызов VOID ExitProcess( UINT uExitCode )
<160> push NULL
<161> call ExitProcess
<162> start endp
<163> ; - - - - - - - - - - - - --WindowProc-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
<164> WindowProc proc
<165> argP0nwnd:DWORD, PPmes:DWORD, @@wparam:DWORD, @@lparam:DWORD
<166> uses ebx, edi, es1 ;эти регистры обязательно должны сохраняться
<167> local @@hdc:DWORD
<168> cmp @@mes, WM_DESTROY
<169> je wmdestroy
<170> cmp @@mes, WM_CREATE
<171> je wmcreate
<172> cmp @@mes, WM_PAINT
<173> je wmpaint
<174> jmp default
<175> wmcreate:
<176> ;обозначим создание окна звуковым эффектом
<177> ;готовим вызов функции BOOL PlaySound(LPCSTR pszSound, HMODULE hmod, DWORD
;fdwSound )
<178> push SND_SYNC+SND_FILENAME
<179> push NULL
<180> push offset playFileCreate
<181> call PlaySoundA
<182> mov eax, О;возвращаемое значение - 0
<183> jmp exit_wndproc
<184> wmpaint:
<185> push SND_SYNC+SND_FILENAME
<186> push NULL
<187> push offset playFIilePaint
<188> call P1aySoundA
<189>;получим контекст устройства HDC BeginPaint(HWND nwnd,LPPAINTSTRUCT;LPpAINT)
<190> push offset ps
<191> push @@hwnd
<192> call BeginPaint
<193> mov @@hdc,eax
<194> ;выведем строку текста в окно BOOL TextOut( HDC hdc. int nXStart, int
:nYStart.
<195> ; LPCTSTR lpString, int cbString )
<196> push MesWindowLen
<197> push offset MesWindow
<198> push 100
<199> push 10
<200> push @@hdc
<201> call TextOutA
<202> :ocвoбoдитькoнтeкcтBOOLEndPaint( HWNDhWnd, CONSTPAINTSTRUCT*lpPai <203> push offset ps
<204> push @@hdc
<205> call EndPaint
<206> mov еах,0;возвращаемое значение-0
<207> jmp exit_wndproc
<208> wmdestroy:
<209> push SND_SYNC+SND_FILENAME
<210> push NULL
<211> push offset playFileDestroy
<212> call PlaySoundA
<213> ;послать сообщение WМ_QUIТ
<214> ;готовим вызов VOID PostQuitMessage( int nExitCode )
<215> push 0
<216> call PostQuitMessage
<217> mov eax, О;возвращаемое значение - 0
<218> jmp exit_wndproc
<219> default:
<220> ; обработка по умолчанию
<221>;готовим вызов LRESULTDefWindowProc( HWND hWnd, UINTMsg,
<222> ; WPARAMwParam,LPARAMlParam)
<223> push @@lparam
<224> push @@wparam
<225> push @@mes
<226> push @@nwnd
<227> call DefWindowProcA
<228> jmp exit_wndproc
<229> ;... ... ...
<230> exit_wndproc:
<231> ret
<232> WindowProc endp
<233> end start
3.
Иерархия
окон
Изучив по дисциплине «Системное программное обеспечение» написание окон Windows на языке Assembler и рассматривая графическую оконную систему нельзя обойтись без подробного рассмотрения того, какие окна можно отображать на экране.
Тип окна задается 32-битовым без знаковым целым числом, которое указывается третьим параметром вызова функции Create Window.
Существует всего лишь три основных типа окон Window.
1 тип. Перекрывающиеся окна. Флаг WS_OVERLAPPED.
2 тип. Вспомогательные окна. Флаг WS_POPUP.
3 тип. Дочерние окна. . Флаг WS_CHILD.
Для написания курсового проекта, который имеет тему «Программа демонстрирующая иерархию окон Windows» были использованы именно эти типы окон.
Нужно о них помнить следующее что:
· Перекрывающееся окно никогда не имеет родителя
· Дочернее окно всегда имеет родителя.
· Вспомогательное окно может иметь и не иметь родителя; если оно имеет родителя, то все равно это не дочернее, а вспомогательное окно.
И
з всех концепций системы управления окнами наиболее фундаментальной является отношение предок/ потомок/ сосед. Как мы видели при описании структуры данных WND, каждое окно содержит логический номер окна своего предка, логический номер своего первого дочернего окна и логический номер следующего соседнего окна. Соседними являются окна, имеющие одинаковое родительское окно. В действительности значения HWND являются просто ближними указателями в локальной "куче" модуля USER, поэтому вы можете рассматривать их как указатели связного списка, которые позволяют обходить пути в иерархии окон. Иерархия окон, создаваемая модулем USER, показана на рис.1.
Иерархия окон обходится во всех трех направлениях - от предка к потомку, от потомка к предку и от соседа к соседу. Примеры обхода иерархии включают следующее:
• При уничтожении окна модуль USER должен уничтожить всех его потомков, а также их потомков. USER обходит всю иерархию, используя поля hWndChild и hWndNext- Напомним, логические номера окон являются просто ближними указателями в локальной "куче" модуля USER.
• Когда происходит передача фокуса ввода при нажатии клавиши Tab между элементами управления в окне диалога (которые являются потомками окна диалога), указатели на соседнее окна (или поле hWndNext) соединяют друг с другом элементы управления. Кроме того, упорядочение окон в списке hWndChild и hWndNext отражает Z-порядок окон на экране. Z-порядок представляет собой относительную позицию окон в третьем измерении (в направлении от экрана к вам). Если вы щелчком кнопки мыши выбираете различные основные окна;
чтобы поместить их в вершину Z-порядка, их относительные позиции в списке hWndNext сдвигаются.
Рис..1 Иерархия окон, созданная модулем USER.
• Когда с помощью щелчка кнопки мыши вы выбираете диалоговое управляющее окно, это приводит к тому, что менеджер диалогов просмаривает цепочку указателей предка, чтобы посмотреть, необходимо ли сделать активным окно приложения верхнего уровня (основное).
В корне дерева окон находится desktop-окно. Это окно покрывает весь экран и всегда находится на вершине Z-порядка. Это означает, что оно всегда находится позади всех других окон. Desktop-окно является первым созданным окном, и это единственное окно в системе, которое не имеет окна родителя или владельца. (Окна-владельцы описаны далее.) Окраска окна фона отвечает за "обои" Windows.
Desktop-окно ничем особенным не выделяется в смысле установки специальных битов или т.п. Оно создается с битами стиля (обсуждаются ниже) WS_POPUP и WS_CLIPCHILDREN. Нет никакого недокументированного бита стиля WS_DESKTOP. Вместо этого логический номер desktop-окна сохраняется в глобальной переменной модуля USER с именем HWndDesktop. Когда системе управления окнами нужно знать, имеет ли она дело с desktop-окном, она просто сравнивает HWND, о котором идет речь, с HWndDesktop. Вы можете получить значение переменной HWndDesktop, используя документированную API-функцию GetDesktopWindow().
ВЛАДЕНИЕ ОКНАМИ В Windows
Наряду с отношением предок/потомок. Windows также поддерживает совершенно другое понятие владения. Каждое окно имеет поле в своей структуре данных, которое содержит логический номер окна, которое владеет этим окном. В отличии от отношения предок/потомок, отношение владения окна является однонаправленным. Окну известен логический номер его окна-владельца, но оно не знает логических номеров окон, которыми оно владеет.
Владелец окна - это окно, которое получает уведомления для окна, которым оно владеет. Например, когда вы создаете окно меню WS_POPUP с помощью функции TrackPopupMenu(), вы задаете владельца окна. Владелец окна получает сообщение WM_COMMAND, порождаемое при выборе пункта меню. Важно отметить, что в общем случае родительское окно и владелец окна совершенно различны. Отношение предок/потомок устанавливает, где в иерархии окон находится окно, тогда как владелец окна определяет, какие окна получают уведомления, предназначенные для окон, которыми они владеют.
Особенность вышеприведенного правила относится и к окнам WS_CHILD. Для окон WS_CHILD владелец HWND в структуре WND дочернего окна равен нулю, и вместо него уведомительные сообщения посылаются родительскому окну. Например, кнопка в окне диалога является потомком главного диалогового окна. Когда вы нажимаете кнопку, окно кнопки уведомляет об этом событии своего предка, т.е. главное диалоговое окно. Вы можете считать, что для ws_child-okhb логический номер hWndOwner — то же самое, что и hWndParenfc, хотя на самом деле они различны. В Presentati
on Manager нет необходимости в битах WS_CHILD или РWS_POPUP. Заполняется как поле hWndPa-rent, так и поле hWndOwner. Это полностью определяет, кто получает уведомительные сообщения потомка, а также положение окна в иерархии. В Presentation Manager поля hWndParent и hWndOw-ner обычно содержат одно и то же значение HWND.
Кроме посылки уведомлений своему владельцу, окно, которым владеют, также всегда расположено впереди окна-владельца. Если окно превращено в пиктограмму, то же происходит и с окнами, которыми оно владеет. Если окно-владелец уничтожается, тто окна, которыми оно владеет, также уничтожаются. Так как окно не следит за окнами, которыми оно владеет, нужно просматривать списки указателей предок/сосед и сравнивать владельца каждого окна с HWND окна, которое уничтожается.
Во всем этом немного странно то, что Windows не делает отношение владения очень явным. Хотя в документации SDK кратко рассматривается отношение владения, вам довольно трудно увидеть, в каких местах отношение владения отличается от отношения предок/потомок. В Presentation Manager OS/2 при создании окна вы задаете и родительское окно, и окно-владелец. В Windows вы задаете только предка.
Если функции CreateWindow() передается только HWND родителя, как тогда вам описать окно владельца в Windows? Одним из параметров функции CreateWindow() является битовая маска стиля. Если стиль окна WS_CHILD, параметр hWndParent интерпретируется как родительское окно. Однако, если вы задаете WS_OVERLAPPED или WS_POPUP, параметр hWndParent в действительность используется как владелец HWND, что позднее проясняется в некотором псевдокоде. Родительским окном для окон WS_OVERLAPPED или WS_POPUP всегда является HWND desktop-окна (HWndDes
ktop).
3.
«Программа демонстрирующая иерархию окон
Windows
»
p386; эта директива разрешает транслятору обрабатывать команды процессора i 386
jumps;транслятор автоматически преобразует команду условной передачи управления
;в комбинацию условной и безусловной команды, если условная в силу ограниченности ;области своего действия не обеспечивает передачу управления по нужному адресу
model flat,STDCALL;выбирает модель памяти для 32-разрядного программирования и ;правила передачи параметров функции STDCALL, далее действующие по умолчанию
UNICODE = 0
include win32.inc;файл, содержащий описание структур данных и констант
; some 32-bit constants and structures
L equ <LARGE>; последовательности символов LARGE, являющейся именем операции, объявляющей следующий за ней операнд 32-разрядным, присваивается имя L
Define the external functions we will be linking to
;
extrn BeginPaint:PROC;
описание импортируемых из Windows функций
extrn CreateWindowExA:PROC
extrn DefWindowProcA:PROC
extrn DispatchMessageA:PROC
extrn EndPaint:PROC
extrn ExitProcess:PROC
extrn GetMessageA:PROC
extrn GetModuleHandleA:PROC
extrn GetStockObject:PROC
extrn InvalidateRect:PROC
extrn LoadCursorA:PROC
extrn LoadIconA:PROC
extrn MessageBeep:PROC
extrn MessageBoxA:PROC
extrn PostQuitMessage:PROC
extrn RegisterClassA:PROC
extrn ShowWindow:PROC
extrn SetWindowPos:PROC
extrn TextOutA:PROC
extrn TranslateMessage:PROC
extrn UpdateWindow:PROC
extrn FindFirstFileA:PROC
.data;предопределенное имя, означающее начало сегмента данных
newhwnd dd 0
lppaint PAINTSTRUCT <?>
msg MSGSTRUCT <?>
wc WNDCLASS <?>
hInst dd 0
szTitleName db 'Это окно УГТУ',0
szTitleName1 db 'Это окно группы СП-923',0 ;'Каркасное приложение Win32 на ассемблере'.0
szClassName db 'ASMCLASS32',0 ;'Приложение Win32’
Buffer db 'Привет из Нягани!',0
new1hwnd dd 0
MSG_L EQU 14
.code
start:
push L 0
call GetModuleHandleA ; get hmod (in eax)
mov [hInst], eax ; hInstance is same as HMODULE
; in the Win32 world
reg_class:
;
; initialize the WndClass structure ;Иинициализация сруктуры WndClass
;
mov [wc.clsStyle], CS_HREDRAW + CS_VREDRAW + CS_GLOBALCLASS;тип ;класса
mov [wc.clsLpfnWndProc], offset WndProc; адрес оконной процедуры
mov [wc.clsCbClsExtra], 0
mov [wc.clsCbWndExtra], 0
mov eax, [hInst]
mov [wc.clsHInstance], eax ;дикриптор модуля
push L IDI_APPLICATION;заданная по умолчанию пиктограмма
push L 0
call LoadIconA
mov [wc.clsHIcon], eax
push L IDC_ARROW
push L 0
call LoadCursorA
mov [wc.clsHCursor], eax
mov [wc.clsHbrBackground], COLOR_WINDOW + 1
mov dword ptr [wc.clsLpszMenuName], 0
mov dword ptr [wc.clsLpszClassName], offset szClassName
push offset wc
call RegisterClassA
push L 0 ; lpParam
push [hInst] ; hInstance
push L 0 ; menu
push L 0 ; parent hwnd
push L CW_USEDEFAULT ; height
push L CW_USEDEFAULT ; width
push L CW_USEDEFAULT ; y
push L CW_USEDEFAULT ; x
push L WS_OVERLAPPEDWINDOW ; Style
push offset szTitleName ; Title string
push offset szClassName ; Class name;имя класса
push L 0 ; extra style
call CreateWindowExA
mov [newhwnd], eax
push L SW_SHOWNORMAL
push [newhwnd]
call ShowWindow
push [newhwnd]
call UpdateWindow
push L 0 ; lpParam
push [hInst] ; hInstance
push L 0 ; menu
push L [newhwnd] ; parent hwnd
push L CW_USEDEFAULT ; height
push L CW_USEDEFAULT ; width
push L CW_USEDEFAULT ; y
push L CW_USEDEFAULT ; x
push L WS_OVERLAPPEDWINDOW ; Style
push offset szTitleName1 ; Title string
push offset szClassName ; Class name
push L 0 ; extra style
call CreateWindowExA
mov [new1hwnd], eax
push L SW_SHOWNORMAL
push [new1hwnd]
call ShowWindow
push [new1hwnd]
call UpdateWindow
msg_loop:
push L 0
push L 0
push L 0
push offset msg
call GetMessageA
cmp ax, 0
je end_loop
push offset msg
call TranslateMessage
push offset msg
call DispatchMessageA
jmp msg_loop
end_loop:
push [msg.msWPARAM]
call ExitProcess
; we never get to here
;оконная процедура
;-----------------------------------------------------------------------------
WndProc proc uses ebx edi esi, hwnd:DWORD, wmsg:DWORD,\
wparam:DWORD, lparam:DWORD
;
; WARNING: Win32 requires that EBX, EDI, and ESI be preserved! We comply
; with this by listing those regs after the 'uses' statement in the 'proc'
; line. This allows the Assembler to save them for us.
;
LOCAL hDC:DWORD
cmp [wmsg], WM_DESTROY
je wmdestroy
cmp [wmsg], WM_SIZE
je wmsize
cmp [wmsg], WM_CREATE
je wmcreate
cmp [wmsg],WM_PAINT
je wmpaint
jmp defwndproc
wmcreate:
mov eax, 0
jmp finish
defwndproc:
push [lparam]
push [wparam]
push [wmsg]
push [hwnd]
call DefWindowProcA
jmp finish
wmdestroy:
push L 0
call PostQuitMessage
mov eax, 0
jmp finish
wmsize:
mov eax, 0
jmp finish
wmpaint:
push offset lppaint
push [hwnd]
call BeginPaint
mov [hDC],eax
push L 17
; push ecx
push offset Buffer
push L 5
push L 5
push [hDC]
call TextOutA
push offset lppaint
push [hwnd]
call EndPaint
mov eax,0
jmp finish
finish:
ret
WndProc endp
;-----------------------------------------------------------------------------
public WndProc
end start
Библиографический список
1. Использование Turbo Assembler при разработке программ / Составитель А.А. Чекатков. Киев: Диалектика, 1995.
2. Рихтер Д. Windows для профессионалов ( программирование в Win32 API для Windows
NT 3.5 и Windows 95) пер. С англ. М.: Издательский отдел «Русский Редакция» ТОО «Channel Trading Ltd», 1995.
3. Зубков С.В. Assembler. Для DOS, Windows и Unix. М. : ДМК. 1999.
|