.386

.MODEL FLAT, STDCALL

<метка>

end <метка>

ExitProcess proto uExitCode:DWORD

ИмяФункции PROTO [ИмяПараметра]:ТипДанных,[ИмяПараметра]:ТипДанных,...

call ExitProcess

invoke выражение [, аргументы]

invoke ExitProcess, 0

MessageBox PROTO hwnd:DWORD, lpText:DWORD, lpCaption:DWORD, uType:DWORD

lea eax, LocalVar
push eax

 .386
.model flat,stdcall
 
WinMain proto :DWORD,:DWORD,:DWORD,:DWORD
 
include \masm32\include\windows.inc
include \masm32\include\user32.inc
include \masm32\include\kernel32.inc
include \masm32\include\comdlg32.inc
includelib \masm32\lib\user32.lib
includelib \masm32\lib\kernel32.lib
includelib \masm32\lib\comdlg32.lib
 
.const
IDM_OPEN equ 1
IDM_SAVE equ 2
IDM_EXIT equ 3
MAXSIZE equ 260
 
.data
ClassName db "Win32ASMFileMappingClass",0
AppName db "Win32 ASM File Mapping Example",0
MenuName db "FirstMenu",0
 
ofn OPENFILENAME <>
FilterString db "All Files",0,"*.*",0
db "Text Files",0,"*.txt",0,0
buffer db MAXSIZE dup(0)
 
hMaрFile HANDLE 0 ; Указатель на MMF, должен быть инициализирован
; нулем, так как мы также используем его в качестве флага в секции WM_DESTROY
 
.data?
hInstance HINSTANCE ?
CommandLine LPSTR ?
hFileRead HANDLE ? ; Хэндл источника
hFileWrite HANDLE ? ; Хэндл выходного файла
hMenu HANDLE ?
pMemory DWORD ? ; Указатель на данные в исходном файле
SizeWritten DWORD ? ; количество байтов
actually written by WriteFile
 
.code
start: invoke GetModuleHandle, NULL
mov hInstance,eax
invoke GetCommandLine
mov CommandLine,eax
invoke WinMain, hInstance,NULL,CommandLine, SW_SHOWDEFAULT
invoke ExitProcess,eax
 
WinMain proc hInst:HINSTANCE,hPrevInst:HINSTANCE,CmdL­ine:LPSTR,CmdShow:DWORD
LOCAL wc:WNDCLASSEX
LOCAL msg:MSG
LOCAL hwnd:HWND
 
mov wc.cbSize,SIZEOF WNDCLASSEX
mov wc.style, CS_HREDRAW or CS_VREDRAW
mov wc.lpfnWndProc, OFFSET WndProc
mov wc.cbClsExtra,NULL
mov wc.cbWndExtra,NULL
push hInst
pop wc.hInstance
mov wc.hbrBackground,COLOR_WINDOW+1
mov wc.lpszMenuName,OFFSET MenuName
mov wc.lpszClassName,OFFSET ClassName
invoke LoadIcon,NULL,IDI_APPLICATION
mov wc.hIcon,eax
mov wc.hIconSm,eax
invoke LoadCursor,NULL,IDC_ARROW
mov wc.hCursor,eax
invoke RegisterClassEx, addr wc
invoke CreateWindowEx,WS_EX_CLIENTEDGE,ADDR ClassName,ADDR AppName, \
WS_OVERLAPPEDWINDOW,CW_USEDEFAULT,CW_USE­DEFAULT,300,200,NULL,NULL,\
hInst,NULL
mov hwnd,eax
invoke ShowWindow, hwnd,SW_SHOWNORMAL
invoke UpdateWindow, hwnd
.WHILE TRUE
invoke GetMessage, ADDR msg,NULL,0,0
.BREAK .IF (!eax)
invoke TranslateMessage, ADDR msg
invoke DispatchMessage, ADDR msg
.ENDW
mov eax,msg.wParam
ret
WinMain endp
 
WndProc proc hWnd:HWND, uMsg:UINT, wParam:WPARAM, lParam:LPARAM
 
.IF uMsg==WM_CREATE
invoke GetMenu,hWnd ; Получаем хэндл меню
mov hMenu,eax
mov ofn.lStructSize,SIZEOF ofn
push hWnd
pop ofn.hWndOwner
push hInstance
pop ofn.hInstance
mov ofn.lpstrFilter, OFFSET FilterString
mov ofn.lpstrFile, OFFSET buffer
mov ofn.nMaxFile,MAXSIZE
.ELSEIF uMsg==WM_DESTROY
.if hMapFile!=0
call CloseMapFile
.endif
invoke PostQuitMessage,NULL
.ELSEIF uMsg==WM_COMMAND
mov eax,wParam
.if lParam==0
.if ax==IDM_OPEN
mov ofn.Flags, OFN_FILEMUSTEXIST or OFN_PATHMUSTEXIST or OFN_LONGNAMES or\
OFN_EXPLORER or OFN_HIDEREADONLY
invoke GetOpenFileName, ADDR ofn
 
.if eax==TRUE
invoke CreateFile,ADDR buffer,GENERIC_READ ,0,\
NULL,OPEN_EXISTING,FILE_ATTRIBUTE_ARCHIV­E,NULL
mov hFileRead,eax
invoke CreateFileMapping,hFileRead,NULL,PAGE_RE­ADONLY,0,0,NULL
mov hMapFile,eax
mov eax,OFFSET buffer
movzx edx,ofn.nFileOffset
add eax,edx
invoke SetWindowText,hWnd,eax
invoke EnableMenuItem,hMenu,IDM_OPEN,MF_GRAYED
invoke EnableMenuItem,hMenu,IDM_SAVE,MF_ENABLED
.endif
.elseif ax==IDM_SAVE
mov ofn.Flags,OFN_LONGNAMES or OFN_EXPLORER or OFN_HIDEREADONLY
invoke GetSaveFileName, ADDR ofn
.if eax==TRUE
invoke CreateFile,ADDR buffer,GENERIC_READ or \
GENERIC_WRITE,FILE_SHARE_READ or FILE_SHARE_WRITE,NULL,\
CREATE_NEW,FILE_ATTRIBUTE_ARCHIVE,NULL
mov hFileWrite,eax
invoke MapViewOfFile,hMapFile,FILE_MAP_READ,0,0­,0
mov pMemory,eax
invoke GetFileSize,hFileRead,NULL
invoke WriteFile,hFileWrite,pMemory,eax,ADDR SizeWritten,NULL
invoke UnmapViewOfFile,pMemory
call CloseMapFile
invoke CloseHandle,hFileWrite
invoke SetWindowText,hWnd,ADDR AppName
invoke EnableMenuItem,hMenu,IDM_OPEN,MF_ENABLED
invoke EnableMenuItem,hMenu,IDM_SAVE,MF_GRAYED
.endif
.else
invoke DestroyWindow, hWnd
.endif
.endif
.ELSE
invoke DefWindowProc,hWnd,uMsg,wParam,lParam
ret
.ENDIF
xor eax,eax
ret
WndProc endp
 
CloseMapFile PROC
invoke CloseHandle,hMapFile
mov hMapFile,0
invoke CloseHandle,hFileRead
ret
CloseMapFile endp
end start

 invoke CreateFile,ADDR buffer,GENERIC_READ,0,\
NULL,OPEN_EXISTING,FILE_ATTRIBUTE_ARCHIV­E,NULL

 invoke CreateFileMapping,hFileRead,NULL,PAGE_RE­ADONLY,0,0,NULL

 CreateFileMapping proto hFile:DWORD, lpFileMappingAttributes:DWORD,flProtect:­DWORD,\
dwMaximumSizeHigh:DWORD, dwMaximumSizeLow:DWORD, lpName:DWORD

 mov eax,OFFSET buffer
movzx edx,ofn.nFileOffset
add eax,edx
invoke SetWindowText,hWnd,eax

 invoke EnableMenuItem,hMenu,IDM_OPEN,MF_GRAYED
invoke EnableMenuItem,hMenu,IDM_SAVE,MF_ENABLED

 .ELSEIF uMsg==WM_DESTROY
 
.if hMapFile!=0
call CloseMapFile
.endif
invoke PostQuitMessage,NULL

 invoke MapViewOfFile,hMapFile,FILE_MAP_READ,0,0­,0
mov pMemory,eax

 MapViewOfFile proto hFileMappingObject:DWORD,\
dwDesiredAccess:DWORD,\
dwFileOffsetHigh:DWORD,\
dwFileOffsetLow:DWORD,\
dwNumberOfBytesToMap:DWORD

 invoke GetFileSize,hFileRead,NULL

 invoke WriteFile,hFileWrite,pMemory,eax,ADDR SizeWritten,NULL

 invoke UnmapViewOfFile,pMemory

 call CloseMapFile
invoke CloseHandle,hFileWrite

 invoke SetWindowText,hWnd,ADDR AppName

 invoke EnableMenuItem,hMenu,IDM_OPEN,MF_ENABLED
invoke EnableMenuItem,hMenu,IDM_SAVE,MF_GRAYED

