我是靠谱客的博主 哭泣白昼,这篇文章主要介绍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); //删除启动

最后

以上就是哭泣白昼最近收集整理的关于delphi设置开机自动启动函数具体实现的全部内容,更多相关delphi设置开机自动启动函数具体实现内容请搜索靠谱客的其他文章。

本图文内容来源于网友提供,作为学习参考使用,或来自网络收集整理,版权属于原作者所有。
点赞(134)

评论列表共有 0 条评论

立即
投稿
返回
顶部