Поиск версий и вывод самой последней

[Shouldercannon]

Попытался реализовть и попал в тупик. Вижу, что получился бред, но нормально сделать не могу.

function GetJavaVersion: string;
var
  Reg: Tregistry;
  Java6, Java7: string;
begin
  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_LOCAL_MACHINE;
  if Reg.OpenKey('\SOFTWARE\JavaSoft\Java Runtime Environment\1.6', False) then Java6 := '1.6';
  if Reg.OpenKey('\SOFTWARE\JavaSoft\Java Runtime Environment\1.7', False) then Java7 := '1.7';
  Reg.Free;

  if (Java6 <> '') then Result := '1.6';
  if (Java7 <> '') then Result := '1.7';
  if ((Java6 <> '') and (Java7 <> '')) then Result := '1.7' else Result := 'Java не установлена';
end;

Требуется найти все версии и вывести самую последную, иначе

Result := 'Java не установлена';

[Человек_Борща]

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

Попытался реализовть и попал в тупик. Вижу, что получился бред, но нормально сделать не могу.

function GetJavaVersion: string;
var
  Reg: Tregistry;
  Java6, Java7: string;
begin
  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_LOCAL_MACHINE;
  if Reg.OpenKey('\SOFTWARE\JavaSoft\Java Runtime Environment\1.6', False) then Java6 := '1.6';
  if Reg.OpenKey('\SOFTWARE\JavaSoft\Java Runtime Environment\1.7', False) then Java7 := '1.7';
  Reg.Free;

  if (Java6 <> '') then Result := '1.6';
  if (Java7 <> '') then Result := '1.7';
  if ((Java6 <> '') and (Java7 <> '')) then Result := '1.7' else Result := 'Java не установлена';
end;

Требуется найти все версии и вывести самую последную, иначе

Result := 'Java не установлена';

Реально бред. Зачем такой махачь с реестром, когда есть CMD грабли:

java -version

И я вижу ответ:

C:\Documents and Settings\root\Рабочий стол>java -version
java version "1.6.0_31"
Java(TM) SE Runtime Environment (build 1.6.0_31-b05)
Java HotSpot(TM) Client VM (build 20.6-b01, mixed mode, sharing)

[Shouldercannon]

Так это стандартными средсвами Windows, надо через Delphi.

[Serge_Bliznykov]

Сообщение от Человек_Борща

Реально бред. Зачем такой махачь с реестром, когда есть CMD грабли:
java -version

Человек_Борща, не согласен насчёт бреда!
TC нужно из Delphi проверить, если ли джава на данной машине и если да - то какой версии...

да, и, кстати, если java на компьютере отсутствует, что получите в результате?!
java не является внутренней или внешней командой, исполняемым файлом ?...

[Shouldercannon]

Если проверять через CMD и если Java нет, то
Microsoft Windows [Version 6.1.7601]
(c) Корпорация Майкрософт (Microsoft Corp.), 2009. Все права защищены.

C:\Users\Shouldercannon>java -version
Error opening registry key 'Software\JavaSoft\Java Runtime Environment'
Error: could not find java.dll
Error: could not find Java SE Runtime Environment.

C:\Users\Shouldercannon>

[Человек_Борща]

Serge_Bliznykov,

java не является внутренней или внешней командой, исполняемым файлом

Да. Но куда проще вызвать шелл

java -version > "1.txt"

А затем выбрать оттуда только нужное при помощи регулярного выражения, или своими рукми.

Shouldercannon,

Error opening registry key 'Software\JavaSoft\Java Runtime Environment'
Error: could not find java.dll
Error: could not find Java SE Runtime Environment.

Вот хотябы по этому, и не сунуться в реестр.
И да, что будет если я не админ, а скажем, юзер или вообще гость, которому доступна ваше ПО? Как думаете..?

[Shouldercannon]

Сообщение от Человек_Борща

И да, что будет если я не админ, а скажем, юзер или вообще гость, которому доступна ваше ПО? Как думаете..?

Неважно xD
Вот

function GetJavaVersion: string;
var
  Reg: Tregistry;
begin
  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_LOCAL_MACHINE;
  if Reg.OpenKey('\SOFTWARE\JavaSoft\Java Runtime Environment\1.6', False) then
  begin
    Result := '1.6';
    if Reg.OpenKey('\SOFTWARE\JavaSoft\Java Runtime Environment\1.7', False) then Result := '1.7';
  end
  else if Reg.OpenKey('\SOFTWARE\JavaSoft\Java Runtime Environment\1.7', False) then Result := '1.7' else Result := 'Java íå óñòàíîâëåíà';
  Reg.Free;
end;

[Человек_Борща]

Неважно xD

Выпадение в AV. По крайней мере вас 7-ка точно в лес пошлет самым грубым способом.