[serega6531]

Спасибо, думаю будет работать

Код:

Function GetJavaPath:string;
var
a: TRegistry;
begin
a := TRegistry.Create;
a.RootKey := HKEY_LOCAL_MACHINE;
If a.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\javaws.exe', false) then
begin
    result:=a.ReadString('Path') + 'javaw.exe';
end
else
ShowMessage('Не могу запустить игру! Проблемы с java!');
end;