Get all installed components? (Views: 34)
Problem/Question/Abstract: How to get all installed components? Answer: uses ToolsApi; {....} var a, i: Integer; begin with (BorlandIDEServices as IOTAPackageServices) do begin for a := 0 to GetPackageCount - 1 do begin for i := 0 to GetComponentCount(a) - 1 do begin {get each component name with GetComponentName(a, i);} end; end; end; end; |