用Delphi编码实现程序自启动

日期：2007年6月29日作者：查看:[大字体中字体小字体]

作者: 吴淑华

程序自启动的原理

程序自启动有以下两种方式:

1. 利用Win.ini文件实现程序的自动启动

Win.ini是系统保存在“C:Windows”目录下的一个系统初始化文件，系统在启动时会检索该文件中的相关项，以进行系统环境的初始设置。在该文件中的“[windows]”数据段中，有两个数据项“load=”和“run=”,它们的作用就是在系统启动之后自动地装入和运行相关的程序。如果我们需要在系统启动之后立即装入并运行一个程序，只需要将运行文件的全文件名添加在该数据项的后面，系统启动后就会自动运行该程序，系统也会进入特定的操作环境中。

2. 利用注册表实现相关程序的自动启动

系统注册表保存着系统的软件、硬件及其他与系统配置有关的重要信息，一个计算机系统的系统注册表一旦遭到破坏，整个系统将无法运行。在计算机系统注册表中有HKEY_LOCAL_MACHINE/Software/Microsoft/Windows/Current_Version/Run子键，如果要让程序在系统启动的过程中启动该程序，就可以向该目录添加一个子键。具体的过程是在注册表中右击该项，选中其中的“新建”项目，然后选中其中的“串值”，建立新的串值后将它改成相应的名称，双击新建的串值，输入新的数值，自动启动程序的过程就设置完成。

编程实例

在Delphi 5.0中同时具有对注册表和INI文件操作的函数。下面是笔者编写的一个简单程序，该程序通过修改注册表和INI文件，使系统自动启动，相关程序的设置工作比较简单可靠。

1. 程序功能概述

程序的主界面是对话框，在主界面对话框中有两个编辑框、一个按钮组、一个打开文件对话框、两个普通按钮（Button）组成。操作者先在编辑框中添加需要自动加载的程序全文件名（也可以通过浏览按钮来完成），然后通过按钮组中两个按钮完成加载方式的选择（注册表方式或者修改Win.ini文件的方式），最后操作者通过点击“应用”按钮实现程序的自动加载，同时系统会提示操作者是否将计算机重新启动，以便观察程序的具体功能完成情况。

2. 程序代码

procedure TForm1.Button1Click(Sender: TObject);

{浏览按钮的功能代码}

begin

if (OpenDlg.Execute) then

{当操作者选择OK时，程序取得选择文件的全路径名（包括文件的路径及文件名称），并将相应的数值传输给相关的控件变量。}

Edit2.Text := OpenDlg.FileName;

end;

procedure TForm1.OKBtnClick(Sender: TObject);

{应用按钮的功能代码}

Var

lKey: HKey;

i,len: integer;

title, data_set: LPCTSTR;

ret0,ret1: longint;

filename: String;

begin

if (edit1.Text =‘’) THEN

{如果操作者没有填写要设置项的标题，程序显示对话框，提示操作者进行相关内容的填写。}

begin

Application.MessageBox(‘Please input the title name’，‘提示’,MB_OK);

EXIT;

end;

title:=PChar(edit1.Text);

if (edit2.text =‘’)THEN

{如果操作者没有选择要设置的程序全路径文件名，程序显示对话框提示操作者进行相关的选择。}

begin

Application.MessageBox(‘Please input the programe file name’,‘提示’,MB_OK);
[1] [2] 下一页
用Delphi编码实现程序自启动相关文章：
·Vista系统实现自动关机技巧
·Flash制作交互动画教程星座查询器
·小技巧让你轻松DIY你的网页滚动条
·Coreldraw结合 R.A.V.E 制作动画
·动态加载外部css或js文件
·怎么样清除能突破主动防御的新型木马
·Flash与Photoshop合作制作模糊渐变动画
·再谈用Flash引导线制作爱心图案动画
·Flash用鼠标控制图片移动效果动画教程
·Flash引导线制作爱心图案动画
用Delphi编码实现程序自启动相关软件
·《黑名单上的人》05蘑菇行动（198303版）
·《黑名单上的人》01特别行动小组（198208版）
·《彩虹岛》1.13升级至1.14手动更新补丁
·《动物丛林》小游戏
·动脑筋爷爷8
·动脑筋爷爷7
·动脑筋爷爷6
·动脑筋爷爷5
·动脑筋爷爷4
·动脑筋爷爷3

上一篇:用Delphi编写CGI程序返回图象

下一篇:用DELPHI编程求证两数互为质数

特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

用Delphi编码实现程序自启动

精品推荐

热点TOP10

特别推荐