Wie lese Ich Hard- und Software aus?

[Dray]

So mit Diesem Proggi sollte nur noch deine wirkliche Software gescannt werden:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Reg: TRegIniFile;
  List: TStringList;
  I: Integer;
  S: String;
begin
  Memo1.Lines.Clear;
  reg := TRegIniFile.Create;
  List := TStringList.Create;
  try
    reg.RootKey := HKEY_LOCAL_MACHINE;
    if reg.OpenKey('Software\Microsoft\Windows\Currentversion\Uninstall', FALSE) then begin
      reg.ReadSections(List);
      for I := 0 to List.Count - 1 do begin
        S := Reg.ReadString(List[I], 'DisplayName', '');
        if S <> '' then
          Memo1.Lines.Add(S);
      end;
    end;
  finally
    List.Free;
    reg.Free;
  end;
end;

Ich hoffe bei euch funzt es auch. Ich hatte bisher nur die Möglichkeit das unter Win98 zu Testen.

Wenn Ich jetzt noch die Hardware ausgelesen bekomme dann bin Ich super zufrieden und mein Chef super glücklich!

[Luckie]

Diese Zeile:
reg := TRegistry.Create(KEY_READ); hatte bei mir schon einen tieferen Sinn.
reg := TRegistry.Create; Dieser Code öffnet den Schlüssel mit ALL_ACCESS also mit Lese- und Schreibrechten. Unter HKLM auf NT-basierenden Systemen hat aber nicht jeder Schreibrechte in diesem Schlüssel. Bei einem normalen Benutzer dürfte dein Code also keine Ergebnisse liefern.

[MathiasSimmack]

Zwei Fliegen mit einer Klatsche: So ist es!

1. Die Rechtefrage unter NT wird leider sehr oft vernachlässigt. Was passieren kann, hat Luckie ja erwähnt. Wer dazu noch das try/finally/end vergisst, wird mit einer Fehlermeldung belohnt.

2. Windows orientiert sich auch nur am Vorhandensein eines Displaynamens und zeigt nur dann ein Programm an. Ist eine schöne Methode, bestimmte Programme zu verstecken, damit man sie nicht versehentlich deinstalliert. Das war übrigens die Intention für mein Programm.

< ------ >

@Trouble_Maker: Das sind GUIDs von MSI-Installation. Aus dem Grund liest man ja auch den Displaynamen oder den "QuietDisplayname" aus, da er den Namen der Software im Klartext enthält.

[Dödel]

Und wie liest man einzelne "Dinge" (weiß et wie ichs ausdrücken soll) aus den Schlüsseln aus?
Da in den Schlüsseln immer der Eintrag 'UninstallString' vorhanden ist, welcher die UnInstall-EXE beinhaltet, möchte ich diesen auch auslesen lassen.

Dödel

[Christian Seehase]

Moin Dödel,

Zitat von Dödel:

Da in den Schlüsseln immer der Eintrag 'UninstallString' vorhanden ist

Der ist nicht immer vorhanden.

Zitat von Dödel:

Und wie liest man einzelne "Dinge" (weiß et wie ichs ausdrücken soll) aus den Schlüsseln aus?

Weiter oben im Thread ist ein Beispiel für DisplayName. Gehört ja auch zu den einzelnen "Dingen".

[Dödel]

THX. Ich sollte mir den Code VORM kopieren mal genauer anschauen *schäm*


Dödel