Listar programas instalados

[jhonny]

Realmente no he probado lo que voy a decir, pero intenta hacerlo de la siguiente manera y nos cuentas como te va:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
const CLAVE =
   '\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall';

 var
   reg    : TRegistry;
   Lista  : TStringList;
   Lista2 : TStringList;
   i,n    : integer;

 begin
   mp.Clear;
   txtpcerrar.Clear;
   {Creamos temporales}
   reg    := TRegistry.Create;
   Lista  := TStringList.Create;
   Lista2 := TStringList.Create;

   {Cargamos todas las subkeys}
   {Load all the subkeys}
   with Reg do
   begin
     RootKey := HKEY_LOCAL_MACHINE;
     OpenKeyReadOnly(CLAVE,false);
     GetKeyNames(Lista);
   end;

   {Cargamos todos los Nombres de valores}
   for i := 0 to Lista.Count -1 do
   begin
     reg.OpenKeyReadOnly(CLAVE + '\' +Lista.Strings[i],false);
     reg.GetValueNames(Lista2);
     {Mostraremos sólo los que tengan 'DisplayName'}
     n:=Lista2.IndexOf('DisplayName');
     if (n <> -1) and (Lista2.IndexOf('UninstallString')<>-1) then
     begin
        {DisplayName+UnInstallString}
       Mp.Lines.Append (reg.ReadString(Lista2.Strings[n])+'    -    
            '+ reg.ReadString(Lista2.Strings Lista2.IndexOf('UninstallString')]));
     end;
   end;
   {Liberamos temporales}
   Lista.Free;
   Lista2.Free;
   reg.CloseKey;
   reg.Destroy;
end;

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

Estoy con un tema de WMI y esto creo (ahora lo se seguro) también se puede hacer utilizando "Windows Management Instrumentation". Para probarlo he realizado un ejemplo donde se vé cómo obtener la información.
La información completa y explicación detallada se puede ver aquí, aun así te adjunto el ejemplo.
Debes importar para ello, desde Delphi la librería: “Microsoft WMI Scripting v1.X Library (Version 1.X)“ de la forma estandard (ahí se explica cómo).

[jhonny]

Ey Neftali, un tema muy interesante, gracias por ponerlo a disposición .

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

Empezado por jhonny

...un tema muy interesante.

Realmente a mi también me lo ha parecido. Actualmente estoy "peleándome" con el por cuestiones de trabajo, pero la verdad es que tiene muchas posibilidades.

Espero seguir ampliándolo en el blog.

[Stereo100]

Buenas, habrá algo parecido para lazarus.

[Casimiro Notevi]

Empezado por Stereo100

Buenas, habrá algo parecido para lazarus.

¿Lo has probado?