Здравствуйте, подскажите пожалуйста как прочитать дату установки Windows в Delphi, пробую так:
Код:
procedure TForm1.Button2Click(Sender: TObject);
var
Reg: TRegistry;
RegKey: DWORD;
Key: string;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_LOCAL_MACHINE;
Key := 'SOFTWARE\Microsoft\Windows NT\CurrentVersion';
if Reg.OpenKeyReadOnly(Key) then
begin
if Reg.ValueExists('InstallDate') then
begin
RegKey := Reg.ReadInteger('InstallDate');
Reg.CloseKey;
ShowMessage(IntToStr(RegKey));
end;
end;
finally
Reg.Free
end;
end;
Но вижу "0"
И ещё, как записать другую дату в реестр.
Прошу прощения в Windows 32 bit работает.
Как сделать чтобы работало в Windows 64 bit ?