NTServer问题，等待高手赐教

[Hovers]

打开Delphi编辑器，选择菜单中的File|New，在New Item中选择Service Application项，Delphi便自动为你建立一个基于TServiceApplication的新工程，TServiceApplication是一个封装NT服务程序的类，它包含一个TService1对象以及服务程序的装卸、注册、取消方法。
将TService1对象的属性做下列更改：
　　DisplayName与Name改为：DataBackup，ServiceStartName属性改为系统管理员用户(如DOMAIN\Administrator)和Password则输入用户密码
　　这样，服务程序运行时将自己以该用户的权限操作NT。
　　这样，一个NT服务程序编写已经完成

小弟试着做个没有代码的服务运行都正常，但如果想加入过程实现某些功能，应该在什么位置加入代码？

[Hovers]

那为大侠如果给小弟一个简单的例子并能正常运行，小弟另开贴送100分，谢谢
[e-mail]

[beyondtkl]

在你的ServeMain()函数中 可以创建一个<多个>线程
你想要做的 就写在线程的执行代码 就OK

[aiirii]

http://borland.mblogger.cn/aiirii/category/400.aspx

http://aiirii.mblogger.cn/posts/2524.aspx

[Hovers]

能给小弟提供一下详细的步骤吗？