Delphi开发Windows服务程序

Delphi开发Windows服务程序

2012-07-14 本文行家： hnxiaofu

开发步骤:1、New->Other->ServiceApplication2、现在一个服务程序的框架已经搭起来了，打开Service1窗口，有几个属性说明一下：AllowPause:是否允许暂停AllowStop:是否允许停止Dependencies:设置服务的依存关系，服务的启动是否依赖于某个服务或者组DisplayName:在“服务”窗口显示的名称Interactive:设置

开发步骤: 1、New->Other->Service Application 2、现在一个服务程序的框架已经搭起来了，打开Service1窗口，有几个属性说明一下： AllowPause:是否允许暂停 AllowStop: 是否允许停止 Dependencies: 设置服务的依存关系，服务的启动是否依赖于某个服务或者组 DisplayName: 在“服务”窗口显示的名称 Interactive: 设置为true时可以和Windows桌面进行交互，如果我们想在服务里显示窗体的话此设置就要设置为true，另外ServiceType必须为stWin32 Password: 密码 StartType: 启动方式 3、如果我们想让服务与窗体交互，步骤如下： 在工程中新建一个窗体fmMain 然后在Service1的OnStart中写代码 procedure  TService1.ServiceStart(Sender: TService; var Started:  Boolean); begin Started := True; Svcmgr.Application.CreateForm(TFmMain,  fmMain); FmMain.show; end;

OnStop的代码 procedure TService1.ServiceStop(Sender: TService; var Stopped:  Boolean); begin Stopped :=  True; FmMain.Free; end; 这样在服务启动的时候就会显示出新建的那个窗体 4、编译完成后，我们可以安装服务了，安装方法为： 在cmd窗口中执行 appname /install， 如F:BookDServiceProject1.exe  /install 这样服务就安装完成了 5、同样，删除时也是在cmd窗口输入命令 appname  /uninstall 如F:BookDServiceProject1.exe /uninstall

 

关于其他： 1、关于服务程序的调试 如果我们开发的服务有多个窗体，程序的调试无疑是个大问题 其实服务程序稍微一改就能改成一个标准的Win32工程，为了防止不停的变来变去，我们可以加上一个编译条件，通过编译条件来切换生成服务程序还是普通可执行程序，假设编译条件为 NormalApp，在以下几个地方需要加入编译条件 工程文件中，单元的引用 {$IFDEF  NormalApp} Forms, {$ELSE} SvcMgr, {$ENDIF}

工程初始化 {$IFDEF  NormalApp} Application.Initialize; Application.CreateForm(TFmMain,  FmMain); Application.Run; {$ELSE} if not Application.DelayInitialize or  Application.Installing  then Application.Initialize; Application.CreateForm(TService1,  Service1); Application.Run; {$ENDIF} 这样我们就可以通过增加/删除NormalApp的编译条件来切换服务程序和普通窗口程序了