Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

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

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

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 19.11.2019, 18:07   #1
Alex711
Пользователь
 
Регистрация: 21.09.2018
Сообщений: 99
По умолчанию Прочитать дату установки 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 в 22:07.
Alex711 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
узнать дату установки драйвера флешки на компьютер isiz00 Windows 1 08.05.2019 11:29
узнать дату установки ОС на компьютере megostudent Общие вопросы Delphi 20 30.11.2015 19: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 18:33