узнать дату установки ОС на компьютере

[megostudent]

Собственно вопрос мой звучит также как и название темы как же средствами делфи узнать дату установки виндовс или сколько дней она уже в работе?

[Tronix]

В Реестре Windows (см. Что такое Реестр Windows?) дата установки операционной системы хранится в шестнадцатеричном виде в разделе
[HKEY_LOCAL_MACHINE\SOFTWARE\Microso ft\Windows NT\CurrentVersion] в REG_DWORD-параметре InstallDate, например, 45e19ed9 (1172414169), в скобках указано десятичное число.
Параметр InstallDate показывает количество секунд, прошедших с 1 января 1970 г. до момента установки операционной системы.

cmd -> systeminfo>temp.tmp дальше парсить temp.tmp

123123123123123

[megostudent]

procedure TForm1.btn1Click(Sender: TObject);
var
  ZoneName, tmp: string;
  UTC: Integer;
  InstallDate: DWORD;
  _date, _time: DWORD;
  t: TDateTime;
  Reg: TRegistry;
begin
   Reg := TRegistry.Create;
   Reg.RootKey := HKEY_LOCAL_MACHINE;

   // Получение часового пояса
   if Reg.OpenKeyReadOnly( 'SYSTEM\CurrentControlSet\Control\TimeZoneInformation' ) then
   begin
      ZoneName := Reg.ReadString( 'TimeZoneKeyName' );
      Reg.CloseKey;
if Reg.OpenKeyReadOnly( 'SOFTWARE\Microsoft\Windows NT\CurrentVersion\Time Zones\' + ZoneName ) then
      begin
         tmp := Reg.ReadString( 'Display' );
         UTC := StrToInt( Copy( tmp, 5, 3 ) );
// Тут лучше использовать регулярное выражение
         Reg.CloseKey;
      end;
   end;
 
   // Определение даты установки Windows
   if Reg.OpenKeyReadOnly( 'SOFTWARE\Microsoft\Windows NT\CurrentVersion' ) then
   begin
      InstallDate := Reg.ReadInteger( 'InstallDate' );
      _date := InstallDate div 86400;
      _time := InstallDate mod 86400;
      t := {дата} EncodeDate( 1970, 1, 1 ) + _date +
 {время} EncodeTime( _time div 3600 + UTC, ( _time div 60 ) mod 60, _time mod 60, 0 );
      ShowMessage( DateTimeToStr( t ) );
   end;



   Reg.CloseKey;
   Reg.Free;
end;

end.

но чтот не выводится меседж с датой

[Yurk@]

как-то так

InstallDate := Reg.ReadInteger( 'InstallDate' );
_date := InstallDate / 86400;
ShowMessage(DateToStr(IncDay(StrToDate('01.01.1970'),_date-1)));

[Stilet]

узнать дату установки виндовс

У винды есть файлы ядра. Выясни их дату создания и считай это датой первоначальной инсталляции.

[megostudent]

 _date := InstallDate / 86400;

на этой строке ошибка.

[Stilet]

на этой строке ошибка.

Телепат? Ща погодь, телик включу, передавай ее телетекстом.

_date := InstallDate / 86400;

_date это тип целого числа. Нужен в качестве разделителя div

[Serge_Bliznykov]

из библиотеки Abbrevia, модуль AbUtils.pas

{ date and time stuff }
const
  Date1900 {: LongInt} = $0001AC05;  {Julian day count for 01/01/1900 -- TDateTime Start Date}
  Date1970 {: LongInt} = $00020FE4;  {Julian day count for 01/01/1970 -- Unix Start Date}
  Unix0Date: TDateTime = 25568;      {Date1970 - Date1900}

  SecondsInDay    = 86400;  {Number of seconds in a day}
  SecondsInHour   =  3600;  {Number of seconds in an hour}
  SecondsInMinute =    60;  {Number of seconds in a minute}
  HoursInDay      =    24;  {Number of hours in a day}
  MinutesInHour   =    60;  {Number of minutes in an hour}
  MinutesInDay    =  1440;  {Number of minutes in a day}

  function AbUnixTimeToDateTime(UnixTime : LongInt) : TDateTime;
  function AbDateTimeToUnixTime(DateTime : TDateTime) : LongInt;

function AbUnixTimeToDateTime(UnixTime : LongInt) : TDateTime;
{ convert unix date to Delphi TDateTime }
var
  Hrs, Mins, Secs : Word;
  TodaysSecs : LongInt;
begin
  TodaysSecs := UnixTime mod SecondsInDay;
  Hrs := TodaysSecs div SecondsInHour;
  TodaysSecs := TodaysSecs - (Hrs * SecondsInHour);
  Mins := TodaysSecs div SecondsInMinute;
  Secs := TodaysSecs - (Mins * SecondsInMinute);

  Result := Unix0Date + (UnixTime div SecondsInDay) +
    EncodeTime(Hrs, Mins, Secs, 0);
end;
{ -------------------------------------------------------------------------- }
function AbDateTimeToUnixTime(DateTime : TDateTime) : LongInt;
{ convert Delphi TDateTime to unix date }
var
  Hrs, Mins, Secs, MSecs : Word;
  Dt, Tm : TDateTime;
begin
  Dt := Trunc(DateTime);
  Tm := DateTime - Dt;
  if Dt < Unix0Date then
    Result := 0
  else
    Result := Trunc(Dt - Unix0Date) * SecondsInDay;

  DecodeTime(Tm, Hrs, Mins, Secs, MSecs);
  Result := Result + (Hrs * SecondsInHour) + (Mins * SecondsInMinute) + Secs;
end;

[megostudent]

Сообщение от Stilet

Телепат? Ща погодь, телик включу, передавай ее телетекстом.

Не обязательно иметь телепатические способности, можно просто попробовать вставить код в делфи.

[Аватар]

Сообщение от megostudent

Не обязательно иметь телепатические способности, можно просто попробовать вставить код в делфи.

Умничаем Нужно понимать, что для этого нужно иметь установленный Delphi соответствующей версии, запустить его, создать проект, вставить не понятно какой код, скомпилировать и т.д. Догадайтесь с трех раз - много ли найдется таких желающих?