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('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实现窗口文字淡入淡出渐变效果的方法
• Delphi实现限定软件使用时间的方法
• Delphi实现图像文本旋转特效完整实例代码
• Delphi实现图片滚动切换的完整实例代码
• Delphi实现读取系统时间与日期完整实例
• Delphi中对时间操作方法汇总
• delphi7连接mysql5的实现方法
• Delphi隐藏TPageControl的标签实例介绍
• DELPHI7.0 获取硬盘、CPU、网卡序列号的代码
• Delphi实现木马自我拷贝方法