最近需要写一个Delphi的系统服务，就是要求能够在计算机启动时就可以直接运行，而不依赖于每个系统用户。查了资料，并认真实践了一下，总结如下：

      打开Delphi 7，新建，选择Other->Service Application 修改属性中Name和DisplayName，Name是Service的名称，决定着进程的标识，DisplayName是显示在操作系统里的服务面板里的服务的名称。例如我们将Name修改为NoticeService。

      新建一个类，例如名字叫做TNoticeThread，继承自TThread，并重写protected过程Execute。在NoticeService的类定义中添加一个NoticeThread对象。

      找到属性的Events选项卡，分别添加OnStart，OnPause，OnContinue，OnStop事件，用这几个事件来控制NoticeThread线程的运行：

      代码如下：

      当然，可以将NoticeThread的定义放在另外一个Unit里即可，如果这样，只需在新建Service Application后，选择新建，Other->Thread Object即可。

      也并不一定非得用一个Thread来控制服务，只要符合需求即可。