Cómo saber si está instalado un programa y dónde

[Casimiro Noteví]

Hola, eso, no recuerdo ninguna función que me diga si está instalado un programa, y si lo está que me devuelva la ruta al mismo.
Algo así como:

Código Delphi [-]
function EstaInstalado(cPrograma:string):string;
begin
  result:='';  
  if jfdsjfdsfj(cPrograma) then
    result PathAlPrograma;
end;

Ejemplo:

Código Delphi [-]
ShowMessage( EstaInstalado('ibexpert') );

[Ñuño Martínez]

En el peor de los casos, buscar en el registro. Supongo que es ahí de donde obtiene la lista el "Instalar y eliminar programas", ¿no?

Ahora bien, saber la clave y la variable y cómo se llama ya es otra cosa.

[Neftali [Germán.Estévez]]

Revisa esta entrada: Inventario de software instalado (WMI)

No son 3 líneas, pero bueno...
En el foro está también en este hilo junto con otras soluciones.

[Casimiro Noteví]

¡¡¡Gracias!!!,
Sabía que lo había visto antes, pero ya no tengo cabeza para recordar tanta cosa, me hace falta un implante de disco duro.

[Neftali [Germán.Estévez]]

Empezado por Casimiro Notevi

...me hace falta un implante de disco duro.

Lo único que las aplicaciones que aparecen son las que se han instalado utilizando Windows Installer.
Para otros casos habría que ir a leer directamente el registro.

[ecfisa]

Hola Antonio.

Aca te pongo una version un poco modificada de la conocida versión del código.

Código Delphi [-]
uses Registry;
function isAppInstalled(AppName: string): Boolean;
const
  CLAVE = '\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall';
var
  Reg: TRegistry;
  L1,L2 : TStringList;
  j,dn,us: integer;
begin
  Reg:= TRegistry.Create;
  L1:= TStringList.Create;
  L2:= TStringList.Create;
  try
    Reg.RootKey:= HKEY_LOCAL_MACHINE;
    Reg.OpenKey(CLAVE, False);
    Reg.GetKeyNames(L1);
    Result:= False;
    for j := 0 to L1.Count-1 do
    begin
      Reg.OpenKeyReadOnly(CLAVE+'\'+L1.Strings[j]);
      Reg.GetValueNames(L2);
      if(L2.IndexOf('DisplayName')<> -1)and
        (L2.IndexOf('UninstallString')<> -1)and
        (Reg.ReadString('DisplayName')=AppName) then
          Result:= True;
    end;
  finally
    L1.Free;
    L2.Free;
    Reg.Free;
  end;
end;

Devuelve verdadero si encuentra el nombre de la aplicación.

Saludos.

[Casimiro Noteví]

Gracias amigos, ahora a hacer pruebas para ver por qué me decido.

[ecfisa]

Hola de nuevo Antonio.

Me acabo de dar cuenta que pegué una de mis pruebas pero no la final y aunque igual funciona, te hacerco mis disculpas.

Esta la versión que corresponde:

Código Delphi [-]
function isAppInstalled(AppName: string): Boolean;
const
  CLAVE = '\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\';
var
  Reg: TRegistry;
  L1,L2 : TStringList;
  c: integer;
begin
  Reg:= TRegistry.Create;
  L1:= TStringList.Create;
  L2:= TStringList.Create;
  try
    Reg.RootKey:= HKEY_LOCAL_MACHINE;
    Reg.OpenKey(CLAVE, False);
    Reg.GetKeyNames(L1);
    Result:= False;
    c:= 0;
    while not Result and (c < L1.Count) do
    begin
      Reg.OpenKeyReadOnly(CLAVE+L1[c]);
      Reg.GetValueNames(L2);
      if(L2.IndexOf('DisplayName')<> -1)and
        (L2.IndexOf('UninstallString')<> -1)and
        (Reg.ReadString('DisplayName')=AppName) then
          Result:= True;
      Inc(c);
    end;
  finally
    L1.Free;
    L2.Free;
    Reg.Free;
  end;
end;

Para obtener la ruta estoy un poco complicado.
En teoría deberían estar en: \SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\, pero no estan todas.
Y además hay casos como por ejemplo: Malwarebytes' Anti-Malware, cuyo nombre aparece como: mbam.exe. Allí si encontramos Path = C:\Program Files\Malwarebytes' Anti-Malware.
Entonces deberíamos enviar como argumento mbam y no Malwarebytes' Anti-Malware para que lo encuentre...
Voy a tener que investigar un poco mas.

Un saludo.

[Casimiro Noteví]

Empezado por ecfisa

Para obtener la ruta estoy un poco complicado.
En teoría deberían estar en: \SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\, pero no estan todas.
Y además hay casos como por ejemplo: Malwarebytes' Anti-Malware, cuyo nombre aparece como: mbam.exe. Allí si encontramos Path = C:\Program Files\Malwarebytes' Anti-Malware.
Entonces deberíamos enviar como argumento mbam y no Malwarebytes' Anti-Malware para que lo encuentre...
Voy a tener que investigar un poco mas.
Un saludo.

Sí, ya he visto que no siempre se corresponden los nombres "publicitarios" con los registrados en el sistema.
Parece que no es tan sencillo como se suponía debería ser.