即在组建服务里能看到的,代表COM+应用程序的小球在转的状态现在得到了代表COM+应用程序的TCOMAdminCatalogObject对象,想知道是否在活动。
解决方案 »
- DBGridEh 的Checkboxes 选择记录问题?
- 简单问题,请教大家
- [DCC Error] Unit1.pas(40): E2015 Operator not applicable to this operand type
- 请各位大虾指点关于帮助制作的问题!(简单问题给分20)!
- ???COM+内存问题???
- Delphi7调用Word:如何在插入表格之后再在表格之后插入其他文字——在线结贴
- TShape控件能只让其提供几种选定色的显示吗?我需要一个提供COLOR选择的控件,但只给特定的几种COLOR选择,怎么能做到?
- 如何在没启动workstation服务时候获得本机的工作组
- DElphi7 中嵌入 汇编程序的问题 急 谢谢
- 面向接口编程问题
- 怎样制做安装程序
- 关于安装程序需要qtintf.dll
呵呵,我是说在代码里根据TCOMAdminCatalogObject对象判断
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,或许有帮助。