Скачать: CL | DM;

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

← →
Anatolik_ ©   (2006-04-03 14:57) [0]

Установки Windows, и его значение равно 1109327348, как преобразовать к виду dd.mm.yyyy hh.mm.ss???

---

← →
balepa ©   (2006-04-03 15:04) [1]

var
 d: TDateTime;
begin
d:= 1109327348;
showmessage(DateTimeToStr(d))
end;

---

← →
Anatolik_ ©   (2006-04-03 15:17) [2]

ну как бы да.. но не совсем
должно показать 25.02.2005    10:29:08
а покажет 12.02.24479

---

← →
Khim ©   (2006-04-03 15:30) [3]

Используй Formatdatetime("dddddd",date());

---

← →
Anatolik_ ©   (2006-04-03 15:57) [4]

не получается :(
есть ключ реестра
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\InstallDate
он равен(в моем случае) "1109327348"
вот я и хочу получить из этой строки дату.
Formatdatetime тоже не помогает.

---

← →
Anatolik_ ©   (2006-04-03 15:57) [5]

не получается :(
есть ключ реестра
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\InstallDate
он равен(в моем случае) "1109327348"
вот я и хочу получить из этой строки дату.
Formatdatetime тоже не помогает.

---

← →
begin...end ©   (2006-04-03 17:30) [6]

> 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-04 07:13) [7]

to begin...end ©
СПАСИБО ОГРОМНОЕ!!!!!!!!!!!
Все доходчиво объяснили!

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.026 c