Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Здесь нужно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Ответ
 
Опции темы
Старый 19.11.2019, 19:07   #1
Alex711
Пользователь
 
Регистрация: 21.09.2018
Сообщений: 67
По умолчанию Прочитать дату установки 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;
Но вижу "0"

И ещё, как записать другую дату в реестр.

Прошу прощения в Windows 32 bit работает.
Как сделать чтобы работало в Windows 64 bit ?

Последний раз редактировалось Alex711; 19.11.2019 в 23:07.
Alex711 вне форума   Ответить с цитированием
Ответ
Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
узнать дату установки драйвера флешки на компьютер isiz00 Windows 1 08.05.2019 12:29
узнать дату установки ОС на компьютере megostudent Общие вопросы Delphi 20 30.11.2015 20:21
Помогите получить дату установки OC AppData Общие вопросы Delphi 14 21.07.2014 09:01
После установки windows xp 32- битной нельзя установить windows 7 64-битную Mag84 Windows 3 03.12.2012 15:50
Определить версию ОС, дату установки и последнего перезапуска Manonia Общие вопросы Delphi 4 22.03.2010 19:33