delphi设置开机自动启动函数具体实现
来源:互联网 发布:二极管功耗计算软件 编辑:程序博客网 时间:2024/04/28 18:35
有些程序要设置为开机启动,所以自己写了个函数方便以后使用,实现比较简单,感兴趣的朋友可以参考下哈
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); //删除启动
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); //删除启动
0 0
- delphi设置开机自动启动函数具体实现
- delphi 设置开机自动启动函数
- 用Delphi实现开机自动启动程序
- 用Delphi实现开机自动启动程序
- delphi开机自动启动程序
- 设置开机自动启动
- android 设置开机自动启动
- oracle开机自动启动设置
- winform开机自动启动设置
- 设置Apache开机自动启动
- WampServer开机自动启动设置
- 设置开机自动启动项目
- WampServer开机自动启动设置
- Oracle 开机自动启动设置
- Delphi XE开发 Android 开机自动启动
- 设置开机自启动函数
- Debian中设置scim开机自动启动
- matlab开机自动启动的设置
- 通过一个activity打开多个fragment,每个fragment包含一个List
- 实验一VC++编程环境的灵活应用 【物联网1132-11】
- Android 实例讲解 Spinner样式修改
- Junit单元测试
- SM2证书的鉴定方法
- delphi设置开机自动启动函数具体实现
- STL 算法集合
- hbase-0.98.1-cdh5.1.0伪分布式安装
- 九大排序算法再总结
- 模式对话框与非模式对话框
- android studio引入第三方JAR.
- (二)Android仿微信—仿微信联系人 首字母分类
- MySQL TIMESTAMP(时间戳)详解
- DELPHI获取系统电源状态的信息