mirror of
https://github.com/stasenso/SHA256.git
synced 2026-06-26 21:32:43 +03:00
Стас Михайлов WindowsDesktop
77 lines
2.0 KiB
PHP
77 lines
2.0 KiB
PHP
Include include\windows.inc
|
|
Include include\user32.inc
|
|
Include include\kernel32.inc
|
|
;-------------------------------------------------------------------
|
|
;Needed For Debug Window Only
|
|
;Include <masm32.inc>
|
|
;nclude <debug.inc
|
|
;-------------------------------------------------------------------
|
|
IncludeLib user32.lib
|
|
IncludeLib kernel32.lib
|
|
;-------------------------------------------------------------------
|
|
;Needed For Debug Window Only
|
|
;IncludeLib masm32.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
|
|
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
|