设置开机自启动函数

2016-11-12 11:12:16来源:oschina作者:依宸老爹人点击

第七城市
引入 Registry
procedure 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;
第七城市

最新文章

123

最新摄影

微信扫一扫

第七城市微信公众平台