Перешёл на masm

This commit is contained in:
Стас Михайлов WindowsDesktop
2021-01-03 17:49:52 +03:00
parent e48e940485
commit ccfb9de3e7
4 changed files with 114 additions and 16 deletions
+43
View File
@@ -14,6 +14,42 @@ IncludeLib kernel32.lib
;IncludeLib debug.lib
.DATA
;Макросы
MAKELANGID macro p:REQ,s:REQ ;Макрос создающий идентификатор языка
m$__langid = (s SHL 10) or p ;
EXITM <m$__langid> ;
endm
; -------------------------------------------------------------------------
DU MACRO name, string
name PROC
DU1 string
name ENDP
ENDM
; -------------------------------------------------------------------------
DU1 MACRO string
LOCAL bslash
bslash=0
IRPC c,<string>
IF bslash EQ 0
IF '&c' EQ "\" ;;управляющая последовательность символов
bslash=1
ELSEIF '&c' GT 127
DB ('&c'- 0B0h), 4 ;;кириллица
ELSE
DW '&c' ;;латиница
ENDIF
ELSE
bslash=0
IF '&c' EQ "n" ;; \n = новая строка
DW 0Dh
ELSEIF '&c' EQ "r";; \r = возврат каретки
DW 0Ah
ENDIF
ENDIF
ENDM
DW 0
ENDM
; -------------------------------------------------------------------------
ClassName DB "MainWinClass",0
szAppName DB "SDI Application",0
MenuName DB "FirstMenu",0
@@ -21,13 +57,20 @@ szFileNew DB "You selected 'New'.",0
szFileOpen DB "You selected 'Open'.",0
szHelpAbout DB "You selected 'About'.",0
DU ButtonClassName,<button>
DU ButtonText,<Запуск>
.DATA?
hInstance HINSTANCE ?
CommandLine LPSTR ?
hMenu HMENU ?
hwndButton HWND ?
.CONST
IDM_FILE_NEW EQU 1
IDM_FILE_OPEN EQU 2
IDM_HELP_ABOUT EQU 3
IDM_FILE_EXIT EQU 4
ButtonID equ 5