Помогите получить дату установки OC

[AppData]

здравствуйте. уважаемые программисты.

пожалуйста помогите извлечь дату установки windows от хп до 8.1

прошарил тему http://www.programmersforum.ru/showthread.php?t=206793 не то!

не помогло!

слышал про WinExec('cmd /c chcp 1251 && systeminfo > C:\sysInfo.txt',1);

но у меня случай где будут претендовать все языки стран. так что по ключевому слову искать - не вариант!

слышал что информацию о дате установки Windows можно получить и из системного реестра. HKEY_LOCAL_MACHINE\SOFTWARE\Microso ft\Windows NT\CurrentVersion и найди параметр типа REG_DWORD с именем InstallDate

но он зашифрованный в формате времени Unix (32битном значение, означающее количество секунд, прошедших с 1970-01-01 00:00:00 UTC)

Вообщем еще раз, уважаемые программисты. Помогите мне извлечь дату.

[Stilet]

Как вариант:

var sr:TSearchRec;    st:TSystemTime;
begin
  FindFirst('c:\Windows\System32\kernel32.dll',faAnyFile,sr);
  FileTimeToSystemTime (sr.FindData.ftLastWriteTime,st);
  Caption:=DateToStr(SystemTimeToDateTime(st));
  FindClose(sr);
end;

[AppData]

Stilet, спасибо за внимание. но к сожалению данный код показывает совершенно другую дату 04.03.2014.
кто то мне врет? )))) либо systeminfi либо ваш код)

[Stilet]

Мой может врать... Я как пример предложил на основании того что ядро винды вроде как изменяться никак не должно с момента установки.

[AppData]

Stilet, даты прыгают) вот допустим, C:\Users\Имя пользователя который был создан при установке Windows - показывает в свойствах папки дату 28.06.2014

на 2 ПК проверил твой пример, и он показывает одну и ту же дату. 04.03.2014

Подскажите как еще можно проверить?!

[саша40]

А через реестр почему не устроило? Если там число это количество дней после 1 января 1970 года, то просто прибавь это число к указанной дате и переведи в строку, получишь дату установки.

[AppData]

саша40, можно вас попросить выложить пример. я копался в http://www.programmersforum.ru/showthread.php?t=206793 так и не понял. заранее спасибо

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Registry;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ 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;
{ 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 DateTimeToLocalDateTime(DateTime: TDateTime): TDateTime;
var
  ZoneInfo: TTimeZoneInformation;
begin
  case GetTimeZoneInformation(ZoneInfo) of
    TIME_ZONE_ID_STANDARD:
      Result := DateTime + (ZoneInfo.Bias / MinutesInDay);
    TIME_ZONE_ID_UNKNOWN, TIME_ZONE_ID_DAYLIGHT:
      Result := DateTime - ((ZoneInfo.Bias + ZoneInfo.DaylightBias) / MinutesInDay);
  else
    Raise Exception.Create('Error Convert DateTo Local DateTime ');
  end;
end;


procedure TForm1.Button1Click(Sender: TObject);
var
  InstallDate: DWORD;
  t: TDateTime;
  Reg: TRegistry;
begin
   Reg := TRegistry.Create;
   Reg.RootKey := HKEY_LOCAL_MACHINE;

   // ќпределение даты установки Windows
   if Reg.OpenKeyReadOnly( 'SOFTWARE\Microsoft\Windows NT\CurrentVersion' ) then
   begin
      InstallDate := Reg.ReadInteger( 'InstallDate' );
      t := DateTimeToLocalDateTime( AbUnixTimeToDateTime( InstallDate ));
      ShowMessage( DateTimeToStr( t ) );
   end;

   Reg.CloseKey;
   Reg.Free;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  ZoneInfo: TTimeZoneInformation;
begin
  GetTimeZoneInformation(ZoneInfo);
  with Memo1.Lines do
  begin
    Add('Bias: '+ IntToStr(ZoneInfo.Bias));
    Add('StandardName: '+ZoneInfo.StandardName);
    Add('StandardBias: '+IntToStr(ZoneInfo.StandardBias));
    Add('DaylightName: '+ZoneInfo.DaylightName);
    Add('DaylightBias: '+IntToStr(ZoneInfo.DaylightBias));
  end;
end;

end.

результат: 31.12.1969 5:00:00 - неверно

[Stilet]

Подскажите как еще можно проверить?!

uses       registry, dateutils, 
...
begin
  with TRegistry.Create() do begin
    RootKey:=HKEY_LOCAL_MACHINE;
    if OpenKeyReadOnly('\SOFTWARE\Microsoft\Windows NT\CurrentVersion') then begin
      Caption:=DateToStr(UnixToDateTime(ReadInteger('InstallDate')));
    end;
    Free;
  end;
end;

[AppData]

Stilet, спасибо что активно помогаете мне. но увы. см скрин

[Stilet]

Ну тогда соболезную. Можешь еще попробовать WMI, но придется учитывать две вещи:
1) Доступность WMI на компе
2) Найти класс, который покажет инфу

Есть еще способ: Получить результат systeminfo и провести его разбор.