home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.sberbank.sumy.ua
/
2014.11.ftp.sberbank.sumy.ua.tar
/
ftp.sberbank.sumy.ua
/
incoming
/
1
/
timedir.asm
< prev
next >
Wrap
Assembly Source File
|
2014-02-08
|
1KB
|
60 lines
.386
.model flat, stdcall
option casemap :none ; case sensitive
include \masm32\include\windows.inc
include \masm32\include\kernel32.inc
include \masm32\include\user32.inc
include \masm32\macros\macros.asm
includelib \masm32\lib\kernel32.lib
includelib \masm32\lib\user32.lib
CreateCurrentDateDirectoryLoc PROTO
.data
EVK db "Evgeney Victorovich Kupin 27 April 1982",0
.code
start:
invoke CreateCurrentDateDirectoryLoc
exit
CreateCurrentDateDirectoryLoc proc
LOCAL cBuffer[100]:BYTE
LOCAL cFormatTime[20]:BYTE
LOCAL sysTime:SYSTEMTIME
LOCAL Month:DWORD
LOCAL Day:DWORD
LOCAL Year:DWORD
mov DWORD PTR cFormatTime[0], "d20%"
mov DWORD PTR cFormatTime[4], "d20%"
mov DWORD PTR cFormatTime[8], "d40%"
mov DWORD PTR cFormatTime[12], 0
invoke GetLocalTime, addr sysTime
mov eax,0
mov ax, sysTime.wDay
mov Day, eax
xor ecx, ecx
mov cx, sysTime.wYear
mov Year, ecx
and eax, 0
mov ax, sysTime.wMonth
mov Month, eax
invoke wsprintf, addr cBuffer, addr cFormatTime, Day, Month, Year
invoke CreateDirectory, addr cBuffer, 0
ret
CreateCurrentDateDirectoryLoc endp
end start