.586p
.model tiny
include windows.inc
;for WinXP - 2039 bytes
du 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,0Ah
elseif '&c' eq "\";; \\=обратная косая черта (\)
dw '\'
elseif '&c' eq "r";; \r=возврат каретки
dw 0Dh
elseif '&c' eq "l";; \l=LF
dw 0Ah
elseif '&c' eq "s"
dw 20h
elseif '&c' eq "c"
dw 3Bh
elseif '&c' eq "t";; \t=табуляция*
dw 9
endif
endif
endm
dw 0
endm
; -----------------------------------------------------------------
exebase equ 400000h
MI_OPEN equ 0
MI_SAVE equ 1
MI_SAVEAS equ 2
MI_CLOSE equ 3
MI_NEW equ 4
MI_EXIT equ 5
MAXSIZE equ 260
IDC_MENU equ 30
EditID equ 1
MEMSIZE equ 865535
;------------------------------------------------------------------------
.code
main:
include capito_res.asm
;--------------------------------------------
start: xor ebx,ebx
mov esi,exebase
mov edi,offset wTitle+exebase
;------------------------------
; registering the window class
;------------------------------
invoke RegisterClass,esp,ebx,offset window_procedure+exebase,\
ebx,ebx,esi,ebx,10011h,COLOR_WINDOW+1,ID­C_MENU,edi
;--------------------------+
; creating the main window
;--------------------------+
push ebx
push esi
shl esi,9
invoke CreateWindowEx,WS_EX_CLIENTEDGE,edi,edi,­\
WS_OVERLAPPEDWINDOW or WS_VISIBLE,esi,esi,esi,esi,ebx,ebx
mov ofn.hWndOwner+exebase,eax
invoke GetMenu,eax;eax=hWnd
mov hMenu+exebase,eax
mov ebp,esp
;---------------------------+
;entering the message loop |
;---------------------------+
message_loop: invoke GetMessage,ebp,ebx,ebx,ebx
invoke TranslateMessage,ebp
invoke DispatchMessage,ebp
jmp message_loop
;----------------------+
; the window procedure |
;----------------------+
window_procedure:
hWnd equ dword ptr [ebp+8h]
uMsg equ dword ptr [ebp+0Ch]
wParam equ dword ptr [ebp+10h]
lParam equ dword ptr [ebp+14h]
push ebp
mov ebp,esp
mov eax,uMsg
dec eax
je wmCREATE
dec eax;cmp [uMsg],WM_DESTROY
je wmDESTROY
sub eax,WM_SIZE-WM_DESTROY
je wmSIZE
sub eax,WM_COMMAND-WM_SIZE; cmp [uMsg],WM_COMMAND
je wmCOMMAND
leave
jmp DefWindowProc+exebase
wmSIZE: push TRUE
mov ax,word ptr lParam+2
push eax
mov ax,word ptr lParam
invoke MoveWindow,hwndEdit+exebase,ebx,ebx,eax
jmp wmBYE
wmCREATE: invoke CreateWindowEx,ebx,offset EditClass+exebase,ebx,\
WS_VISIBLE or WS_CHILD or ES_LEFT or ES_MULTILINE or \
ES_AUTOHSCROLL or ES_AUTOVSCROLL,ebx,ebx,ebx,ebx,hWnd,Edit­ID,\
exebase,ebx
mov hwndEdit+exebase,eax
jmp wmBYE
wmCOMMAND: mov eax,wParam
cmp lParam,ebx
jne wmBYE
mov edi,offset ofn+exebase
mov esi,offset buffer+exebase
jmp dword ptr [menu_handlers+eax*4+exebase]
OPEN: mov dword ptr [edi+OPENFILENAME.Flags],OFN_FILEMUSTEXIST or OFN_PATHMUSTEXIST or \
OFN_LONGNAMES or OFN_EXPLORER or OFN_HIDEREADONLY
invoke GetOpenFileName,edi
test eax,eax
je wmBYE
invoke CreateFile,esi,GENERIC_READ or GENERIC_WRITE,\
FILE_SHARE_READ or FILE_SHARE_WRITE,\
ebx,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,­ebx
mov hFile+exebase,eax
;создание в памяти объекта "проекция файла"
invoke CreateFileMapping,eax,ebx,PAGE_READWRITE­,ebx,ebx,ebx
mov hMapFile+exebase,eax
;отображение проекции файла на адресное пространство процесса
invoke MapViewOfFile,eax,FILE_MAP_ALL_ACCESS,eb­x,ebx,ebx
mov pMemory+exebase,eax;pointer for the starting address of mapped file
invoke SendMessage,hwndEdit+exebase,WM_SETTEXT,­ebx,eax;pMemory+exebase
;-----------------------------
invoke CloseHandle,hFile+exebase
movzx eax,word ptr [edi+OPENFILENAME.nFileOffset]
add eax,esi
invoke SetWindowText,hWnd,eax
mov esi,MF_GRAYED
jmp @f
CLOSE: ;уничтожение отображения файла на адресное пространство
invoke UnmapViewOfFile,pMemory+exebase
;закрыть проекцию файла
invoke CloseHandle,hMapFile+exebase
invoke SetWindowText,hwndEdit+exebase,ebx
mov [esi],ebx
invoke SendMessage,hwndEdit+exebase,WM_SETTEXT,­ebx,ebx
mov esi,MF_ENABLED
jmp @f
NEW: jmp wmBYE
SAVEAS: mov dword ptr [edi+OPENFILENAME.Flags],OFN_LONGNAMES or\
OFN_EXPLORER or OFN_HIDEREADONLY
invoke GetSaveFileName,edi;ofn
test eax,eax
je wmBYE
SAVE: invoke CreateFile,esi,GENERIC_READ or GENERIC_WRITE,\
FILE_SHARE_READ or FILE_SHARE_WRITE,ebx,OPEN_ALWAYS,\
FILE_ATTRIBUTE_ARCHIVE,ebx
mov hFile+exebase,eax;file write handle
invoke SendMessage,hwndEdit+exebase,WM_GETTEXT,­MEMSIZE-1,pMemory+exebase
invoke WriteFile,hFile+exebase,pMemory+exebase,­eax,offset SizeWritten+exebase,ebx
;закрыть файл на диске
invoke CloseHandle,hFile+exebase
movzx eax,word ptr [edi+OPENFILENAME.nFileOffset]
add eax,esi
invoke SetWindowText,hWnd,eax
mov esi,MF_ENABLED
@@: invoke EnableMenuItem,hMenu+exebase,ebx,esi
xor esi,1;MF_ENABLED <--> MF_GRAYED
push MI_NEW
pop ebx
@@: invoke EnableMenuItem,hMenu+exebase,ebx,esi
dec ebx
jnz @b
jmp wmBYE
EXIT: invoke DestroyWindow,hWnd
wmBYE: leave
retn 10h
wmDESTROY:;уничтожение отображения файла на адресное пространство
invoke UnmapViewOfFile,pMemory+exebase
;закрыть проекцию файла
invoke CloseHandle,hMapFile+exebase
invoke ExitProcess,ebx
;--------данные------------------------------
wTitle db 'Iczelion Tutorial #13:Memory Mapped Files in MASM',0;name of our window
dOTitle db 'Open File',0
FilterString db 'All Files (*.*)',0,'*.*',0,0
buffer db MAXSIZE dup(0)
ofn OPENFILENAME <sizeof(OPENFILENAME),?,exebase,offset FilterString+exebase,\
?,?,?,offset buffer+exebase,MAXSIZE,0,?,?,?,?,?,?,0,?­,?,?>
EditClass db "edit",0
menu_handlers dd OPEN+exebase,SAVE+exebase,SAVEAS+exebase­,CLOSE+exebase,NEW+exebase,EXIT+exebase
;-------------------------------------------------------------------------------------------
MFR_END equ 80h
MFR_POPUP equ 1
MFT_STRING equ 0
MFS_ENABLED equ 0
MFT_SEPARATOR equ 800h
RT_MENU equ 4
 
