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

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

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

Уважаемые, подскажите есть в реестре ключик, хранящий дату [D7, 2000, XP]

Anatolik_ © (2006-04-03 14:57:00)
Установки Windows, и его значение равно 1109327348, как преобразовать к виду dd.mm.yyyy hh.mm.ss???

Anatolik_ (2006-04-04 07:13:00) [1]
to begin...end ©
СПАСИБО ОГРОМНОЕ!!!!!!!!!!!
Все доходчиво объяснили!

begin...end (2006-04-03 17:30:00) [2]
> Anatolik_ © (03.04.06 14:57)

Значение этого параметра хранится в формате time_t (кто писал на Сях, знает, что время в этом формате выражается количеством секунд, прошедшим с 0 ч 0 мин 1 января 1970 года). А в Delphi значение типа TDateTime – это дробное число, равное количеству суток, прошедшему с 0 ч 0 мин 30 декабря 1899 года. Из этого и нужно исходить, а код перевода в TDateTime может быть примерно таким:

const
Delta = 2209161600; // Количество секунд между 30.12.1899 и 1.1.1970
var
T: DWORD;
D: TDateTime;
begin
T := 1109327348;
D := (T + Delta) / (60 * 60 * 24);
ShowMessage(DateTimeToStr(D))
end

Anatolik_ (2006-04-03 15:57:00) [3]
не получается :(
есть ключ реестра
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\InstallDate
он равен(в моем случае) "1109327348"
вот я и хочу получить из этой строки дату.
Formatdatetime тоже не помогает.

Anatolik_ (2006-04-03 15:57:00) [4]
не получается :(
есть ключ реестра
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\InstallDate
он равен(в моем случае) "1109327348"
вот я и хочу получить из этой строки дату.
Formatdatetime тоже не помогает.

Khim (2006-04-03 15:30:00) [5]
Используй Formatdatetime('dddddd',date());

Anatolik_ (2006-04-03 15:17:00) [6]
ну как бы да.. но не совсем
должно показать 25.02.2005 10:29:08
а покажет 12.02.24479

balepa (2006-04-03 15:04:00) [7]
var
d: TDateTime;
begin
d:= 1109327348;
showmessage(DateTimeToStr(d))
end;

Наверх

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