|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
API функции для получения времени\даты
Сабж. Time\Date не подходят из за большой процедуры DateTimeToString (модуль SysUtils в программе не используется и не будет использоваться)
Gravitas |
#2
|
||||
|
||||
Код:
Var St: SYSTEMTIME; year: WORD; begin GetLocalTime(St); Year:= St.wYear; //и. т. д end; If end Then begin; |
#3
|
||||
|
||||
По модулю Windows терпения не хватило поискать, вот, подсмотрено в нотпэде:
Код:
.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: ... — Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |