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!