创建一个自己的服务程序：

File -> New -> Other -> New(选项) -> Service Application 这样delphi会自动生成服务程序的框架。

保存合适的项目名称。(这里单元名为UnitServer.pas, 工程名为ProjectServer.dpr)

在新建的服务里，会发现有DisplayName、Name等属性；

DisplayName:  服务里显示的名称；（服务名: delphi服务演示程序）

Name:服务运行的名称；（服务程序名：DelphiService）

这里要分清楚服务和服务程序两个概念。服务可以启动、停止、删除，自身不能安装和卸载；服务程序则需要安装和卸载；

Net Start 是启动服务程序。

下面为Dos命令下安装服务的exe文件：(Dos下不区分大小写)

Win + R -> cmd -> cd D:\delphi(为项目根目录) ->

ProjectServer.exe /install  //安装       会提示安装success

net start DelphiService     // 启动服务

这里在Win + R -> Services.msc 服务里会看见刚刚启动的服务

服务启动后，程序是不能操作的，要想操作只有停止并卸载

net stop DelphiService         //停止服务

ProjectServer.exe /uninstall  //卸载

虽然什么代码都没有，，但可以创建个空白的服务程序啦。

delphi创建服务程序