[mAnah]

Вопрос может показаться глупым.
Нужно определить установлена на компьютере игра или нет. Дальнейшие действия не важны. Определить необходимо в программке (Delphi, конечно же).
Определять же лучше через реестр? Как это осуществить? Игра - Max Payne 2.

[X-rem]

Это просто, if FileExist(путь) then .......

[mAnah]

так а какой файл должен существовать (допустим .exe)? так надо ж и определять, где он находится. А, в таком случае, файл может храниться на винчестере, а игра не установлена...

[X-rem]

Ну значит не знаю :-)

[4kusNick]

Можно проверить, есть ли записи об этой игре в ветке реетра Uninstall (там, где хранятся записи об деинсталляции программ)...

[Sharky]

procedure TForm1.Button1Click(Sender: TObject);
var
reg: TRegistry;
begin
kavexists := false;
reg := TRegistry.Create;
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.OpenKeyReadOnly('SOFTWARE\Microsoft\Windows\Cu rrentVersion\Uninstall');
if reg.KeyExists('Max Payne 2') then
MessageBox(Handle,'ура','есть пейн',MB_OK or MB_OK)

else
MessageBox(Handle,'Нефига','нет пейна',MB_OK or MB_OK);

end;

[mAnah]

Сейчас проверю. Но заранее спасибо.

Уррррааа!!! Товарищи!!!

Урррааа! Пейн!..

[mAnah]

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