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:=CataColl1.Get_Item(j);
        Memo1.Lines.Add(CataObj1.Name);
      end;
      Break;
    end;

  end;*)
 // CataObj:=CataColl.Add;
//  CataObj.Value['Name']:='wwww';
  //CataObj.Set_Value('Name','wwww');
//  CataObj.Value['Activation'] := 'activation';
 // CataObj.Value['Identity']:= 'Identity'  ;

  //CataColl.SaveChanges();

  COMADminCata.InstallComponent('WWWW','D:/本地磁盘(F)/华信恒河/标准程序/标准版住院医生系统/Server/ws_DataCom.dll','','');

  {
  for i:=0 to CataColl.Get_Count -1 do
  begin
    CataObj:=CataColl.Get_Item(i);

    if CataObj.Name:='wwww' then
    begin
      CataColl1:=CataColl.GetCollection('Components',CataObj.Get_Key);
      CataColl1.Populate;
      CataObj1:=CataColl1.Add;
      CataObj1.
    end;
  end;
 }
  COMADminCata.Free;
end;