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

[Manonia]

Доброго времени суток! Срочно понадобилось написать программу на Delphi, определяющую версию ОС(с этим я справилась, много инфы), дату установки и дату последнего перезапуска ОС- с последними двумя возникли проблемы. Дату установки я думаю можно решить так: извлечь параметр installDate из реестра Windows(хранится в шестнадцатеричном виде в разделе [HKEY_LOCAL_MACHINE\SOFTWARE\Microso ft\Windows NT\CurrentVersion] в REG_DWORD-параметре InstallDate). Этот параметр InstallDate показывает количество секунд, прошедших с 1 января 1970 г. до момента установки операционной системы. Приплюсовать их к указанной дате и все! Дело только в том, что я в силу малого опыта не могу реализовать это на дельфи.. на счет даты последнего перезапуска такая же проблема.

[Stilet]

Ну например вот код:

var r:TRegistry;d:TDateTime; w:Integer;
begin
 r:=TRegistry.Create;
  r.RootKey:=HKEY_LOCAL_MACHINE;
  r.OpenKey('\SOFTWARE\Microsoft\Windows NT\CurrentVersion',false);
  //r.ReadBinaryData('InstallDate',d,sizeof(d));
  d:=r.ReadDate('InstallDate');
  write(DateToStr(d));
 r.Free;
 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

Взял с примера не тестировал. Подправил по твоим параметрам

[Manonia]

Ошибка(см. вложение)... мне кажется все дело в d:=r.ReadDate('InstallDate'); так как InstallDate - это не дата, а кол-во секунд и при том в шестнадцатеричном виде...как исправить?

[W0LF]

А у меня вообще параметра IntallDate нету... хм

-ДОБАВИЛ-
Сорри, глянул в Windows, а не Windwos NT..
Там просто гляньте дату создания папки Windows и непарте мозни)

-ДОБАВИЛ-
Вот изменил кое-какой листинг и вроде вышло:

uses
  ShlObj;

function GetWindowsCreateTime: string;
var
  SearchRec: TSearchRec;
  Success: integer;
  DT: TFileTime;
  ST: TSystemTime;
  S: string;
begin
   SetLength(s, MAX_PATH);
   if SHGetSpecialFolderPath(0, PChar(s), $24, true) then begin;
   Success := SysUtils.FindFirst( PChar(s), faDirectory, SearchRec );
   if ( Success = 0 ) and
      ( ( SearchRec.FindData.ftLastAccessTime.dwLowDateTime <> 0 ) or
      ( SearchRec.FindData.ftLastAccessTime.dwHighDateTime <> 0 ) )
   then
   begin
      FileTimeToLocalFileTime( SearchRec.FindData.ftCreationTime, DT );
      FileTimeToSystemTime( DT, ST );
      Result := IntToStr( st.wDay ) + '.' + IntToStr( st.wMonth ) + '.' +
                       IntToStr( st.wYear ) + ' ' + IntToStr( st.wHour ) + ':' +
                       IntToStr( st.wMinute ) + ':' + IntToStr( st.wSecond );
   end;
   SysUtils.FindClose( SearchRec );
   end else Result := '00.00.00 00:00:00';
end;

Функция возвращает дату создания папки Windows...
P.S.: "дату последнего перезапуска ОС" - вы имеете ввиду, сколько компьютер работает после включения или когда компьютер последний раз делал Перезагрузку? Если второе, то не думаю что получеться, а если первое, то пожалуйтса:

function WorkTimeOS: string;
var
  H, M, S, D: INTEGER;
  DS, HS, MS, SS: string;
begin
  S := GetTickCount div 1000;
  M := Round(INT(S / 60));
  S := S - M * 60; //Seconds
  H := Round(INT(M / 60)); //Hours
  M := M - H * 60; //Minutes
  D := H div 24;
  if D < 10 then
    DS := '0' + Inttostr(D)
  else
    DS := inttostr(D);
  if H < 10 then
    HS := '0' + inttostr(H)
  else
    HS := inttostr(H);
  if M < 10 then
    MS := '0' + inttostr(M)
  else
    MS := inttostr(M);
  if S < 10 then
    SS := '0' + inttostr(S)
  else
    SS := inttostr(S);
  if D > 0 then
    RESULT := DS + ':' + HS + ':' + MS + ':' + SS
  else
    RESULT := HS + ':' + MS + ':' + SS;
end;

[Manonia]

Спасибо Вам большое!!
Я тоже поковырялась, исправила и получила:

var r:TRegistry;d:integer; w:Integer;
begin
r:=TRegistry.Create;
r.RootKey:=HKEY_LOCAL_MACHINE;
r.OpenKey('\SOFTWARE\Microsoft\Wind ows NT\CurrentVersion',false);
//r.ReadBinaryData('InstallDate',d,si zeof(d));
d:=r.ReadInteger('InstallDate');
label5.Caption :=inttostr(d);
r.Free;

.. получила в десятичной форме кол-во секунд, прошедших с 1 января 1970 года до моей установки ОС.
Сейчас попробую ваш метод и правда может не париться сильно =)