|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Прочитать дату установки Windows
Здравствуйте, подскажите пожалуйста как прочитать дату установки 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; И ещё, как записать другую дату в реестр. Прошу прощения в Windows 32 bit работает. Как сделать чтобы работало в Windows 64 bit ? Последний раз редактировалось Alex7, 19.11.2019 в 22:07. |