Komponentenpalette auflisten

[sh17]

Mit Delphi 6 z.B. so

Delphi-Quellcode:

var
  Reg: TRegistry;
  errlist : TStringList;
  keys : TStringList;
  i : Integer;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_CURRENT_USER;

    if Reg.KeyExists('\Software\Borland\Delphi\6.0') then
    begin

    errlist := TStringList.Create;

      //Installiert?
      if Reg.OpenKey('\Software\Borland\Delphi\6.0', False) then
      begin
        lbDelphi6Info.Caption := Format('Delphi 6 ist im Verzeichnis "%s" installiert.',[Reg.ReadString('RootDir')]);
        Reg.CloseKey;
      end else
        errlist.Add('Kann Schlüssel "HKEY_CURRENT_USER\Software\Borland\Delphi\6.0" nicht öffnen.');

      if Reg.OpenKey('\Software\Borland\Delphi\6.0\Environment Variables', False) then
      begin
        lbD6_Env.Items.DelimitedText := Reg.ReadString('Path');
        Reg.CloseKey;
      end else
        errlist.Add('Kann Schlüssel "HKEY_CURRENT_USER\Software\Borland\Delphi\6.0\Environment Variables" nicht öffnen.');

      if Reg.OpenKey('\Software\Borland\Delphi\6.0\Library', False) then
      begin
        lbD6_BrowsingPath.Items.DelimitedText := Reg.ReadString('Browsing Path');
        lbD6_PackageDCPOutput.Items.DelimitedText := Reg.ReadString('Package DCP Output');
        lbD6_PackageDPLOutput.Items.DelimitedText := Reg.ReadString('Package DPL Output');
        lbD6_SearchPath.Items.DelimitedText := Reg.ReadString('Search Path');
        Reg.CloseKey;
      end else
        errlist.Add('Kann Schlüssel "HKEY_CURRENT_USER\Software\Borland\Delphi\6.0\Library" nicht öffnen.');

    if Reg.OpenKey('\Software\Borland\Delphi\6.0\Known Packages', False) then
      begin
        keys := TStringList.Create;
        Reg.GetValueNames(keys );
        vleD6_Packages.Strings.Clear;
        for i := 0 to keys.Count-1 do
        begin
          vleD6_Packages.Strings.Add(keys[i]+'='+Reg.ReadString(keys[i]));
        end;
        Reg.CloseKey;
        keys.Free;
      end else
        errlist.Add('Kann Schlüssel "HKEY_CURRENT_USER\Software\Borland\Delphi\6.0\Known Packages" nicht öffnen.');

      if Reg.OpenKey('\Software\Borland\Delphi\6.0\Palette', False) then
      begin
        keys := TStringList.Create;
        Reg.GetValueNames(keys );
        vleD6_Palette.Strings.Clear;
        for i := 0 to keys.Count-1 do
        begin
          vleD6_Palette.Strings.Add(keys[i]+'='+Reg.ReadString(keys[i]));
        end;
        Reg.CloseKey;
        keys.Free;
      end else
        errlist.Add('Kann Schlüssel "HKEY_CURRENT_USER\Software\Borland\Delphi\6.0\Palette" nicht öffnen.');
      if errlist.Count > 0 then
        MessageDlg(errlist.Text, mtError, [mbOK], 0);

      errlist.Free;

    end else begin //Key existiert nicht
      lbDelphi6Info.Caption := 'Delphi 6 ist nicht installiert.'
    end;