Scalabium Software
Knowledge for your independence'.
Home Delphi and C++Builder tips

#69: How can I receive a names of all registered components?

If you want to write the own expert for Delphi/C++Builder IDE and you want to display the names of all registered components, you can use the next code:

uses TypInfo, ToolIntf, Exptintf;

procedure GetComponentNames(lst: TStrings);
var
  i, k: Integer;
  CRef: TClass;
  strName: ShortString;
begin
  lst.Clear;
  for i := 0 to ToolServices.GetModuleCount-1 do
  begin
    for k := 0 to ToolServices.GetComponentCount(i)-1 do
      begin
       CRef := TClass(GetClass(ToolServices.GetComponentName(i, k)));
       while CRef <> nil do
       begin
         strName := CRef.ClassName;
         if lst.IndexOf(strName) = -1 then
           lst.Add(strName);
         if str <> 'TComponent' then
          CRef := CRef.ClassParent
         else
           CRef := nil;
       end;
      end;
  end;
end;

Published: March 16, 2000

See also

	ABA Spreadsheet Convert
	SMMsg suite
	SMImport suite
	DBISAM Viewer
	MAPIMail
	DBExport tools
	Fast Document Viewer
	ABA Picture Convert
	Paradox to Text converter
	Clarion Viewer

Contact to webmaster