如何用 Delphi 创建系统服务程序

(1)不用登陆进系统即可运行.

(2)具有SYSTEM特权.所以你在进程管理器里面是无法结束它的.

笔者在2003年为一公司开发机顶盒项目的时候,曾经写过课件上传和媒体服务,下面就介绍一下如何用Delphi7创建一个Service程序.

运行Delphi7,选择菜单File-->New-->Other--->Service Application.将生成一个服务程序的框架.将工程保存为ServiceDemo.dpr和Unit_Main.pas,然后回到主框架.我们注意到,Service有几个属性.其中以下几个是我们比较常用的:

(1)DisplayName:服务的显示名称

(2)Name:服务名称.

我们在这里将DisplayName的值改为"Delphi服务演示程序",Name改为"DelphiService".编译这个项目,将得到 ServiceDemo.exe.这已经是一个服务程序了!进入CMD模式,切换致工程所在目录,运行命令"ServiceDemo.exe /install",将提示服务安装成功!然后"net start DelphiService"将启动这个服务.进入控制面版-->管理工具-->服务,将显示这个服务和当前状态.不过这个服务现在什么也干不了,因为我们还没有写代码:)先"net stop DelphiService"停止再"ServiceDemo.exe /uninstall"删除这个服务.回到Delphi7的IDE.

我们的计划是为这个服务添加一个主窗口,运行后任务栏显示程序的图标,双击图标将显示主窗口,上面有一个按钮,点击该按钮将实现Ctrl+Alt+Del功能.

实际上,服务程序莫认是工作于Winlogon桌面的,可以打开控制面板,查看我们刚才那个服务的属性-->登陆,其中"允许服务与桌面交互 "是不打钩的.怎么办?呵呵,回到IDE,注意那个布尔属性:Interactive,当这个属性为True的时候,该服务程序就可以与桌面交互了.

第一步：打开安装程序在../Delphi5/install/setup.exe，密码：../Delphi5/password.txt中111-111-1111 / fex1-91x0 。第二步：开始安装控件，打开升级包在../Delphi5/Delphi升级包/Pack1/下的安装程序，密码同第一步密码相同。第三步：打开升级包在../Delphi5/Delphi升级包/ADO/先安装“d5ado_upgrade.exe”；再安装“d5adoupdate2.exe”这两个安装时的密码同第一步的密码相同。第四步：打开控件文件夹../ReportBuild/rbpro5.exe安装时需要密码，是第一个。第五步：再次打开控件文件夹../woll2woll/1stclassPro_d5.exe安装时需要密码，是第二个。第六步：最后打开控件文件夹../woll2woll/InfoPower2000Pro_d5c5.exe安装时需要密码，是第一个。以上第五步、第六步的密码都是../Delphi5/控件/woll2woll/sn.txt文件下。

---