Текущая дата в винде

← →
Jupiter © (2005-07-26 09:46) [0]

Подскажите пожалуйста как можно из винды вытащить текущюю дату.
Заранее благодарен.

← →
Ботвин Дмитрий (2005-07-26 09:51) [1]

DateToStr(Now) - ?

← →
kami © (2005-07-26 09:56) [2]

например, посмотреть исходники паскалевской Date:

var
SystemTime: TSystemTime;
begin
GetLocalTime(SystemTime);
with SystemTime do Result := EncodeDate(wYear, wMonth, wDay);
end;

← →
Eraser © (2005-07-26 10:30) [3]

Jupiter © (26.07.05 09:46)

Date + F1
Now + F1

← →
SergProger (2005-07-28 03:30) [4]

Пример:

var
ST: TSystemDate;
S: String;
begin
GetSystemTime(ST);
S:=DateTimeToStr(SystemTimeToDateTime(ST));
Form1.Caption:=S;
end;

Заголовок будет иметь вид, например, 15.05.2005 13:08.

← →
Antonn © (2005-07-28 06:44) [5]

SergProger (28.07.05 3:30) [4]
а чем плох такой метод?
form1.caption:=formatdatetime("dd,mm,yyyy hh:nn:ss",now);

← →
Кот (2005-07-28 07:11) [6]

можно так
var dat:string;
begin
dat:=DateToStr(Date)+" "+TimeToStr(Time);
end;

Если чиста на АПИ

function GetShortDate: string; // 01.01.2003
var
st: TSystemTime;
Date, FormatString: PChar;
DateSize, FormatStringSize: integer;
begin
Result := "";
FormatStringSize := GetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_SSHORTDATE, nil, 0);
GetMem(FormatString, FormatStringSize * SizeOf(Char));
GetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_SSHORTDATE, FormatString, FormatStringSize);
GetLocalTime(st);
DateSize := GetDateFormat(LOCALE_USER_DEFAULT, 0, nil, FormatString, nil, 0);
GetMem(Date, DateSize * SizeOf(Char));
GetDateFormat(LOCALE_USER_DEFAULT, 0, @st, FormatString, Date, DateSize * SizeOf(Char));
result := Date;
FreeMem(Date);
FreeMem(FormatString);
end;

Текущая дата в винде Найти похожие ветки