delphi 如何把自身写入系统服务自启动？

问题描述：

DELPHI高手帮帮忙啊~
如何将自身（一个小程序）加到系统服务里面 自启动~？
最好写个实例。给小弟参考下~ 谢谢``~
好的回答~ 追加100分``

问题解答：

要写注册表才能完成这个功能
先在uses 里面加入registry

procedure config(start:boolean; //设置自动启动,start为true为允许自动启动，为false不自动启动
var
reg:Tregistry;
begin
reg:=Tregistry.Create;
reg.RootKey:=HKEY_LOCAL_MACHINE;
if start=true then begin
if reg.OpenKey('\SOFTWARE\Microsoft\windows\CurrentVersion\Run',true) then
Reg.writeString('自动运行',Application.ExeName);
reg.CloseKey;
end else begin
if reg.OpenKey('\SOFTWARE\Microsoft\windows\CurrentVersion\Run',true) then
Reg.DeleteValue('自动运行');
reg.CloseKey;
end;
end;

服务本来就是自启动的吧。
菜单，file,new,others,services.
编译完成后，安装，prj1.exe/install,reboot.

补充，StartType:=True;自动运行。
汗。