МАРК РЕГНЕРУС ДОСЛІДЖЕННЯ: Наскільки відрізняються діти, які виросли в одностатевих союзах
РЕЗОЛЮЦІЯ: Громадського обговорення навчальної програми статевого виховання ЧОМУ ФОНД ОЛЕНИ ПІНЧУК І МОЗ УКРАЇНИ ПРОПАГУЮТЬ "СЕКСУАЛЬНІ УРОКИ" ЕКЗИСТЕНЦІЙНО-ПСИХОЛОГІЧНІ ОСНОВИ ПОРУШЕННЯ СТАТЕВОЇ ІДЕНТИЧНОСТІ ПІДЛІТКІВ Батьківський, громадянський рух в Україні закликає МОН зупинити тотальну сексуалізацію дітей і підлітків Відкрите звернення Міністру освіти й науки України - Гриневич Лілії Михайлівні Представництво українського жіноцтва в ООН: низький рівень культури спілкування в соціальних мережах Гендерна антидискримінаційна експертиза може зробити нас моральними рабами ЛІВИЙ МАРКСИЗМ У НОВИХ ПІДРУЧНИКАХ ДЛЯ ШКОЛЯРІВ ВІДКРИТА ЗАЯВА на підтримку позиції Ганни Турчинової та права кожної людини на свободу думки, світогляду та вираження поглядів
Контакти
Тлумачний словник Авто Автоматизація Архітектура Астрономія Аудит Біологія Будівництво Бухгалтерія Винахідництво Виробництво Військова справа Генетика Географія Геологія Господарство Держава Дім Екологія Економетрика Економіка Електроніка Журналістика та ЗМІ Зв'язок Іноземні мови Інформатика Історія Комп'ютери Креслення Кулінарія Культура Лексикологія Література Логіка Маркетинг Математика Машинобудування Медицина Менеджмент Метали і Зварювання Механіка Мистецтво Музика Населення Освіта Охорона безпеки життя Охорона Праці Педагогіка Політика Право Програмування Промисловість Психологія Радіо Регилия Соціологія Спорт Стандартизація Технології Торгівля Туризм Фізика Фізіологія Філософія Фінанси Хімія Юриспунденкция |
|
|||||||
WNDCLASS STRUCMSGSTRUCT ENDS MSGSTRUCT STRUC RGBS equ (160 or (70 shl 8)) or (100 shl 16) RGBP equ 250 or (100 shl 8) RGBL equ 0 RGBR equ 80 RGBW equ (0 or (100 shl 8)) or (60 shl 16) PS_DASHDOT equ 3 HS_DIAGCROSS equ 5 SW_SHOWNORMAL equ 1 IDC_CROSS equ 32515 IDI_APPLICATION equ 32512 WS_OVERLAPPEDWINDOW equ 000CF0000H CS_GLOBALCLASS equ 4000h CS_HREDRAW equ 2h CS_VREDRAW equ 1h WM_COMMAND equ 111h WM_PAINT equ 0Fh WM_RBUTTONDOWN equ 204h WM_LBUTTONDOWN equ 201h WM_CREATE equ 1 WM_DESTROY equ 2 END START LENSTR ENDP RET 4 LEAVE POP EAX DEC EBX MOV EBX, EDI XOR AL,AL MOV EBX, EDI CLD PUSH EAX ENTER 0,0 LENSTR PROC PUSH 0 JNE L00 JNE L00 CMP BYTE PTR EVENT,KEY_EV JMP L00 PUSH HANDL PUSH OFFSET BUF PUSH EBX PUSH OFFSET LENS PUSH 0 PUSH OFFSET BUF PUSH HANDL PUSH CRD MOV CRD.Y,AX MOV CRD.X,BX JMP L00 JE DOUBLE JNE L001 CMP WORD PTR EVENT, MOUSE_EV PUSH HANDL1 PUSH OFFSET EVENT PUSH 1 PUSH OFFSET SLOVO PUSH HANDL1 PUSH OFFSET BUF PUSH 200 PUSH OFFSET LENS PUSH 0 PUSH HANDL PUSH OFFSET STR2 CALL WriteConsoleA@20 ; чекати виведення консолі CALL ReadConsoleA@20 L00: ; отримання інформації про подію CALL ReadConsoleInputA@16 CMP BYTE PTR EVENT+16, MOUSE_EV DOUBLE: MOV BX,WORD PTR EVENT+4 ;X MOV AX,WORD PTR EVENT+6 ;Y CALL SetConsoleCursorPosition@8 ; виведення рядка CALL LENSTR ; в EBX довжина рядка CALL WriteConsoleA@20 L001: ; перевірка події ; перевірка нажаття кнопки CMP BYTE PTR EVENT+14,27 CALL FreeConsole@0 CALL ExitProcess@4 ; рядок - [EBP+08H] ; довжина в EBX ;-------------- MOV EDI, DWORD PTR [EBP+08H] MOV ECX, 100 ; обмежити довжину рядка REPNE SCASB ; найти символ 0 SUB EDI, EBX ; довжина рядка, включаючи 0 ;-------------- _TEXT ENDS ;директиви компонувальнику для підключення бібліотек includelib C:\masm32\lib\user32.lib includelib C:\masm32\lib\kernel32.lib includelib C:\masm32\lib\gdi32.lib includelib C:\masm32\lib\masm32.lib ;константи ;властивості вікна style equ CS_HREDRAW+CS_VREDRAW+CS_GLOBALCLASS ;ідентифікатор стандартної піктограми ;ідентифікатор курсору ;режим показу вікна — нормальний ;прототипи зовнішніх процедур EXTERN CreateWindowExA@48:NEAR … ;структури MSHWND DD ?;ідентифікатор вікна, що отримує ;повідомлення MSMESSAGE DD ? ;ідентифікатор повідомлення MSWPARAM DD ? ;додаткова інформація про повідомлення MSLPARAM DD ? ;додаткова інформація про повідомлення MSTIME DD ? ;час посилання повідомлення MSPT DD ?;положення курсору, під час посилання ;повідомлення CLSSTYLE DD ? ;стиль вікна CLWNDPROC DD ? ;вказівник на процедуру вікна CLSCEXTRA DD ? ;інформація про додаткові байти для даної ;структури CLWNDEXTRA DD ? ;інформація про додаткові байти для вікна CLSHINSTANCE DD ? ;дескриптор додатка CLSHICON DD ? ;ідентифікатор ікони вікна CLSHCURSOR DD ? ;ідентифікатор курсору вікна CLBKGROUND DD ? ;ідентифікатор пензля вікна CLMENUNAME DD ? ;ім’я-ідентифікатор меню CLNAME DD ? ;специфікує ім'я класу вікон Читайте також:
|
||||||||
|