问题描述:
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;自动运行。
汗。