Прокомментировать программу

.486
.model flat, stdcall
option casemap :none
 
include \masm32\include\windows.inc
include \masm32\include\user32.inc
include \masm32\include\kernel32.inc
include \masm32\include\gdi32.inc
 
include \masm32\include\DateTime.inc
includelib \masm32\lib\DateTime.lib
 
 
includelib \masm32\lib\user32.lib
includelib \masm32\lib\kernel32.lib
includelib \masm32\lib\gdi32.lib
 
WinMain proto WORD,WORD,WORD,WORD
 
 
.const
Seven equ 7
.data    ;инициализация данных
szClassName db "Clock",0;имя класса
szAppName db "Clock",0;имя будущего exe-файла
szFontName db "Arial White",0;фон выводимых букв
stringlen DWORD 20;дилна 
textname db "Лала ",0;текстовые переменные
textname2 db "Лала ",0;текстовые переменные
textname3 db "Лала",0;текстовые переменные
AlIGN 8;
pdt DATETIME 1 dup(0)
ALIGN 8
string BYTE 1 dup(0)
;
 
 
.data?
hInstance dd ?
CommandLine dd ?
stm SYSTEMTIME <?>
dPosX dd ?
dPosY dd ?
NowRect RECT <?>
.code
start:
invoke GetModuleHandle,NULL
mov hInstance,eax
invoke GetCommandLine
mov CommandLine,eax
invoke WinMain,hInstance,NULL,CommandLine,SW_SHOWDEFAULT
invoke ExitProcess,NULL
;формирование exe-файла 
WinMain proc hInst:HINSTANCE,hPrevInst:HINSTANCE,CmdLine:LPSTR,CmdShowW ORD
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,NULL;
mov wc.lpszClassName,offset szClassName;
invoke LoadIcon,hInst,IDI_APPLICATION;вызов иконки загрузки
mov wc.hIcon,eax;
mov wc.hIconSm,eax;
invoke LoadCursor,NULL,IDC_ARROW;вызов загрузки курсора
mov wc.hCursor,eax;
invoke RegisterClassEx,addr wc;
invoke GetSystemMetrics,SM_CXSCREEN;
sub eax,480;
invoke CreateWindowEx,NULL,addr szClassName,addr szAppName,\;формирование фигуры размером 310х300
WS_POPUP,eax,0,310,300,NULL,NULL,hInst,NULL;
mov hwnd,eax;
invoke ShowWindow,hwnd,SW_SHOWNORMAL    ;вызов функции показа формы
invoke UpdateWindow,hwnd;
.while TRUE
invoke GetMessage,addr msg,0,0,0
.break .if (!eax)
invoke TranslateMessage,addr msg
invoke DispatchMessage,addr msg
.endw
mov eax,msg.wParam
ret
WinMain endp
;формирование фона и сам вывод времени
WndProc proc hWndWORD,uMsgWORD,wParamWORD,lParamWORD
LOCAL hdc:HDC
LOCAL ps:PAINTSTRUCT
LOCAL hfont:HFONT
 
.if uMsg==WM_CREATE
invoke SetTimer, hWnd, 1d, 1000d, 0
invoke GetWindowLong,hWnd,GWL_EXSTYLE
or eax,WS_EX_LAYERED or WS_EX_NOACTIVATE
invoke SetWindowLong,hWnd,GWL_EXSTYLE,eax
invoke SetLayeredWindowAttributes,hWnd,00FFFF00h,54,LMA_ALPHA or LMA_COLORKEY
invoke GetSystemTime,addr stm   
.elseif uMsg == WM_TIMER
 
invoke InvalidateRect, hWnd, 0, FALSE
 
.elseif uMsg==WM_PAINT
invoke BeginPaint,hWnd, ADDR ps
mov hdc,eax
invoke CreateFont,70,35,0,0,100,TRUE,0,0,DEFAULT_CHARSET,\;фон размер и шрифт выводимых данных
OUT_DEFAULT_PRECIS,CLIP_DEFAULT_PRECIS,\
DEFAULT_QUALITY,DEFAULT_PITCH or FF_SCRIPT,ADDR szFontName
invoke SelectObject, hdc, eax
mov hfont,eax   
 
 
 
 
push OFFSET pdt  ;вызов системного времени и даты
call GetLocalDateTime
push OFFSET string
push OFFSET pdt
call DateTimeToTimeString
 
 
;вывод времени на экран
invoke SetTextColor,hdc,00FFA000h
invoke TextOut,hdc,5,0,addr string,stringlen 
;вывод фамилии на экран
 
invoke SetTextColor,hdc,00FF0000h
invoke TextOut,hdc,35,80,addr textname,stringlen 
;вывод имени
invoke SetTextColor,hdc,00FF000h
invoke TextOut,hdc,35,160,addr textname2,stringlen
;вывод группы
invoke SetTextColor,hdc,00FF0A0h
invoke TextOut,hdc,0,240,addr textname3,stringlen
 
 
invoke EndPaint,hWnd, ADDR ps
.elseif uMsg==WM_NCHITTEST
invoke DefWindowProc,hWnd,uMsg,wParam,lParam
.if eax==HTCLIENT
mov eax,HTCAPTION
.endif
ret
.elseif uMsg==WM_CLOSE
invoke DestroyWindow,hWnd
.elseif uMsg==WM_DESTROY
invoke PostQuitMessage,NULL
.else
invoke DefWindowProc,hWnd,uMsg,wParam,lParam
ret
.endif
 
xor eax,eax
ret
WndProc endp
;
AfterPaint proc hWndWORD
LOCAL WinRect:RECT
;переместить окно на задний план
invoke GetWindowRect,hWnd,addr WinRect
mov eax,WinRect.right
sub eax,WinRect.left
mov ebx,WinRect.bottom
sub ebx,WinRect.top
invoke SetWindowPos,hWnd,HWND_BOTTOM,WinRect.left,WinRect.top,eax,e bx,SWP_SHOWWINDOW
ret
AfterPaint endp
end start