delphi设置开机自动启动函数具体实现方式实用指南

作者：袖梨 2026-09-03

平时做技术实践时，很多问题不是概念不会，而是细节没串起来。拿“delphi设置开机自动启动函数具体实现方法”来说，它看着像小点，放到项目里常会牵出环境、配置、兼容性和维护成本。下面按实际采用顺序，把思路、关键写法和容易踩坑的地方讲清楚，便于大家直接对照操作。

有些程序要设置为开机启动，所以自己写了个函数便于以后采用，供大家参考

复制代码代码如下所示:

 
procedure TMainForm.SetAutoRun(ok: boolean); 
var 
Reg:TRegistry; //首先定义一个TRegistry类型的变量Reg 
begin 
Reg:=TRegistry.Create; 
try //新建一个新键 
Reg.RootKey:=HKEY_LOCAL_MACHINE; //将根键设置为HKEY_LOCAL_MACHINE 
Reg.OpenKey('SoftwareMicrosoftWindowsCurrentVersionRun',true);//打开一个键 
if ok then begin 
Reg.WriteString('SMS服务',ExpandFileName(ParamStr(0))); //在Reg这个键中写入数据名称和数据数值 
ShowMessage('注册成功！'); 
end 
else begin 
reg.DeleteValue('SMS服务'); 
ShowMessage('删除成功！') 
end; 
Reg.CloseKey; //关闭键 
finally 
Reg.Free; 
end; 
end; 