delphi 如何把自身写入系统服务自启动？注意是服务!(提问两天了都没人回答！）

问题描述：

DELPHI高手帮帮忙啊~
如何将自身（一个小程序）一打开就马上自动加载到系统服务里面 自启动~？
最好写个实例。给小弟参考下~ 谢谢``~

提问两天了 百度里面 居然没有一个 DELPHI人才。悲哀啊~

问题解答：

写注册表到这个分支，具体格式参照其它服务
“HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services”
其实服务就是一个通用程序，为系统提供某种功能。它和其它程序没有太大的区别，只不过是在添加删除程序中找不到。
另外下载这个软件，可以在程序中调用该软件，给出应用程序名和存储路径即可。
http://www.basta.com/Software/SetupAppToService.exe
上面的地址不行的话用这个
http://jlbc.skycn.com/down/SetupAppToService.zip