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

	DBISAM Password Recovery
	Mail parser (ActiveX)
	MAPIMail
	Excel Reader (dll)
	Word Web-stream
	Viewer for TNEF-files (winmail.dat)
	Fast Document Viewer
	ABA Document Convert
	Protected Storage Viewer
	Database Information Manager

Contact to webmaster