delphi 设置开机自动启动函数
2016-05-30 17:23
477 查看
有些程序要设置为开机启动,所以自己写了个函数方便以后使用,供大家参考
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); //删除启动
相关文章推荐
- Delphi创建开机启动项的方法示例
- Delphi中始终用WebBrowser打开网页
- Delphi自动适应屏幕分辨率的属性
- delphi禁止webbrowser弹出窗口或者脚本错误
- Delphi“尚未调用CoInitialize”解决方法
- Delphi 实现窗体自适应调整尺寸以适应不同屏幕分辩率的显示问题
- Delphi 中的哈希表(1): THashedStringList
- Delphi中的THashedStringList对象
- Delphi日期函数大全
- 在Delphi开发的服务中调用指定应用程序
- Delphi的学习笔记十六——数据类型
- delphi显示hello world 和退出程序
- 打开Delphi 10.1 berlin提示脚本错误的解决方法
- Delphi日期函数大全
- Delphi ADOQuery连接数据库的查询、插入、删除、修改
- Delphi下生成Map文件方法
- delphi 中COPY()函数的意思
- Delphi RAD Server 应用服务基础平台
- Delphi XE10.1 引用计数
- Delphi的学习笔记十四——接口