![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#8
|
|||
|
|||
|
Спасибо, 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; |