POPUP equ 10h
MENUBREAK equ 40h
ENDMENU equ 80h
DS_SETFONT equ 40h
align 4
resource:
Characteristics0 dd 0
TimeDateStamp0 dd 0
MajorVersion0 dw 0
MinorVersion0 dw 0
NumberOfNamedEntries0 dw 0
NumberOfIdEntries0 dw 1
dw RT_MENU,0
dw x-resource,8000h
x:
Characteristics1 dd 0
TimeDateStamp1 dd 0
MajorVersion1 dw 0
MinorVersion1 dw 0;
NumberOfNamedEntries1 dw 0;количество ресурсов с именами
NumberOfIdEntries1 dw 1;количество ресурсов с идентификаторами
;на этом уровне идентификатор ресурсов является идентификатором меню
dw IDC_MENU,0
dw x1-resource,8000h; если во 2-ом слове установлен старший бит - есть ссылка
;на оглавление третьего уровня. В 1-ом слове смещение третьего оглавления
;относительно начала раздела ресурсов
x1:
Characteristics2 dd 0
TimeDateStamp2 dd 0
MajorVersion2 dw 0
MinorVersion2 dw 0;
NumberOfNamedEntries2 dw 0;количество ресурсов с именами
NumberOfIdEntries2 dw 1;количество ресурсов с идентификаторами
;на этом уровне идентификатор ресурсов является идентификатором языка, который
;используется данным ресурсом 16 * SUBLANG_ + LANG_
dw 40Ah,0,x2-resource,0
x2:;struct _IMAGE_RESOURCE_DATA_ENTRY
OffsetToData0 dd menu
Size0 dd end_menu-menu
CodePage0 dd 0
Reserved0 dd 0
menu dw 0, 0,POPUP or MFR_END
du <&File>
dw MFT_STRING or MFS_ENABLED,MI_OPEN
du <Op&en>
dw MFT_STRING or MF_GRAYED,MI_SAVE
du <&Save>
dw MFT_STRING or MF_GRAYED,MI_SAVEAS
du <&Save as>
dw MFT_STRING or MF_GRAYED,MI_CLOSE
du <C&lose>
dw MFT_STRING or MF_GRAYED,MI_NEW
du <&New>
dw MENUBREAK,0,0;NOTEXT
dw MFT_STRING or MFS_ENABLED or MFR_END,MI_EXIT
du <&Exit>
end_menu:
end_resource:
;---------------------------------------------------------------------
import:
;dd 0,0,0,
hFile dd 0;file read handle
hMapFile dd 0;file mapped handle
dd 0,user32_dll
dd user_table
;dd 0,0,0,
hMenu dd 0;menu handle
pMemory dd 0
SizeWritten dd 0;number of bytes actually read or write
dd kernel32_dll
dd kernel_table
hwndEdit dd 0
dd 0,0,comdlg32_dll
dd comdlg_table
dd 0,0,0,0
user_table:
RegisterClass dd _RegisterClass
CreateWindowEx dd _CreateWindowEx
GetMessage dd _GetMessage
DispatchMessage dd _DispatchMessage
DefWindowProc dd _DefWindowProc
DestroyWindow dd _DestroyWindow
SetWindowText dd _SetWindowText
SendMessage dd _SendMessage
MoveWindow dd _MoveWindow
TranslateMessage dd _TranslateMessage
GetMenu dd _GetMenu
EnableMenuItem dd _EnableMenuItem,0
 
kernel_table:
CreateFileMapping dd _CreateFileMapping
MapViewOfFile dd _MapViewOfFile
UnmapViewOfFile dd _UnmapViewOfFile
CreateFile dd _CreateFile
WriteFile dd _WriteFile
CloseHandle dd _CloseHandle
ExitProcess dd _ExitProcess,0
 
comdlg_table:
GetSaveFileName dd _GetSaveFileName
GetOpenFileName dd _GetOpenFileName
dw 0
_RegisterClass db 0,0,'RegisterClassA'
_CreateWindowEx db 0,0,'CreateWindowExA'
_GetMessage db 0,0,'GetMessageA'
_DispatchMessage db 0,0,'DispatchMessageA'
_DefWindowProc db 0,0,'DefWindowProcA'
_DestroyWindow db 0,0,"DestroyWindow"
_SetWindowText db 0,0,'SetWindowTextA'
_GetMenu db 0,0,'GetMenu'
_SendMessage db 0,0,'SendMessageA'
_TranslateMessage db 0,0,'TranslateMessage'
_MoveWindow db 0,0,'MoveWindow'
_EnableMenuItem db 0,0,'EnableMenuItem',0
user32_dll db 'user32'
_CreateFileMapping db 0,0,'CreateFileMappingA'
_MapViewOfFile db 0,0,'MapViewOfFile'
_UnmapViewOfFile db 0,0,'UnmapViewOfFile'
_CreateFile db 0,0,'CreateFileA'
_WriteFile db 0,0,'WriteFile'
_CloseHandle db 0,0,'CloseHandle'
_ExitProcess db 0,0,'ExitProcess',0
kernel32_dll db 'kernel32'
_GetSaveFileName db 0,0,'GetSaveFileNameA'
_GetOpenFileName db 0,0,'GetOpenFileNameA',0
comdlg32_dll db 'comdlg32'
end_import:
end main

Createprocess proto lpApplicationName:DWORD,lpCommandLine:DW­ORD,\
lpProcessAttributes:DWORD,lpThreadAttrib­utes:DWORD,bInheritHandles:DWORD,dwCreat­ionFlags:DWORD,\
lpEnvironment:DWORD, lpCurrentDirectory:DWORD, lpStartupInfo:DWORD, lpProcessInformation:DWORD

 PROCESS_INFORMATION STRUCT
hProcess HANDLE ? ;хэндл дочернего процесса
hThread HANDLE ?;хэндл основной ветви дочернего процесса
dwProcessId DWORD ? ;ID дочернего процесса
dwThreadId DWORD ? ;ID основной ветви
PROCESS_INFORMATION ENDS

 GetExitCodeprocess proto hprocess:DWORD, lpExitCode:DWORD

 TerminateProcess proto hprocess:DWORD, uExitCode:DWORD

 .386
.model flat,stdcall
option casemap:none
 
WinMain proto :DWORD,:DWORD,:DWORD,:DWORD
include \masm32\include\windows.inc
include \masm32\include\user32.inc
include \masm32\include\kernel32.inc
includelib \masm32\lib\user32.lib
includelib \masm32\lib\kernel32.lib
.const
IDM_CREATE_pROCESS equ 1
IDM_TERMINATE equ 2
IDM_EXIT equ 3
 
.data
ClassName db "Win32ASMprocessClass",0
AppName db "Win32 ASM process Example",0
MenuName db "FirstMenu",0
processInfo pROCESS_INFORMATION <&gt;
programname db "msgbox.exe",0
 
.data?
hInstance HINSTANCE ?
CommandLine LpSTR ?
hMenu HANDLE ?
ExitCode DWORD ?; содержит код выхода процесса после
; вызова функции GetExitCodeprocess
.code
start: invoke GetModuleHandle, NULL
mov hInstance,eax
invoke GetCommandLine
mov CommandLine,eax
invoke WinMain, hInstance,NULL,CommandLine, SW_SHOWDEFAULT
invoke Exitprocess,eax
 
WinMain proc hInst:HINSTANCE,hprevInst:HINSTANCE,CmdL­ine:LpSTR,CmdShow:DWORD
LOCAL wc:WNDCLASSEX
LOCAL msg:MSG
LOCAL hwnd:HWND
 
mov wc.cbSize,SIZEOF WNDCLASSEX
mov wc.style, CS_HREDRAW or CS_VREDRAW
mov wc.lpfnWndproc, OFFSET Wndproc
mov wc.cbClsExtra,NULL
mov wc.cbWndExtra,NULL
push hInst
pop wc.hInstance
mov wc.hbrBackground,COLOR_WINDOW+1
mov wc.lpszMenuName,OFFSET MenuName
mov wc.lpszClassName,OFFSET ClassName
invoke LoadIcon,NULL,IDI_AppLICATION
mov wc.hIcon,eax
mov wc.hIconSm,eax
invoke LoadCursor,NULL,IDC_ARROW
mov wc.hCursor,eax
invoke RegisterClassEx, addr wc
invoke CreateWindowEx,WS_EX_CLIENTEDGE,ADDR ClassName,ADDR AppName,\
WS_OVERLAppEDWINDOW,CW_USEDEFAULT,CW_USE­DEFAULT,300,200,NULL,NULL,\
hInst,NULL
 
mov hwnd,eax
invoke ShowWindow, hwnd,SW_SHOWNORMAL
invoke UpdateWindow, hwnd
invoke GetMenu,hwnd
mov hMenu,eax
.WHILE TRUE
invoke GetMessage, ADDR msg,NULL,0,0
.BREAK .IF (!eax)
invoke TranslateMessage, ADDR msg
invoke DispatchMessage, ADDR msg
.ENDW
mov eax,msg.wparam
ret
WinMain endp
Wndproc proc hWnd:HWND, uMsg:UINT, wparam:WpARAM, lparam:LpARAM
LOCAL startInfo:STARTUpINFO
.IF uMsg==WM_DESTROY
invoke postQuitMessage,NULL
.ELSEIF uMsg==WM_INITMENUpOpUp
invoke GetExitCodeprocess,processInfo.hprocess,­ADDR ExitCode
.if eax==TRUE
.if ExitCode==STILL_ACTIVE
invoke EnableMenuItem,hMenu,IDM_CREATE_pROCESS,­MF_GRAYED
invoke EnableMenuItem,hMenu,IDM_TERMINATE,MF_EN­ABLED
.else
invoke EnableMenuItem,hMenu,IDM_CREATE_pROCESS,­MF_ENABLED
invoke EnableMenuItem,hMenu,IDM_TERMINATE,MF_GR­AYED
.endif
.else
invoke EnableMenuItem,hMenu,IDM_CREATE_pROCESS,­MF_ENABLED
invoke EnableMenuItem,hMenu,IDM_TERMINATE,MF_GR­AYED
.endif
.ELSEIF uMsg==WM_COMMAND
mov eax,wparam
.if lparam==0
.if ax==IDM_CREATE_pROCESS
.if processInfo.hprocess!=0
invoke CloseHandle,processInfo.hprocess
mov processInfo.hprocess,0
.endif
invoke GetStartupInfo,ADDR startInfo
invoke Createprocess,ADDR programname,NULL,NULL,NULL,FALSE,\
NORMAL_pRIORITY_CLASS,\
NULL,NULL,ADDR startInfo,ADDR processInfo
invoke CloseHandle,processInfo.hThread
.elseif ax==IDM_TERMINATE
invoke GetExitCodeprocess,processInfo.hprocess,­ADDR ExitCode
.if ExitCode==STILL_ACTIVE
invoke Terminateprocess,processInfo.hprocess,0
.endif
invoke CloseHandle,processInfo.hprocess
mov processInfo.hprocess,0
.else
invoke DestroyWindow,hWnd
.endif
.endif
.ELSE
invoke DefWindowproc,hWnd,uMsg,wparam,lparam
ret
.ENDIF
xor eax,eax
ret
Wndproc endp
end start

 .ELSEIF uMsg==WM_INITMENUpOpUp
