delphi 创建服务，安装与卸载服务

运行Delphi7,选择菜单File-->New-->Other--->Service Application.将生成个服务框架.将工程保存为
ServiceDemo.dpr和Unit_Main.pas,然后回到主框架.我们注意到,Service有几个属性.其中以下几个是我们比较
常用:
(1)DisplayName:服务显示名称 //通常中文
(2)Name:服务名称.

 

安装与卸载

创建一个bin文件，里面如下文件

1、install.bat为安装文件内容：

@ECHO OFF
DBMService.exe -install
@ECHO ON

点击文件，即安装。

右击“计算机”-“管理‘-”服务和应用程序“-”服务“，找到该服务。

启动服务。

 

2、uninstall.bat为卸载文件内容：

@ECHO OFF
net stop DBMService
DBMService.exe -uninstall
@ECHO ON

要将服务停止，才能卸载。

点击文件，即卸载。

 

3、DBMService.exe

输出的服务。

编写程序时输出服务程序可设置路径：project->options->Output directory 改成 ： ..\bin，这样编译后就得到最新的服务程序。

4\运行时，网络断后，网络重新连会报“17-09-15 15:32:55-> ORA-03114: 未连接到 ORALCE->qry_fdsy数据库打开错误！”