Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > ОС и железо
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

 
 
Опции темы Поиск в этой теме Опции просмотра
  #8  
Старый 22.06.2007, 12:55
mAnah mAnah вне форума
Прохожий
 
Регистрация: 15.06.2007
Сообщения: 14
Репутация: -7
По умолчанию

Спасибо, Sharky. Т.к. ты не знал путь в реестре, то решил выложить код с правильным путем

procedure TForm1.Button1Click(Sender: TObject);
var
reg: TRegistry;
begin
//kavexists := false; - что это значит? я убрал это
reg := TRegistry.Create;
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.OpenKeyReadOnly('SOFTWARE\Remedy Entertainment\Max Payne 2');
if reg.KeyExists('Installation')
then MessageBox(Handle,'Уррррраааа','Есть Payne',MB_OK or MB_OK)
else MessageBox(Handle,'Вот блин','Нет Payne, и не предвидется',MB_OK or MB_OK);

end;
Ответить с цитированием
 


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

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 06:57.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025