Liste aller installierten Programme

[Luckie]

Welches Betriebssystem? Der Konstruktor der Klasse TRegistry öffnet den Schlüssel immermit allen Rechten, also auch Schreibrechten. Als einfacher Benutzer hat man aber im Hive HKLM keine Schreibrechte, weswegen das Memo wohl leer beleibt. Gäbe es eine gescheite Fehlerbehandlung, wäre das wahrscheinlich auch aufgefallen. Ich hoffe du hast den Code nicht bei uns im Forum gefunden.

[ASM]

Den (Lese)Zugriff auf die Registry starten mit der Anweisung:

Code:

{..}
with TRegistry.Create(KEY_READ) do
{...}

[skh]

Dein Code ist ok.
Ich habe XP und D7 im Einsatz...

[mkinzler]

Und arbeitest als Admin oder normaler Benutzer?
Ab Vista mit aktiver UAC arbeitet aber auch ein Adminbenutzer standradmässig nur mit Benutzerrechten.

[markus5766h]

Win 7 // D7 // o.k.

[turboPASCAL]

Oder so etwas ?

Delphi-Quellcode:

function GetWinAppInstallInfo(outStrings: TStrings): bool;
const
  REG_APPPATHS = '\Software\Microsoft\Windows\CurrentVersion\Uninstall';
var
  AppInfo: string;
  strLst: TStringList;
  i: Integer;
begin
  Result := False;

  if ASSIGNED(outStrings) then
  begin
    with TRegistry.Create(KEY_READ) do
    try
      RootKey := HKEY_LOCAL_MACHINE;

      strLst := TStringList.Create;
      try
        if OpenKey(REG_APPPATHS, False) then
        begin
          GetKeyNames(strLst);
          CloseKey;

          for I := 0 to strLst.Count - 1 do
          begin
            outStrings.Add(format('Application: %s', [strLst[I]]));
            if OpenKey(REG_APPPATHS + '\' + strLst[I], False) then
            begin
              AppInfo := #9'Location:';
              if ValueExists('InstallLocation')
                then AppInfo := AppInfo + #9#9 + ReadString('InstallLocation') + #13#10
                else AppInfo := AppInfo + #9#9'(System)' + #13#10;

              if ValueExists('Displayname') then
                AppInfo := AppInfo + #9'Displayname: ' + #9 + ReadString('Displayname') + #13#10;

              outStrings.Add(AppInfo);
              CloseKey;

              Result := True;
            end;
          end; //for
        end else
        begin
          // Error read
        end;
      finally
        strLst.Free;
      end;
    finally
      Free; // Registry
    end;
  end else
    ShowMessage('Zonk "outStrings" !');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Memo1.Clear;
  GetWinAppInstallInfo(Memo1.Lines);
end;

[Luckie]

Den Code könnte man bezüglich der Fehlerbehandlung noch etwas optimieren. Ich würde zum Beispiel eine Exception werfen und nicht mit Rückgabewerten arbeiten.

[verkouter]

Danke der Tipp mit TRegistry.Create(key_read) war erfolgreich.