delphi操作windows COM+组件服务二

最新推荐文章于 2017-11-02 20:51:00 发布

jian704

最新推荐文章于 2017-11-02 20:51:00 发布

阅读量1.7k

点赞数

文章标签： delphi windows library file class object

本文链接：https://blog.youkuaiyun.com/jian704/article/details/2474373

版权

本文介绍了如何使用Delphi通过COM接口来操作Windows COM+组件服务，包括删除COM+应用程序的详细步骤。首先，通过创建ActiveX Library获取接口描述文件，接着创建ICOMAdminCatalog接口实例，调用GetCollection方法获取应用程序集合，遍历并删除指定名称的应用程序。此外，还提及了Delphi提供的CmAdmCtl类库，该库封装了COM接口，简化了操作过程。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

使用COM接口
1. 找到接口描述文件COMAdmin_TLB.pas
还是用了个笨办法，新建一个ActiveX Library，再新建一个COM Object，随便起个名字吧。保存。
然后选菜单View->Type Library，在右边Uses页中点右键，选择查看所有类型库，找到COM+1.0 Admin Type Library，保存。OK，在你的保存目录下有了一个COMAdmin_TLB.pas，拷出来，其它的可以删除啦：）
2. 我们来删除一个COM+应用程序
新建一个Delphi工程，保存。添加我们刚才生成的COMAdmin_TLB.pas，别忘了uses啊：）
在COMAdmin_TLB.pas中一共有三个接口，看名字大概能猜出几分
ICOMAdminCatalog     管理COM+目录的接口
ICatalogObject       COM+对象的接口
ICatalogCollection   COM+对象集合的接口

procedure TForm1.Button1Click(Sender: TObject);
var
temp:IDispatch;
i:integer;
CataColl:ICatalogCollection;
CataObj:ICatalogObject;
COMADminCata:ICOMAdminCatalog;
begin
file://先创建一个ICOMAdminCatalog的接口指针，用于
self.COMADminCata := CoCOMAdminCatalog.Create;

最低0.47元/天解锁文章