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

[Serge_Bliznykov]

я же выше привёл процедуры перевода даты/времени из/в UnixTime.
зачем спорить то?!

проверил у себя.

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 := AbUnixTimeToDateTime( InstallDate );
      ShowMessage( DateTimeToStr( t ) );
   end;

   Reg.CloseKey;
   Reg.Free;
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;

[megostudent]

Сообщение от Аватар

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

Так здесь же никто никого не обязывает) А то что я не шарю, а кто-то еще пытается подшутить не оч прикольно)
Serge_Bliznykov огромное спасибо!

по чемут не выходит установить библиотеку Abbrevia, компилится без ошибок, а при установке такое вот-
package c:\programm files\borland\delphi7\projects\bpl\ b304_r70.bpl can't be installed because it is not a design time package

[Serge_Bliznykov]

так. стоп. зачем Вам ставить библиотеку целиком, если нужный код я из неё уже выдернул и отдал Вам?!!

вот проект ЦЕЛИКОМ - Windows_date_install.rar

а если вкратце, то вот код модуля:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(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;


end.

[megostudent]

 t := AbUnixTimeToDateTime( InstallDate );

тут ошибка
[Error] Unit1.pas(56): Undeclared identifier: 'AbUnixTimeToDateTime'

[Serge_Bliznykov]

см. мой пост выше. я его дополнил исходным кодом проекта...

[megostudent]

усе работает
Спасиб еще раз!

[calypso]

Да это надо додуматься до такого, чтобы записывать вместо даты время в мс от 1970 года. Теперь ломаю голову, как этот код на Visual C++ перевести.
Пока что получилось считать из реестра DWORD ключ InstallDate и вывести его в Label на форму.

[Stilet]

это надо додуматься до такого, чтобы записывать вместо даты время в мс от 1970 года.

Хегеге )))
А ты в курсе, что все даты и время именно так и записываются? Ну или почти все.
Смысл в любом случае одинаков - берется дата начальная точка отсчета, а уже от нее отсчитывается кол-во дней (к примеру), так и получается искомая дата.

[Пепел Феникса]

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

Да это надо додуматься до такого, чтобы записывать вместо даты время в мс от 1970 года. Теперь ломаю голову, как этот код на Visual C++ перевести.
Пока что получилось считать из реестра DWORD ключ InstallDate и вывести его в Label на форму.

дык time_t ж...

[calypso]

Ну с UnixToDateTime в Делфи всё просто. А где взять аналог такой штучки для Visual C++ ?