[Gravitas]

Сабж. Time\Date не подходят из за большой процедуры DateTimeToString (модуль SysUtils в программе не используется и не будет использоваться)

[AND_REY]

Код:

1 2 3 4 5 6 7 8

Var  St: SYSTEMTIME;  year: WORD; begin  GetLocalTime(St);  Year:= St.wYear;  //и. т. д end;

[M.A.D.M.A.N.]

По модулю Windows терпения не хватило поискать, вот, подсмотрено в нотпэде:

Код:

1 2 3 4 5 6 7 8 9 10 11 12

.idata:0100103C ; int __stdcall GetTimeFormatW(LCID Locale, DWORD dwFlags, const SYSTEMTIME *lpTime, LPCWSTR lpFormat, LPWSTR lpTimeStr, int cchTime) .idata:0100103C                 extrn GetTimeFormatW:dword ; CODE XREF: sub_100900D+93p .idata:0100103C                                         ; sub_100978A+91p .idata:0100103C                                         ; DATA XREF: ... .idata:01001040 ; int __stdcall GetDateFormatW(LCID Locale, DWORD dwFlags, const SYSTEMTIME *lpDate, LPCWSTR lpFormat, LPWSTR lpDateStr, int cchDate) .idata:01001040                 extrn GetDateFormatW:dword ; CODE XREF: sub_100900D+7Fp .idata:01001040                                         ; sub_100978A+77p .idata:01001040                                         ; DATA XREF: ... .idata:01001044 ; void __stdcall GetLocalTime(LPSYSTEMTIME lpSystemTime) .idata:01001044                 extrn GetLocalTime:dword ; CODE XREF: sub_100900D+65p .idata:01001044                                         ; sub_100978A+48p .idata:01001044                                         ; DATA XREF: ...