invoke GetExitCodeprocess,processInfo.hprocess,­ADDR ExitCode
.if eax==TRUE
.if ExitCode==STILL_ACTIVE
invoke EnableMenuItem,hMenu,IDM_CREATE_pROCESS,­MF_GRAYED
invoke EnableMenuItem,hMenu,IDM_TERMINATE,MF_EN­ABLED
.else
invoke EnableMenuItem,hMenu,IDM_CREATE_pROCESS,­MF_ENABLED
invoke EnableMenuItem,hMenu,IDM_TERMINATE,MF_GR­AYED
.endif
.else
invoke EnableMenuItem,hMenu,IDM_CREATE_pROCESS,­MF_ENABLED
invoke EnableMenuItem,hMenu,IDM_TERMINATE,MF_GR­AYED
.endif

 .if ax==IDM_CREATE_pROCESS
.if processInfo.hprocess!=0
invoke CloseHandle,processInfo.hprocess
mov processInfo.hprocess,0
.endif
invoke GetStartupInfo,ADDR startInfo
invoke Createprocess,ADDR programname,NULL,NULL,NULL,FALSE,\
NORMAL_pRIORITY_CLASS,\
NULL,NULL,ADDR startInfo,ADDR processInfo
invoke CloseHandle,processInfo.hThread

 .elseif ax==IDM_TERMINATE
invoke GetExitCodeProcess,processInfo.hProcess,­ADDR ExitCode
.if ExitCode==STILL_ACTIVE
 
invoke TerminateProcess,processInfo.hProcess,0
.endif
invoke CloseHandle,processInfo.hProcess
mov processInfo.hProcess,0

.586p
.model tiny
include windows.inc
;for WinXP - 1153 bytes
du 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"
DW 0Dh,0Ah
elseif '&c' eq "/"
dw '/'
elseif '&c' eq "r"
dw 0Dh
elseif '&c' eq "l"
dw 0Ah
elseif '&c' eq "s"
dw 20h
elseif '&c' eq "c"
dw 3Bh
elseif '&c' eq "t"
dw 9
endif
endif
endm
dw 0
endm
.code
exebase equ 400000h
MI_PROCESS_CREATE equ 0
MI_PROCESS_TERMINATE equ 1
MI_EXIT equ 2
IDC_MENU equ 30
main:
include capito_res.asm
;---------------------------------------------------------------------
start: xor ebx,ebx
mov esi,exebase
mov edi,offset wTitle+exebase
;------------------------------
; registering the window class
;------------------------------
invoke RegisterClass,esp,ebx,offset window_procedure+exebase,ebx,\
ebx,esi,ebx,10011h,COLOR_WINDOW+1,IDC_ME­NU,edi
; +--------------------------+
; | creating the main window |
; +--------------------------+
push ebx
push esi
shl esi,9
invoke CreateWindowEx,WS_EX_CLIENTEDGE,edi,edi,­\
WS_OVERLAPPEDWINDOW or WS_VISIBLE,esi,esi,300,200,ebx,ebx
invoke GetMenu,eax;[hWnd]
mov hMenu+exebase,eax
mov ebp,esp
; +---------------------------+
; | entering the message loop |
; +---------------------------+
message_loop: invoke GetMessage,ebp,ebx,ebx,ebx
invoke DispatchMessage,ebp
jmp message_loop
; +----------------------+
; | the window procedure |
; +----------------------+
window_procedure:
hWnd equ ebp+8h
uMsg equ ebp+0Ch
wParam equ ebp+10h
lParam equ ebp+14h
enter sizeof(STARTUPINFO),0
mov eax,[uMsg]
mov edi,offset processInfo+exebase
mov esi,offset proExitCode+exebase
dec eax
dec eax; cmp uMsg,WM_DESTROY
je wmDESTROY
sub eax,WM_COMMAND-WM_DESTROY; cmp uMsg,WM_PAINT
je wmCOMMAND
sub eax,WM_INITMENUPOPUP-WM_COMMAND;cmp [uMsg],WM_INITMENUPOPUP
je wmINITMENUPOPUP
leave
jmp DefWindowProc+exebase
 
wmINITMENUPOPUP: invoke GetExitCodeProcess,[edi+PROCESS_INFORMATION.hProcess],esi
xchg eax,ecx
jecxz a2;GetExitCodeProcess_TRUE
cmp dword ptr [esi],STILL_ACTIVE;cmp [proExitCode],STILL_ACTIVE
jne a2; GetExitCodeProcess_STILL_ACTIVE
push ebx
push MF_GRAYED
jmp a5
a2: push MF_GRAYED
push ebx;MF_ENABLED
a5: invoke EnableMenuItem,[hMenu+exebase],ebx;MI_PROCESS_CREATE
invoke EnableMenuItem,[hMenu+exebase],MI_PROCESS_TERMINATE
jmp wmBYE
wmCOMMAND: mov ax,[wParam]
cmp dword ptr [lParam],ebx
jne wmBYE
jmp dword ptr [menu_handlers+eax*4+exebase]
PROCESS_CREATE: cmp [edi+PROCESS_INFORMATION.hProcess],ebx
je pi_hProcess_IS_0;a3;
invoke CloseHandle,[edi+PROCESS_INFORMATION.hProcess]
mov [edi+PROCESS_INFORMATION.hProcess],ebx
pi_hProcess_IS_0: mov esi,esp;[progStartInfo]
invoke GetStartupInfo,esi
invoke CreateProcess,offset progName+exebase,ebx,ebx,ebx,ebx,\
NORMAL_PRIORITY_CLASS,ebx,ebx,esi,edi
invoke CloseHandle,[edi+PROCESS_INFORMATION.hThread]
jmp wmBYE
TERMINATE: invoke GetExitCodeProcess,[edi+PROCESS_INFORMATION.hProcess],esi;proExitCode
cmp dword ptr [esi],STILL_ACTIVE
jne proExitCode_NOT_STILL_ACTIVE;a4;
invoke TerminateProcess,[edi+PROCESS_INFORMATION.hProcess],ebx
proExitCode_NOT_STILL_ACTIVE: invoke CloseHandle,[edi+PROCESS_INFORMATION.hProcess]
mov [edi+PROCESS_INFORMATION.hProcess],ebx;0
jmp wmBYE
EXIT: invoke DestroyWindow,dword ptr [hWnd]
wmBYE: leave
retn 10h
wmDESTROY: invoke ExitProcess,ebx
;--------данные------------------------------
wTitle db 'Iczelion Tutorial #14:Process in MASM',0;name of our window
menu_handlers dd PROCESS_CREATE+exebase, TERMINATE+exebase, EXIT+exebase
progName db 'tut02.exe',0
;-------------------------------------------------------------------------------------------
MFR_END equ 80h
MFR_POPUP equ 1
MFT_STRING equ 0
MFS_ENABLED equ 0
MFT_SEPARATOR equ 800h
RT_MENU equ 4
 
POPUP equ 0010h
MENUBREAK equ 0040h
ENDMENU equ 0080h
DS_SETFONT equ 0040h
align 4
resource:
Characteristics0 dd 0
TimeDateStamp0 dd 0
MajorVersion0 dw 0
MinorVersion0 dw 0
NumberOfNamedEntries0 dw 0
NumberOfIdEntries0 dw 1
dw RT_MENU,0
dw x-resource,8000h
x:
Characteristics1 dd 0
TimeDateStamp1 dd 0
MajorVersion1 dw 0
MinorVersion1 dw 0
NumberOfNamedEntries1 dw 0
NumberOfIdEntries1 dw 1
dw IDC_MENU,0
dw x1-resource,8000h
x1:
Characteristics2 dd 0
TimeDateStamp2 dd 0
MajorVersion2 dw 0
MinorVersion2 dw 0
NumberOfNamedEntries2 dw 0
NumberOfIdEntries2 dw 1
dw 40Ah,0,x2-resource,0
x2:;struct _IMAGE_RESOURCE_DATA_ENTRY
OffsetToData0 dd menu
Size0 dd end_menu-menu
CodePage0 dd 0
Reserved0 dd 0
menu dw 0,0,POPUP or MFR_END
du <&Process>
dw MFT_STRING or MFS_ENABLED,MI_PROCESS_CREATE
du <&Create Process>
dw MFT_STRING or MFS_ENABLED or MF_GRAYED,MI_PROCESS_TERMINATE
du <&Terminate Process>
dw MENUBREAK,0,0;NOTEXT
dw MFT_STRING or MFS_ENABLED or MFR_END,MI_EXIT
du <&Exit>
end_menu:
end_resource:
;---------------------------------------------------------------------
import:
hMenu dd 0 ;menu handle
proExitCode dd 0 ;process exit code
dd 0,user32_dll ,user_table
dd 0,0,0,kernel32_dll,kernel_table
processInfo PROCESS_INFORMATION <0>;dd 0,0,0,0
user_table:
RegisterClass dd _RegisterClass
CreateWindowEx dd _CreateWindowEx
GetMessage dd _GetMessage
DispatchMessage dd _DispatchMessage
DefWindowProc dd _DefWindowProc
DestroyWindow dd _DestroyWindow
GetMenu dd _GetMenu
EnableMenuItem dd _EnableMenuItem,0
 
