1,594
社区成员
发帖
与我相关
我的任务
分享如何知道一个COM+应用程序是否在活动？
即在组建服务里能看到的，代表COM+应用程序的小球在转的状态
现在得到了代表COM+应用程序的TCOMAdminCatalogObject对象，想知道是否在活动。
现在得到了代表COM+应用程序的TCOMAdminCatalogObject对象，想知道是否在活动。
...全文
请发表友善的回复…
发表回复
eastliangliang 2003-09-29
- 打赏
- 举报
试了半天，也没成功，Activation分明是激活的意思，可是不是，凡是激活类型是“服务器”类型的，就返回真，其它的又都不像，不知是不是我没找全，楼主继续努力吧，给你贴段代码，参考帖子：
http://expert.csdn.net/Expert/TopicView1.asp?id=1590460的最后一段
procedure TForm1.Button1Click(Sender: TObject);
var
CataColl:TCOMAdminCatalogCollection;
CataObj:TCOMAdminCatalogObject;
COMADminCata:TCOMAdminCatalog;
i:integer;
begin
COMADminCata := TCOMAdminCatalog.Create(self);
CataColl := COMADminCata.GetCollection('Applications');
CataColl.Populate;
for i := 0 to CataColl.Count - 1 do
begin
CataObj := CataColl.Get_Item(i);
if CataObj.Get_Value('Activation') then //就是这里
Showmessage(IntToStr(i) + ':' + CataObj.Name);
end;
end;
翻翻MSDN，或许有帮助。
http://expert.csdn.net/Expert/TopicView1.asp?id=1590460的最后一段
procedure TForm1.Button1Click(Sender: TObject);
var
CataColl:TCOMAdminCatalogCollection;
CataObj:TCOMAdminCatalogObject;
COMADminCata:TCOMAdminCatalog;
i:integer;
begin
COMADminCata := TCOMAdminCatalog.Create(self);
CataColl := COMADminCata.GetCollection('Applications');
CataColl.Populate;
for i := 0 to CataColl.Count - 1 do
begin
CataObj := CataColl.Get_Item(i);
if CataObj.Get_Value('Activation') then //就是这里
Showmessage(IntToStr(i) + ':' + CataObj.Name);
end;
end;
翻翻MSDN，或许有帮助。
xuecswl 2003-09-29
- 打赏
- 举报
我也想知道...
dahua 2003-09-28
- 打赏
- 举报
我ft。。。
呵呵，我是说在代码里根据TCOMAdminCatalogObject对象判断
呵呵，我是说在代码里根据TCOMAdminCatalogObject对象判断
FSU 2003-09-28
- 打赏
- 举报
到控制面板－－>管理工具－－>组件服务中有个组件服务－－>计算机－－>我的电脑－－>COM+应用程序，点到这里为止，如果COM应用程序在活动的话，则那个组件标志（图标）会在不停的转动！
xry29 2003-09-28
- 打赏
- 举报
开始-》运行-》dcomcnfg
dahua 2003-09-28
- 打赏
- 举报
upup
dahua 2003-09-28
- 打赏
- 举报
u~~p
leapmars 2003-09-28
- 打赏
- 举报
mark 一下
