码迷,mamicode.com
首页 > Windows程序 > 详细

delphi 设置开机自动启动函数

时间:2015-06-06 20:47:06      阅读:181      评论:0      收藏:0      [点我收藏+]

标签:

有些程序要设置为开机启动,所以自己写了个函数方便以后使用,供大家参考

 

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 设置开机自动启动函数

标签:

原文地址:http://www.cnblogs.com/plug/p/4557217.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!