[serega6531]

Вопрос: как из delphi программно найти полный путь к java. И установлена ли она? Гугл не помог.

[Snake22]

Сообщение от serega6531

И установлена ли она?

выполни команду
ShellExecute(0,'open','java',nil,nil,0)
если вернётся ответ 42 значит успех, джава есть.
а каталог скорее всего надо в переменной PATH искать

[serega6531]

Сообщение от Snake22

выполни команду
ShellExecute(0,'open','java',nil,nil,0)
если вернётся ответ 42 значит успех, джава есть.
а каталог скорее всего надо в переменной PATH искать

То есть

Код:

If (ShellExecute(0,'open','java',nil,nil,0) = 42) then
{java found}
else
{not found}

?
А 42 integer или string?
И как искать путь в path?

[M.A.D.M.A.N.]

В реестре наверняка есть.

[serega6531]

Сообщение от M.A.D.M.A.N.

В реестре наверняка есть.

Мне нужно подробнее, как именно это делать?

[M.A.D.M.A.N.]

До чего народ, сцуко, ленивый пошел!
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Curr entVersion\App Paths\javaws.exe

[serega6531]

Сообщение от M.A.D.M.A.N.

До чего народ, сцуко, ленивый пошел!
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Curr entVersion\App Paths\javaws.exe

Я имею ввиду, как доставать данные из реестра

[M.A.D.M.A.N.]

ПИПЕЦ!!! В Гугле забанили штоле?

TRegIniFile если все совсем уж плохо. Надеюсь найдешь уж пример.

[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;

[Alegun]

Сообщение от serega6531

...Не могу запустить игру! Проблемы с java!..

Так если всё это дело затевается лишь ради запуска жава игры, то наверное вот это сразу и нужно.

[serega6531]

Сообщение от Alegun

Так если всё это дело затевается лишь ради запуска жава игры, то наверное вот это сразу и нужно.

И как им пользоваться? Например, тут что надо использовать?

[Alegun]

Вот здесь копилянт, посмотрите, может это то что нужно (под 64 не работает)

[serega6531]

Сообщение от Alegun

Вот здесь копилянт, посмотрите, может это то что нужно (под 64 не работает)

Это видимо, создаёт exe для запуска jar, а я делаю лаунчер minecraft с авторизацией и т.д. и мне просто надо получить путь до явы.