delphi操作windows COM+组件服务四

uses
  CmAdmCtl
procedure TForm1.Button1Click(Sender: TObject);
var
  CataColl,CataColl1:TCOMAdminCatalogCollection;
  CataObj,CataObj1:TCOMAdminCatalogObject;
  COMADminCata:TCOMAdminCatalog;
  i,j:integer;
  s:widestring;
  ObjName:WideString;
begin
  COMADminCata := TCOMAdminCatalog.Create(self);
  s:='mzsf';
  Memo1.Lines.Clear;
  CataColl := COMADminCata.GetCollection('Applications');
  CataColl.Populate;
 (* for i := 0 to CataColl.Count - 2 do
  begin
    CataObj := CataColl.Get_Item(i);
    if CataObj.Name ='mzgh' then
    begin
    //  CataColl1:=CataColl.GetCollection('PropertyInfo',CataObj.Get_Key);
      CataColl1:=CataColl.GetCollection('Components',CataObj.Get_Key);
      CataColl1.Populate;
      for j:=0 to CataColl1.Count-1 do
      begin
        CataObj1:=Cata