kernel_table:
GetExitCodeProcess dd _GetExitCodeProcess
GetStartupInfo dd _GetStartupInfo
CreateProcess dd _CreateProcess
TerminateProcess dd _TerminateProcess
CloseHandle dd _CloseHandle
ExitProcess dd _ExitProcess,0
 
_RegisterClass db 0,0,'RegisterClassA'
_CreateWindowEx db 0,0,'CreateWindowExA'
_GetMessage db 0,0,'GetMessageA'
_DispatchMessage db 0,0,'DispatchMessageA'
_DefWindowProc db 0,0,'DefWindowProcA'
_DestroyWindow db 0,0,"DestroyWindow"
_GetMenu db 0,0,'GetMenu'
_EnableMenuItem db 0,0,'EnableMenuItem',0
user32_dll db 'user32'
_GetExitCodeProcess db 0,0,'GetExitCodeProcess'
_GetStartupInfo db 0,0,'GetStartupInfoA'
_CreateProcess db 0,0,'CreateProcessA'
_TerminateProcess db 0,0,'TerminateProcess'
_CloseHandle db 0,0,'CloseHandle'
_ExitProcess db 0,0,'ExitProcess',0
kernel32_dll db 'kernel32'
end_import:
end main

 CreateThread proto lpThreadAttributes:DWORD,dwStackSize:DWO­RD,lpStartAddress:DWORD,\
lpparameter:DWORD,dwCreationFlags:DWORD, lpThreadId:DWORD

 WM_MYCUSTOMMSG equ WM_USER+100h

 .386
.model flat,stdcall
option casemap:none
WinMain proto :DWORD,:DWORD,:DWORD,:DWORD
include \masm32\include\windows.inc
include \masm32\include\user32.inc
include \masm32\include\kernel32.inc
includelib \masm32\lib\user32.lib
includelib \masm32\lib\kernel32.lib
 
.const
IDM_CREATE_THREAD equ 1
IDM_EXIT equ 2
WM_FINISH equ WM_USER+100h
 
.data
ClassName db "Win32ASMThreadClass",0
AppName db "Win32 ASM MultiThreading Example",0
MenuName db "FirstMenu",0
SuccessString db "The calculation is completed!",0
 
.data?
hInstance HINSTANCE ?
CommandLine LpSTR ?
hwnd HANDLE ?
ThreadID DWORD ?
 
.code
start: invoke GetModuleHandle, NULL
mov hInstance,eax
invoke GetCommandLine
mov CommandLine,eax
invoke WinMain, hInstance,NULL,CommandLine, SW_SHOWDEFAULT
invoke Exitprocess,eax
 
WinMain proc hInst:HINSTANCE,hprevInst:HINSTANCE,CmdL­ine:LpSTR,CmdShow:DWORD
LOCAL wc:WNDCLASSEX
LOCAL msg:MSG
 
mov wc.cbSize,SIZEOF WNDCLASSEX
mov wc.style, CS_HREDRAW or CS_VREDRAW
mov wc.lpfnWndproc, OFFSET Wndproc
mov wc.cbClsExtra,NULL
mov wc.cbWndExtra,NULL
push hInst
pop wc.hInstance
mov wc.hbrBackground,COLOR_WINDOW+1
mov wc.lpszMenuName,OFFSET MenuName
mov wc.lpszClassName,OFFSET ClassName
invoke LoadIcon,NULL,IDI_AppLICATION
mov wc.hIcon,eax
mov wc.hIconSm,eax
invoke LoadCursor,NULL,IDC_ARROW
mov wc.hCursor,eax
invoke RegisterClassEx, addr wc
invoke CreateWindowEx,WS_EX_CLIENTEDGE,ADDR ClassName,ADDR AppName,\
WS_OVERLAppEDWINDOW,CW_USEDEFAULT,CW_USE­DEFAULT,300,200,NULL,NULL,\
hInst,NULL
mov hwnd,eax
invoke ShowWindow, hwnd,SW_SHOWNORMAL
invoke UpdateWindow, hwnd
.WHILE TRUE
invoke GetMessage, ADDR msg,NULL,0,0
.BREAK .IF (!eax)
invoke TranslateMessage, ADDR msg
invoke DispatchMessage, ADDR msg
.ENDW
mov eax,msg.wparam
ret
WinMain endp
Wndproc proc hWnd:HWND, uMsg:UINT, wparam:WpARAM, lparam:LpARAM
.IF uMsg==WM_DESTROY
invoke postQuitMessage,NULL
.ELSEIF uMsg==WM_COMMAND
mov eax,wparam
.if lparam==0
.if ax==IDM_CREATE_THREAD
mov eax,OFFSET Threadproc
invoke CreateThread,NULL,NULL,eax,0,ADDR ThreadID
invoke CloseHandle,eax
.else
invoke DestroyWindow,hWnd
.endif
.endif
.ELSEIF uMsg==WM_FINISH
invoke MessageBox,NULL,ADDR SuccessString,ADDR AppName,MB_OK
.ELSE
invoke DefWindowproc,hWnd,uMsg,wparam,lparam
ret
.ENDIF
xor eax,eax
ret
Wndproc endp
 
 
Threadproc proc uses ecx param:DWORD
mov ecx,600000000
Loop1: add eax,eax
dec ecx
jz Get_out
jmp Loop1
Get_out: invoke postMessage,hwnd,WM_FINISH,NULL,NULL
ret
Threadproc endp
end start

 .if ax==IDM_CREATE_THREAD
mov eax,OFFSET Threadproc
invoke CreateThread,NULL,NULL,eax,\
NULL,0,ADDR ThreadID
0invoke CloseHandle,eax

 ThreadProc proc uses ecx param:DWORD
mov ecx,600000000
Loop1: add eax,eax
dec ecx
jz Get_out
jmp Loop1
Get_out: invoke postMessage,hwnd,WM_FINISH,NULL,NULL
ret
ThreadProc endp

 WM_FINISH equ WM_USER+100h

.586p
.model tiny
include windows.inc
;for WinXP - 948 bytes
du 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"
DW 0Dh,0Ah
elseif '&c' eq "/"
dw '/'
elseif '&c' eq "r"
dw 0Dh
elseif '&c' eq "l"
dw 0Ah
elseif '&c' eq "s"
dw 20h
elseif '&c' eq "c"
dw 3Bh
elseif '&c' eq "t"
dw 9
endif
endif
endm
dw 0
endm
.code
exebase equ 400000h
IDM_CREATE_THREAD equ 0
IDM_EXIT equ 1
IDC_MENU equ 30
WM_FINISH equ WM_USER+100h
main:
include capito_res.asm
;---------------------------------------------------------------------
start: xor ebx,ebx
mov esi,exebase
mov edi,offset wTitle+exebase
;------------------------------
; registering the window class
;------------------------------
invoke RegisterClass,esp,ebx,offset window_procedure+exebase,\
ebx,ebx,esi,ebx,10011h,COLOR_WINDOW+1,ID­C_MENU,edi
; +--------------------------+
; | creating the main window |
; +--------------------------+
push ebx
push esi
shl esi,9
invoke CreateWindowEx,WS_EX_CLIENTEDGE,edi,edi,­\
WS_OVERLAPPEDWINDOW or WS_VISIBLE,esi,esi,450,200,ebx,ebx
mov hWnd+exebase,eax
mov ebp,esp
; +---------------------------+
; | entering the message loop |
; +---------------------------+
message_loop: invoke GetMessage,ebp,ebx,ebx,ebx
invoke DispatchMessage,ebp
jmp message_loop
; +----------------------+
; | the window procedure |
; +----------------------+
window_procedure:
hwnd equ dword ptr [ebp+8h]
uMsg equ dword ptr [ebp+0Ch]
wParam equ dword ptr [ebp+10h]
lParam equ dword ptr [ebp+14h]
enter sizeof(STARTUPINFO),0
mov eax,uMsg
dec eax
dec eax; cmp uMsg,WM_DESTROY
je wmDESTROY
sub eax,WM_COMMAND-WM_DESTROY
je wmCOMMAND
sub eax,WM_FINISH-WM_COMMAND
je wmFINISH
leave
jmp DefWindowProc+exebase
wmFINISH: invoke MessageBox,ebx,offset wTitle+exebase,offset wTitle+exebase,ebx
jmp wmBYE
wmCOMMAND: movzx eax,word ptr wParam
cmp lParam,ebx
jne wmBYE
jmp dword ptr [menu_handlers+eax*4+exebase]
CREATE_THREAD: invoke CreateThread,ebx,ebx,offset ThreadProc+exebase,ebx,\
NORMAL_PRIORITY_CLASS,offset ThreadID+exebase
invoke CloseHandle,eax
jmp wmBYE
EXIT: invoke DestroyWindow,hwnd
wmBYE: leave
retn 10h
wmDESTROY: invoke ExitProcess,ebx
menu_handlers dd CREATE_THREAD+exebase,EXIT+exebase
ThreadProc proc
mov ecx,30000000
@@: add eax,eax
loop @b
invoke SendMessage,hWnd+exebase,WM_FINISH,ebx,e­bx
ret
ThreadProc ENDP
;--------данные------------------------------
wTitle db 'Iczelion Tutorial #15: Multithreading Programming',0
;--------------------------------------------------------------
MFR_END equ 80h
MFR_POPUP equ 1
MFT_STRING equ 0
MFS_ENABLED equ 0
MFT_SEPARATOR equ 800h
RT_MENU equ 4
 
