Спасибо, 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;
|