delphi 设置开机自动启动函数
2024-09-12 09:09:31
有些程序要设置为开机启动,所以自己写了个函数方便以后使用,供大家参考
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('Software\Microsoft\Windows\CurrentVersion\Run',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); //删除启动
最新文章
- CF219D. Choosing Capital for Treeland [树形DP]
- PyQt之布局&;无边框&;信号
- api get
- BI案例:BI在连锁零售业应用(ZT)
- 利用HTML5开发Android(5)---HTML5地理位置服务在Android中的应用
- CodeForces 702B Powers of Two
- 获取手机 IP
- Cocos Creator 资源加载流程剖析【二】——Download部分
- 从线性模型(linear model)衍生出的机器学习分类器(classifier)
- SpringBoot之普通类获取Spring容器中的bean
- FL Studio中的音频设置
- fiddler -- 一个强大的抓包工具
- Atitit 烈火计划进展报告 r61
- 多语言网站利器 rel=";alternate"; hreflang=";x";
- React-Route的属性exact
- MySQL 单表优化
- 如何诊断windows性能问题
- Socket网络编程--聊天程序(9)
- PowerDesigner安装及破解
- Oracle相关安装经验总结
热门文章
- 数据分析—NaN数据处理
- shell之netstat命令
- 普通用户操作tomcat项目时报:Neither the JAVA_HOME nor the JRE_HOME environment variable is defined At least one of these environment variable is needed to run this program
- 主流 NoSQL 数据库对比
- 第十七篇:django基础(二)
- 【bzoj4894】天赋 矩阵树定理
- [bzoj3270] 博物馆 [期望+高斯消元]
- POJ 1149 PIGS | 最大流问题
- 电阻 (resistance)
- 用ServletContext做一个简单的聊天室