POPUP equ 0010h
MENUBREAK equ 0040h
ENDMENU equ 0080h
DS_SETFONT equ 0040h
align 4
resource:
Characteristics0 dd 0
TimeDateStamp0 dd 0
MajorVersion0 dw 0
MinorVersion0 dw 0
NumberOfNamedEntries0 dw 0;количество ресурсов с именами
NumberOfIdEntries0 dw 1;количество ресурсов с идентификаторами
;на этом уровне идентификатор ресурсов является типом ресурса
dw RT_MENU,0;номер типа ресурса
dw x-resource,8000h; если во 2-ом слове установлен старший бит - есть ссылка
;на оглавление второго уровня. В 1-ом слове смещение второго оглавления
;относительно начала раздела ресурсов
x:
Characteristics1 dd 0
TimeDateStamp1 dd 0
MajorVersion1 dw 0
MinorVersion1 dw 0
NumberOfNamedEntries1 dw 0;количество ресурсов с именами
NumberOfIdEntries1 dw 1;количество ресурсов с идентификаторами
;на этом уровне идентификатор ресурсов является идентификатором меню
dw IDC_MENU,0
dw x1-resource,8000h; если во 2-ом слове установлен старший бит - есть ссылка
;на оглавление третьего уровня. В 1-ом слове смещение третьего оглавления
;относительно начала раздела ресурсов
x1:
Characteristics2 dd 0
TimeDateStamp2 dd 0
MajorVersion2 dw 0
MinorVersion2 dw 0
NumberOfNamedEntries2 dw 0;количество ресурсов с именами
NumberOfIdEntries2 dw 1;количество ресурсов с идентификаторами
;на этом уровне идентификатор ресурсов является идентификатором языка, который
;используется данным ресурсом 16 * SUBLANG_ + LANG_
dw 40Ah,0,x2-resource,0
x2:;struct _IMAGE_RESOURCE_DATA_ENTRY
OffsetToData0 dd menu
Size0 dd end_menu-menu
CodePage0 dd 0
Reserved0 dd 0
menu dw 0,0,POPUP or MFR_END
du <&Process>
dw MFT_STRING or MFS_ENABLED,IDM_CREATE_THREAD
du <&Create Thread>
dw MENUBREAK,0,0;NOTEXT
dw MFT_STRING or MFS_ENABLED or MFR_END,IDM_EXIT
du <&Exit>
end_menu:
end_resource:
;---------------------------------------------------------------------
import:
ThreadID dd 0 ;process exit code
hWnd dd 0
dd 0,user32_dll
dd user_table
dd 0,0,0,kernel32_dll
dd kernel_table
dd 0,0,0,0
user_table:
CreateWindowEx dd _CreateWindowEx
DefWindowProc dd _DefWindowProc
DestroyWindow dd _DestroyWindow
DispatchMessage dd _DispatchMessage
GetMessage dd _GetMessage
MessageBox dd _MessageBox
SendMessage dd _SendMessage
RegisterClass dd _RegisterClass,0
kernel_table:
CreateThread dd _CreateThread
CloseHandle dd _CloseHandle
ExitProcess dd _ExitProcess
dw 0
_RegisterClass db 0,0,'RegisterClassA'
_CreateWindowEx db 0,0,'CreateWindowExA'
_GetMessage db 0,0,'GetMessageA'
_DispatchMessage db 0,0,'DispatchMessageA'
_DefWindowProc db 0,0,'DefWindowProcA'
_DestroyWindow db 0,0,"DestroyWindow"
_SendMessage db 0,0,'SendMessageA'
_MessageBox db 0,0,'MessageBoxA',0
user32_dll db 'user32'
_CreateThread db 0,0,'CreateThread'
_CloseHandle db 0,0,'CloseHandle'
_ExitProcess db 0,0,'ExitProcess',0
kernel32_dll db 'kernel32'
end_import:
end main

 CreateEvent proto lpEventAttributes:DWORD,\
bManualReset:DWORD,\
bInitialState:DWORD,\
lpName:DWORD

 .386
.model flat,stdcall
option casemap:none
WinMain proto :DWORD,:DWORD,:DWORD,:DWORD
 
include \masm32\include\windows.inc
include \masm32\include\user32.inc
include \masm32\include\kernel32.inc
includelib \masm32\lib\user32.lib
includelib \masm32\lib\kernel32.lib
 
.const
IDM_START_THREAD equ 1
IDM_STOp_THREAD equ 2
IDM_EXIT equ 3
WM_FINISH equ WM_USER+100h
 
.data
ClassName db "Win32ASMEventClass",0
AppName db "Win32 ASM Event Example",0
MenuName db "FirstMenu",0
SuccessString db "The calculation is completed!",0
StopString db "The thread is stopped",0
EventStop BOOL FALSE
 
.data?
hInstance HINSTANCE ?
CommandLine LpSTR ?
hwnd HANDLE ?
hMenu HANDLE ?
ThreadID DWORD ?
ExitCode DWORD ?
hEventStart HANDLE ?
 
.code
start: invoke GetModuleHandle, NULL
 
mov hInstance,eax
invoke GetCommandLine
mov CommandLine,eax
invoke WinMain, hInstance,NULL,CommandLine, SW_SHOWDEFAULT
invoke ExitProcess,eax
 
WinMain proc hInst:HINSTANCE,hprevInst:HINSTANCE,CmdL­ine:LpSTR,CmdShow:DWORD
LOCAL wc:WNDCLASSEX
LOCAL msg:MSG
 
mov wc.cbSize,SIZEOF WNDCLASSEX
mov wc.style, CS_HREDRAW or CS_VREDRAW
mov wc.lpfnWndproc, OFFSET Wndproc
mov wc.cbClsExtra,NULL
mov wc.cbWndExtra,NULL
push hInst
pop wc.hInstance
mov wc.hbrBackground,COLOR_WINDOW+1
mov wc.lpszMenuName,OFFSET MenuName
mov wc.lpszClassName,OFFSET ClassName
invoke LoadIcon,NULL,IDI_AppLICATION
mov wc.hIcon,eax
mov wc.hIconSm,eax
invoke LoadCursor,NULL,IDC_ARROW
mov wc.hCursor,eax
invoke RegisterClassEx, addr wc
invoke CreateWindowEx,WS_EX_CLIENTEDGE,ADDR ClassName,\
ADDR AppName,WS_OVERLAppEDWINDOW,CW_USEDEFAUL­T,\
CW_USEDEFAULT,300,200,NULL,NULL,hInst,NU­LL
mov hwnd,eax
invoke ShowWindow, hwnd,SW_SHOWNORMAL
invoke UpdateWindow, hwnd
invoke GetMenu,hwnd
mov hMenu,eax
.WHILE TRUE
invoke GetMessage, ADDR msg,NULL,0,0
.BREAK .IF (!eax)
invoke TranslateMessage, ADDR msg
invoke DispatchMessage, ADDR msg
.ENDW
mov eax,msg.wparam
ret
WinMain endp
 
Wndproc proc hWnd:HWND, uMsg:UINT, wparam:WpARAM, lparam:LpARAM
.IF uMsg==WM_CREATE
invoke CreateEvent,NULL,FALSE,FALSE,NULL
mov hEventStart,eax
mov eax,OFFSET Threadproc
invoke CreateThread,NULL,NULL,eax,NULL,0,ADDR ThreadID
invoke CloseHandle,eax
.ELSEIF uMsg==WM_DESTROY
invoke postQuitMessage,NULL
.ELSEIF uMsg==WM_COMMAND
mov eax,wparam
.if lparam==0
.if ax==IDM_START_THREAD
invoke SetEvent,hEventStart
invoke EnableMenuItem,hMenu,IDM_START_THREAD,MF­_GRAYED
invoke EnableMenuItem,hMenu,IDM_STOp_THREAD,MF_­ENABLED
.elseif ax==IDM_STOP_THREAD
mov EventStop,TRUE
invoke EnableMenuItem,hMenu,IDM_START_THREAD,MF­_ENABLED
invoke EnableMenuItem,hMenu,IDM_STOP_THREAD,MF_­GRAYED
.else
invoke DestroyWindow,hWnd
.endif
.endif
.ELSEIF uMsg==WM_FINISH
invoke MessageBox,NULL,ADDR SuccessString,ADDR AppName,MB_OK
.ELSE
invoke DefWindowproc,hWnd,uMsg,wparam,lparam
ret
.ENDIF
xor eax,eax
ret
Wndproc endp
Threadproc proc uses ecx param:DWORD
invoke WaitForSingleObject,hEventStart,INFINITE
mov ecx,600000000
.WHILE ecx!=0
.if EventStop!=TRUE
add eax,eax
dec ecx
.else
invoke MessageBox,hwnd,ADDR StopString,ADDR AppName,MB_OK
mov EventStop,FALSE
jmp Threadproc
.endif
.ENDW
invoke PostMessage,hwnd,WM_FINISH,NULL,NULL
invoke EnableMenuItem,hMenu,IDM_START_THREAD,MF­_ENABLED
invoke EnableMenuItem,hMenu,IDM_STOp_THREAD,MF_­GRAYED
jmp Threadproc
ret
Threadproc endp
end start

 .IF uMsg==WM_CREATE
