[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