delphi设置开机自动启动函数具体实现
有些程序要设置为开机启动，所以自己写了个函数方便以后使用，供大家参考 <BR><div class="codetitle"><span><U>复制代码</U></span> 代码如下:</div><div class="codebody" id="code41857"> <BR>procedure TMainForm.SetAutoRun(ok: boolean); <BR>var <BR>Reg:TRegistry; //首先定义一个TRegistry类型的变量Reg <BR>begin <BR>Reg:=TRegistry.Create; <BR>try //创建一个新键 <BR>Reg.RootKey:=HKEY_LOCAL_MACHINE; //将根键设置为HKEY_LOCAL_MACHINE <BR>Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',true);//打开一个键 <BR>if ok then begin <BR>Reg.WriteString('SMS服务',ExpandFileName(ParamStr(0))); //在Reg这个键中写入数据名称和数据数值 <BR>ShowMessage('注册成功！'); <BR>end <BR>else begin <BR>reg.DeleteValue('SMS服务'); <BR>ShowMessage('删除成功！') <BR>end; <BR>Reg.CloseKey; //关闭键 <BR>finally <BR>Reg.Free; <BR>end; <BR>end; <BR></div> <BR>例子： <BR>SetAutoRun(true); //注册启动 <BR>SetAutoRun(false); //删除启动 <BR><div class="art_xg">
<b>您可能感兴趣的文章:</b><ul><li>一个简单的花指令伪装器-Delphi版木马彩衣</li><li>Delphi实现窗口文字淡入淡出渐变效果的方法</li><li>Delphi实现限定软件使用时间的方法</li><li>Delphi实现图像文本旋转特效完整实例代码</li><li>Delphi实现图片滚动切换的完整实例代码</li><li>Delphi实现读取系统时间与日期完整实例</li><li>Delphi中对时间操作方法汇总</li><li>delphi7连接mysql5的实现方法</li><li>Delphi隐藏TPageControl的标签实例介绍</li><li>DELPHI7.0 获取硬盘、CPU、网卡序列号的代码</li><li>Delphi实现木马自我拷贝方法</li></ul>
</div>
</div>
<!--endmain-->
頁:
[1]