invoke CreateEvent,NULL,FALSE,FALSE,NULL
mov hEventStart,eax
mov eax,OFFSET Threadproc
invoke CreateThread,NULL,NULL,eax,\
NULL,0,ADDR ThreadID
invoke CloseHandle,eax

 Threadproc proc uses ecx param:DWORD
invoke WaitForSingleObject,hEventStart,INFINITE
mov ecx,600000000

 .if ax==IDM_START_THREAD
invoke SetEvent,hEventStart

 .if EventStop==FALSE
add eax,eax
dec ecx
.else
invoke MessageBox,hwnd,ADDR StopString,ADDR AppName,MB_OK
mov EventStop,FALSE
jmp Threadproc
.endif

.586p
.model tiny
include windows.inc
;for WinXP - 1263 bytes
du 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"
DW 0Dh,0Ah
elseif '&c' eq "/"
dw '/'
elseif '&c' eq "r"
dw 0Dh
elseif '&c' eq "l"
dw 0Ah
elseif '&c' eq "s"
dw 20h
elseif '&c' eq "c"
dw 3Bh
elseif '&c' eq "t"
dw 9
endif
endif
endm
dw 0
endm
.code
exebase equ 400000h
IDM_START_THREAD equ 0
IDM_STOP_THREAD equ 1
IDM_EXIT equ 2
IDC_MENU equ 30
WM_FINISH equ WM_USER+100h
main:
include capito_res.asm
;---------------------------------------------------------------------
start: xor ebx,ebx
mov esi,exebase
mov edi,offset wTitle+exebase
;------------------------------
; registering the window class
;------------------------------
invoke RegisterClass,esp,ebx,offset window_procedure+exebase,\
ebx,ebx,esi,ebx,10011h,COLOR_WINDOW+1,ID­C_MENU,edi
;+--------------------------+
;| creating the main window |
;+--------------------------+
push ebx
push esi
shl esi,9
invoke CreateWindowEx,WS_EX_CLIENTEDGE,edi,edi,­\
WS_OVERLAPPEDWINDOW or WS_VISIBLE,esi,esi,400,200,ebx,ebx
mov hwnd+exebase,eax
invoke GetMenu,eax;[hWnd]
mov hMenu+exebase,eax
invoke CreateEvent,ebx,ebx,ebx,ebx
mov hEventStart+exebase,eax
invoke CreateThread,ebx,ebx,offset ThreadProc+exebase,\
ebx,NORMAL_PRIORITY_CLASS,offset ThreadID+exebase
mov hThread+exebase,eax
mov ebp,esp
;+---------------------------+
;| entering the message loop |
;+---------------------------+
message_loop: invoke GetMessage,ebp,ebx,ebx,ebx
invoke DispatchMessage,ebp
jmp message_loop
;+----------------------+
;| the window procedure |
;+----------------------+
window_procedure:
hWnd equ dword ptr [ebp+8h]
uMsg equ dword ptr [ebp+0Ch]
wParam equ dword ptr [ebp+10h]
lParam equ dword ptr [ebp+14h]
push ebp
mov ebp,esp
mov eax,uMsg
dec eax
dec eax; cmp uMsg,WM_DESTROY
je wmDESTROY
sub eax,WM_COMMAND-WM_DESTROY
je wmCOMMAND
sub eax,WM_FINISH-WM_COMMAND
je wmFINISH
leave
jmp DefWindowProc+exebase
wmDESTROY: invoke ExitProcess,ebx
wmCOMMAND: mov eax,wParam
cmp lParam,ebx
jne wmBYE
jmp dword ptr [menu_handlers+eax*4+exebase]
START_THREAD: invoke SetEvent,hEventStart+exebase
xor esi,esi;esi=MF_GRAYED
inc esi
jmp @f
STOP_THREAD: or EventStop+exebase,TRUE
xor esi,esi;esi=MF_ENABLED
@@: invoke EnableMenuItem,hMenu+exebase,ebx,esi
xor esi,1
invoke EnableMenuItem,hMenu+exebase,IDM_STOP_TH­READ,esi
jmp wmBYE
wmFINISH: invoke MessageBox,ebx,offset SuccessString+exebase,offset wTitle+exebase,ebx;MB_OK=0
jmp wmBYE
EXIT: invoke DestroyWindow,hWnd+exebase
wmBYE: leave
retn 10h
ThreadProc: invoke WaitForSingleObject,hEventStart+exebase,­INFINITE
mov ecx,600000000
@@: cmp EventStop+exebase,ebx;.if EventStop+exebase==FALSE
jne @f
add eax,eax
loop @b
invoke PostMessage,hwnd+exebase,WM_FINISH,ebx,e­bx
invoke EnableMenuItem,hMenu+exebase,ebx,ebx;IDM­_START_THREAD,MF_ENABLED
invoke EnableMenuItem,hMenu+exebase,IDM_STOP_TH­READ,MF_GRAYED
jmp ThreadProc
@@: invoke MessageBox,hwnd+exebase,offset StopString+exebase,offset wTitle+exebase,ebx;MB_OK=0
mov EventStop+exebase,ebx;FALSE
jmp ThreadProc
;--------данные------------------------------
wTitle db 'Iczelion Tutorial #16: ASM Event Example',0;name of our window
menu_handlers dd START_THREAD+exebase, STOP_THREAD+exebase, EXIT+exebase
SuccessString db "The calculation is completed!",0
StopString db "The thread is stopped",0
;-------------------------------------------------------------------------------------------
MFR_END equ 80h
MFR_POPUP equ 1
MFT_STRING equ 0
MFS_ENABLED equ 0
MFT_SEPARATOR equ 800h
RT_MENU equ 4
 
POPUP equ 0010h
MENUBREAK equ 0040h
ENDMENU equ 0080h
DS_SETFONT equ 0040h
align 4
resource:
Characteristics0 dd 0
TimeDateStamp0 dd 0
MajorVersion0 dw 0
MinorVersion0 dw 0;
NumberOfNamedEntries0 dw 0;количество ресурсов с именами
NumberOfIdEntries0 dw 1;количество ресурсов с идентификаторами
;на этом уровне идентификатор ресурсов является типом ресурса
dw RT_MENU,0;номер типа ресурса
dw x-resource,8000h; если во 2-ом слове установлен старший бит - есть ссылка
;на оглавление второго уровня. В 1-ом слове смещение второго оглавления
;относительно начала раздела ресурсов
x:
Characteristics1 dd 0
TimeDateStamp1 dd 0
MajorVersion1 dw 0
MinorVersion1 dw 0;
NumberOfNamedEntries1 dw 0;количество ресурсов с именами
NumberOfIdEntries1 dw 1;количество ресурсов с идентификаторами
;на этом уровне идентификатор ресурсов является идентификатором меню
dw IDC_MENU,0
dw x1-resource,8000h; если во 2-ом слове установлен старший бит - есть ссылка
;на оглавление третьего уровня. В 1-ом слове смещение третьего оглавления
;относительно начала раздела ресурсов
x1:
Characteristics2 dd 0
TimeDateStamp2 dd 0
MajorVersion2 dw 0
MinorVersion2 dw 0;
NumberOfNamedEntries2 dw 0;количество ресурсов с именами
NumberOfIdEntries2 dw 1;количество ресурсов с идентификаторами
;на этом уровне идентификатор ресурсов является идентификатором языка, который
;используется данным ресурсом 16 * SUBLANG_ + LANG_
dw 40Ah,0,x2-resource,0
x2:;struct _IMAGE_RESOURCE_DATA_ENTRY
OffsetToData0 dd menu
Size0 dd end_menu-menu
CodePage0 dd 0
Reserved0 dd 0
menu dw 0,0,POPUP or MFR_END
du <&Thread>
dw MFT_STRING or MFS_ENABLED,IDM_START_THREAD
du <&Run Thread>
dw MFT_STRING or MFS_ENABLED or MF_GRAYED,IDM_STOP_THREAD
du <&Stop Thread>
dw MENUBREAK,0,0;NOTEXT
dw MFT_STRING or MFS_ENABLED or MFR_END,IDM_EXIT
du <&Exit>
end_menu:
end_resource:
;---------------------------------------------------------------------
import:
hMenu dd 0 ;menu handle
EventStop BOOL FALSE
hEventStart dd 0
dd user32_dll
dd user_table
hwnd dd 0
ThreadID dd 0
hThread dd 0
dd kernel32_dll
dd kernel_table
dd 0,0,0,0
user_table:
RegisterClass dd _RegisterClass
PostMessage dd _PostMessage
CreateWindowEx dd _CreateWindowEx
GetMessage dd _GetMessage
DispatchMessage dd _DispatchMessage
DefWindowProc dd _DefWindowProc
DestroyWindow dd _DestroyWindow
GetMenu dd _GetMenu
MessageBox dd _MessageBox
EnableMenuItem dd _EnableMenuItem,0
 
