معرفه تاريخ تنصيب الوندوز

[kachwahed]

السلام عليكم
الخطأ بسبب نوع البيانات ليس Binary وإنما DWORD يمكن قراءته بـ ReadInteger

PHP كود :

uses
  Registry, DateUtils;

Function GetWindowsInstallDate: String;
var
  Reg : TRegistry;
  StartDate : TDateTime;
  ThePC : String;
begin
  Reg := TRegistry.Create();
  try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    if Reg.RegistryConnect(ThePC) then
    begin
      REG.OpenKey('SOFTWARE\Microsoft\Windows NT\CurrentVersion', False);
      StartDate := EncodeDateTime(1970,1,1,0,0,0,0);
      Result := DateToStr(IncSecond(StartDate,Reg.ReadInteger('InstallDate')));
      Reg.CloseKey;
    end;
  finally
    FreeAndNil(Reg);
  end;
end;