Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Текущая дата в винде [D7, Win2k]

Jupiter © (2005-07-26 09:46:00)
Подскажите пожалуйста как можно из винды вытащить текущюю дату.
Заранее благодарен.

DVM (2005-07-28 10:49:00) [1]
Если чиста на АПИ

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;

Кот (2005-07-28 07:11:00) [2]
можно так
var dat:string;
begin
dat:=DateToStr(Date)+' '+TimeToStr(Time);
end;

Antonn (2005-07-28 06:44:00) [3]
SergProger (28.07.05 3:30) [4]
а чем плох такой метод?
form1.caption:=formatdatetime('dd,mm,yyyy hh:nn:ss',now);

SergProger (2005-07-28 03:30:00) [4]
Пример:

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

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

Eraser (2005-07-26 10:30:00) [5]
Jupiter © (26.07.05 09:46)

Date + F1
Now + F1

kami (2005-07-26 09:56:00) [6]
например, посмотреть исходники паскалевской Date:

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

Ботвин Дмитрий (2005-07-26 09:51:00) [7]
DateToStr(Now) - ?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »