| 问题：我写了一个NT服务，我想在服务中添加一个窗体，如何操作？ ( 积分：100, 回复：3,
阅读：45 ) 分类：多线程 ( 版主：g622, wjiachun ) |
|
| 来自：想飞的男孩, 时间：2006-3-28 14:55:00, ID：3396265 | [显示：小字体 | 大字体] |
|
1、大家如果说既然做了服务何必加窗体，服务有服务的好处，权限控制之后不能关闭等等，而窗体有窗体的必要，显示大量的信息就不是ShowMessage能够做到的，而程序中交互是必要的，参数设置等等！
2、如果是服务调用Dll，在Dll中打开窗体，这个方法妖怪了点，暂时不考虑！ 3、如果是Forms.Application.CreateForm(TMainForm, MainForm);我试验过了，没有显示出来，可能我写的不正确！ 4、我也试验了，在服务启动的线程中，写入窗体的创建显示的代码，但是线程干活了，窗体没有显示！包括窗体的OnCreate也没有被调用！ 5、也试验了，在服务的OnStart中，写入窗体的创建显示的代码，服务崩了！ 6、顺，google和大富翁中任意关键字“NT 服务 窗体”的帖子我也都看了！ 7、知道的朋友望赐教！如果有思路，我也可以马上试验！ 来自：wxfdage, 时间：2006-3-28 17:10:09, ID：3396449
服务里边好像不能弹出窗口的，可能是消息系统的问题。不一定非要把窗体做到服务里，只要作个程序和服务程序进行交互，同样能达到目的。
来自：amwfhv, 时间：2006-3-28 17:24:13, ID：3396464
可以做在里面的要设置一下
Interactive,当这个属性为True的时候,该服务程序就可以与桌面交互了. 来自：风铃夜思雨, 时间：2006-3-28 17:27:54, ID：3396473
unit
UnitMain;
interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, SvcMgr; type (*----------------------------------------------------------------------------------*) TSvTProTime = class(TService) procedure ServiceStart(Sender: TService; var Started: Boolean); procedure ServiceStop(Sender: TService; var Stopped: Boolean); procedure ServiceExecute(Sender: TService); procedure ServiceContinue(Sender: TService; var Continued: Boolean); private procedure DisplayForm; procedure StartServer; procedure StopServer; public bDisplaying: Boolean; function GetServiceController: TServiceController; override; end; var SvTProTime: TSvTProTime; implementation {$R *.DFM} uses Unit1, Forms; var F: TForm; { methods } (*--------------------------------------------------------------------------------*) procedure TSvTProTime.DisplayForm; begin if bDisplaying then Exit; bDisplaying := True; F := TForm1.Create(nil); //F.Show; end; (*--------------------------------------------------------------------------------*) procedure TSvTProTime.StartServer; begin bDisplaying := False; end; (*--------------------------------------------------------------------------------*) procedure TSvTProTime.StopServer; begin if bDisplaying then F.Free; end; { events } (*--------------------------------------------------------------------------------*) procedure ServiceController(CtrlCode: DWord); stdcall; begin SvTProTime.Controller(CtrlCode); end; (*--------------------------------------------------------------------------------*) function TSvTProTime.GetServiceController: TServiceController; begin Result := ServiceController; end; (*--------------------------------------------------------------------------------*) procedure TSvTProTime.ServiceStart(Sender: TService; var Started: Boolean); begin Started := True; gbCanClose := False; end; (*--------------------------------------------------------------------------------*) procedure TSvTProTime.ServiceStop(Sender: TService; var Stopped: Boolean); begin ServiceThread.Terminate; Stopped := True; gbCanClose := True; end; (*--------------------------------------------------------------------------------*) procedure TSvTProTime.ServiceExecute(Sender: TService); begin StartServer; try while not Terminated do begin ServiceThread.ProcessRequests(False); Sleep(100); DisplayForm; end finally StopServer; end; end; procedure TSvTProTime.ServiceContinue(Sender: TService; var Continued: Boolean); begin Continued := True; end; end. |
|