17.05.2013, 19:38
|
|
Начинающий
|
|
Регистрация: 03.03.2013
Сообщения: 106
Версия Delphi: Delphi 7, XE5
Репутация: 10
|
|
Так?
Цитата:
|
Сообщение от 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? |