kernel_table:
SetEvent dd _SetEvent
CreateEvent dd _CreateEvent
CreateThread dd _CreateThread
WaitForSingleObject dd _WaitForSingleObject
ExitProcess dd _ExitProcess
dw 0
_RegisterClass db 0,0,'RegisterClassA'
_PostMessage db 0,0,'PostMessageA'
_CreateWindowEx db 0,0,'CreateWindowExA'
_GetMessage db 0,0,'GetMessageA'
_DispatchMessage db 0,0,'DispatchMessageA'
_DefWindowProc db 0,0,'DefWindowProcA'
_DestroyWindow db 0,0,"DestroyWindow"
_GetMenu db 0,0,'GetMenu'
_MessageBox db 0,0,'MessageBoxA'
_EnableMenuItem db 0,0,'EnableMenuItem',0
user32_dll db 'user32'
_SetEvent db 0,0,'SetEvent'
_CreateEvent db 0,0,'CreateEventA'
_CreateThread db 0,0,'CreateThread'
_WaitForSingleObject db 0,0,'WaitForSingleObject'
_ExitProcess db 0,0,'ExitProcess',0
kernel32_dll db 'kernel32'
end_import:
end main

.386
.model flat,stdcall
 
option casemap:none
include \masm32\include\windows.inc
include \masm32\include\user32.inc
include \masm32\include\kernel32.inc
includelib \masm32\lib\user32.lib
includelib \masm32\lib\kernel32.lib
 
 
.data
.code
DllEntry proc hInstDLL:HINSTANCE, reason:DWORD, reserved1:DWORD
mov eax,TRUE
 
ret
DllEntry Endp
 
;----------------------------------------------------------------------------
; Это функция-пустышка - она ничего не делает. Я поместил ее сюда, чтобы
; показать, как вставляют функции в DLL.
;----------------------------------------------------------------------------
TestFunction proc
ret
TestFunction endp
 
 
End DllEntry

 DllEntry proc hInstDLL:HINSTANCE, reason:DWORD, reserved1:DWORD
 
mov eax,TRUE
ret
DllEntry Endp

.386
.model flat,stdcall
option casemap:none
include \masm32\include\windows.inc
include \masm32\include\user32.inc
include \masm32\include\kernel32.inc
includelib \masm32\lib\kernel32.lib
includelib \masm32\lib\user32.lib
 
.data
LibName db "DLLSkeleton.dll",0
FunctionName db "TestHello",0
DllNotFound db "Cannot load library",0
AppName db "Load Library",0
FunctionNotFound db "TestHello function not found",0
 
.data?
hLib dd ? ; хэндл библиотеки (DLL)
TestHelloAddr dd ? ; адрес функции TestHello
 
.code
start: invoke LoadLibrary,addr LibName
;-------------------------------------------------------------------------------
; Вызываем LoadLibrary и передаем имя желаемой DLL. Если вызов проходит успешно,
; будет возвращен хэндл библиотеки (DLL). Если нет, то будет возвращен NULL.
; Вы можете передать хэндл библиотеки функции GetрrocAddress или любой другой
; функции, которая требует его в качестве одного из параметров.
;-------------------------------------------------------------------------------
.if eax==NULL
invoke MessageBox,NULL,addr DllNotFound,addr AppName,MB_OK
.else
mov hLib,eax
invoke GetprocAddress,hLib,addr FunctionName
;------------------------------------------------------------------------------
; Когда вы получаете хэндл библиотеки, вы передаете его GetрrocAddress вместе
; с именем функции в этой dll, которую вы хотите вызвать. Она возвратит адрес
; функции, если вызов пройдет успешно. В противном случае, она возвратит NULL.
; Адреса функций не изменятся, пока вы не перезагрузите библиотеку. Поэтому
; их можно поместить в глобальные переменные для будущего использования.
;------------------------------------------------------------------------------
.if eax==NULL
invoke MessageBox,NULL,addr FunctionNotFound,addr AppName,MB_OK
.else
mov TestHelloAddr,eax
call [TestHelloAddr]
;----------------------------------------------------------------------------
; Затем мы вызываем функцию с помощью call и переменной, содержащей адрес
; функции в качестве операнда.
;----------------------------------------------------------------------------
.endif
invoke FreeLibrary,hLib
;------------------------------------------------------------------------------
; Когда вам больше не требуется библиотека, выгружате ее с помощью FreeLibrary.
;------------------------------------------------------------------------------
.endif
invoke Exitprocess,NULL
end start

.386

.MODEL FLAT, STDCALL

<метка>

end <метка>

 .386
.model flat,stdcall
option casemap:none
include \masm32\include\windows.inc
include \masm32\include\user32.inc
include \masm32\include\kernel32.inc
include \masm32\include\comctl32.inc
includelib \masm32\lib\comctl32.lib
includelib \masm32\lib\user32.lib
includelib \masm32\lib\kernel32.lib
 
WinMain pROTO :DWORD,:DWORD,:DWORD,:DWORD
 
.const
IDC_pROGRESS equ 1 ; control IDs
IDC_STATUS equ 2
IDC_TIMER equ 3
 
.data
ClassName db "CommonControlWinClass",0
AppName db "Common Control Demo",0
progressClass db "msctls_progress32",0 ; the class name of the progress bar
Message db "Finished!",0
TimerID dd 0
 
.data?
hInstance HINSTANCE ?
hwndprogress dd ?
hwndStatus dd ?
CurrentStep dd ?
 
.code
start: invoke GetModuleHandle, NULL
mov hInstance,eax
invoke WinMain, hInstance,NULL,NULL, SW_SHOWDEFAULT
invoke Exitprocess,eax
invoke InitCommonControls
WinMain proc hInst:HINSTANCE,hprevInst:HINSTANCE,CmdL­ine:LpSTR,CmdShow:DWORD
LOCAL wc:WNDCLASSEX
LOCAL msg:MSG
LOCAL hwnd:HWND
 
mov wc.cbSize,SIZEOF WNDCLASSEX
mov wc.style, CS_HREDRAW or CS_VREDRAW
mov wc.lpfnWndproc, OFFSET Wndproc
mov wc.cbClsExtra,NULL
mov wc.cbWndExtra,NULL
push hInst
pop wc.hInstance
mov wc.hbrBackground,COLOR_AppWORKSPACE
mov wc.lpszMenuName,NULL
mov wc.lpszClassName,OFFSET ClassName
invoke LoadIcon,NULL,IDI_AppLICATION
mov wc.hIcon,eax
mov wc.hIconSm,eax
invoke LoadCursor,NULL,IDC_ARROW
mov wc.hCursor,eax
invoke RegisterClassEx, addr wc
invoke CreateWindowEx,WS_EX_CLIENTEDGE,ADDR ClassName,ADDR AppName,WS_OVERLAppED+\
WS_CApTION+WS_SYSMENU+WS_MINIMIZEBOX+WS_­MAXIMIZEBOX+WS_VISIBLE,CW_USEDEFAULT, \
CW_USEDEFAULT,CW_USEDEFAULT,NULL,NULL,hI­nst,NULL
mov hwnd,eax
.while TRUE
invoke GetMessage, ADDR msg,NULL,0,0
.BREAK .IF (!eax)
invoke TranslateMessage, ADDR msg
invoke DispatchMessage, ADDR msg
.endw
mov eax,msg.wparam
ret
WinMain endp
 
Wndproc proc hWnd:HWND, uMsg:UINT, wParam:WPARAM, lParam:LPARAM
.if uMsg==WM_CREATE
invoke CreateWindowEx,NULL,ADDR progressClass,NULL,WS_CHILD+WS_VISIBLE,\
100,200,300,20,hWnd,IDC_pROGRESS,hInstan­ce,NULL
mov hwndprogress,eax
mov eax,1000 ; the lparam of pBM_SETRANGE message contains the range
mov CurrentStep,eax
shl eax,16 ; the high range is in the high word
invoke SendMessage,hwndprogress,pBM_SETRANGE,0,­eax
invoke SendMessage,hwndprogress,pBM_SETSTEp,10,­0
invoke CreateStatusWindow,WS_CHILD+WS_VISIBLE,N­ULL,hWnd,IDC_STATUS
mov hwndStatus,eax
invoke SetTimer,hWnd,IDC_TIMER,100,NULL ; create a timer
mov TimerID,eax
.elseif uMsg==WM_DESTROY
invoke postQuitMessage,NULL
.if TimerID!=0
invoke KillTimer,hWnd,TimerID
.endif
.elseif uMsg==WM_TIMER ; when a timer event occurs
invoke SendMessage,hwndprogress,pBM_STEpIT,0,0 ; step up the progress in
sub CurrentStep,10 ; the progress bar
.if CurrentStep==0
invoke KillTimer,hWnd,TimerID
mov TimerID,0
invoke SendMessage,hwndStatus,SB_SETTEXT,0,addr Message
invoke MessageBox,hWnd,addr Message,addr AppName,MB_OK+MB_ICONINFORMATION
invoke SendMessage,hwndStatus,SB_SETTEXT,0,0
invoke SendMessage,hwndprogress,pBM_SETpOS,0,0
.endif
.else
invoke DefWindowproc,hWnd,uMsg,wparam,lparam
ret
.endif
xor eax,eax
ret
Wndproc endp
end start