preciso de uma função que verifique se o JAVA está instalado na maquina ou não, quando meu software for instalado,
se ele estiver instalado não executa o instalador do java, caso contrário, ele executa o instalador do java,
a mesma função quero para o Postgres
se ele estiver instalado não executa o instalador, se não estiver instalado, execute a instalação,
segundo um colega seria mais facil fazer pelos serviços do windows, ou seja, verificar se o serviço do postgres está presente na máquina ou não,
function InitializeSetup(): Boolean;
var
ErrorCode:Integer;
begin
if RegKeyExists(HKEY_LOCAL_MACHINE, ‘SOFTWARE\JavaSoft\Java Runtime Environment’) then
begin
Result := true;
end
else
begin
MsgBox(‘É necessário instalar Java Runtime Environment’,mbInformation, MB_OK );
ShellExec(‘open’, ‘http://javadl.sun.com/webapps/download/AutoDL?BundleId=73141’, ‘’, ‘’, SW_SHOWNORMAL, ewNoWait, ErrorCode);
Result := false;
end
end;