一个关于NTService的问题。

[hexenzhou]

我用delphi变了一个NTService形态的应用程序服务器，在IDE开发环境下运行这个服务器的时候，几秒钟后会自动关闭程序，愿以为把这个服务器安装到NT操作系统，客户端调用它就不会出现这种情况，那知当客户端激活这个服务器时，它也会自动关闭并跳出一个对话框：“有其他的客户端正在连接此应用程序，你是否真的要关闭它？”。每次启动客户端都会出现这样的提示。请问该怎么解决这个问题呢？

[chechy]

写如下代码：
ComServer.UIInteractive := False;

[chechy]

这样，对话框就不会跳出了。

[hexenzhou]

我编的NT Servicex形态的应用程序，没有用到TComServer,我只是用到了远程数据模块，也就是TRometeDataModule和TService,而他们都没有UIInterractive属性，TRemoteDataMoudle的继承图：TObject--TPersistent--TComponent--
TDataMoudle--TRemoteDataMoudle. TComServer的继承图：TObject--TComServerObject--TComServer.TService的基础图：TObject--TPersistent--TComponent--TDataModule--TService.
TService倒是有一个Interractive的属性，把它设置成False后问题依旧。

[2zhenggang]

你应该在Onstart()事件中写一句Started := True;
当然OnStop()最好也写一下

[INeedCa]

可能与的服务设置有关，察看你的服务-> 属性-> 登录-> “允许服务与桌面交互”，以及你的COM的属性-> 标识-> 交互式用户 具体怎么操作我不大清楚，你试试看。

[hexenzhou]

TService没有Started的属性啊，TRemoteDataModule也没有Started的属性啊。
你说的Started的属性属于哪个类？

[hexenzhou]

To INeedCa:
按你的意识设置了，可是无效。

[2zhenggang]

首先，找到你的service入Service1,然后在Object Inspector的Events的
OnStart双击你的鼠标……

procedure TService1.ServiceStart(Sender: TService; var Started: Boolean);
begin
Started := True; //在这里！！！够清楚了吧！*_*
end;

[2zhenggang]

至于为什么要写上这么一句，你可以看看源代码，顺便查查Microsoft SDK。估计化两三天就能明白了!现在才发现回答问题真是累啊！不经佩服起那些有n个三角形的“高手”……

[hexenzhou]

非常感谢，现在给分！

[hexenzhou]

http://www.delphispirit.com/catvcl.php?op=Delphi&catid=16&scatid=122

[hexenzhou]

http://www.delphi32.com/vcl/lists/sc_n_35.asp