首页 / 软件开发 / Delphi / 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;

例子：
SetAutoRun（true）; //注册启动
SetAutoRun（false）; //删除启动