如何检查的JDK

 

[Code]
//* Getting Java version from registry *//
function getJavaVersion(): String;
var
     javaVersion: String;
begin
     javaVersion := '';
     RegQueryStringValue(HKLM, 'SOFTWARE\JavaSoft\Java Runtime Environment', 'CurrentVersion', javaVersion);
     GetVersionNumbersString(javaVersion, javaVersion);
     Result := javaVersion;
end;

//* Called on setup startup //*
function InitializeSetup(): Boolean;
begin
     Result := true;
     if Length( getJavaVersion() ) = 0 then begin
          //* No Java detected *//
          MsgBox('Setup detected, that there is no Java Runtime installed.' + #13 +
                         'You must have installed at least Java Runtime 1.2.2 or higher to continue setup.' + #13 +
                         'Please install one from http://java.sun.com and restart setup.', mbInformation, MB_OK);
          Result := false;
          end
     else begin
          //* Java version lower than 1.2.2 detected *//
          if (getJavaVersion()) < '1.2.2' then begin
               MsgBox('Setup detected, that you have not installed at least Java Runtime 1.2.2.' + #13 +
                         'Please install and run setup again!', mbInformation, MB_OK);
               Result := false
          end
     end;
end;