Wie lese Ich Hard- und Software aus?

[Luckie]

Na dann wollne wir mal deinen Chef glücklich machen:

Delphi-Quellcode:

uses Registry;

procedure TForm1.Button1Click(Sender: TObject);
var
  reg : TRegistry;
begin
  reg := TRegistry.Create(KEY_READ);
  try
    reg.RootKey := HKEY_LOCAL_MACHINE;
    if reg.OpenKey('Software\Microsoft\Windows\Currentversion\Uninstall', FALSE) then
    begin
       reg.GetKeyNames(Listbox1.Items);
    end
    else
      RaiselastOSError();
  finally
    reg.Free;
  end;
end;

Und das nächste mal sagst du ihm, die paar Zeilen kann er selber schreiben.