Delphi创建开机启动项的方法示例
作者:小确幸
时间:2026-06-29
浏览:0
通过修改注册表项HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run,利用Delphi自定义过程zdyx实现程序开机自启。参数含启动项名称、程序路径及是否单次运行。需管理员权限,可改用HKEY_CURRENT_USER避免权限问题。
利用Delphi写个开机自启程序,其实没那么复杂,核心思路就是通过注册表操作。把程序添加到“HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run”下,系统启动时就会自动加载你的应用。下面这段代码就演示了具体做法,简单直接,适合直接拿去做个快速启动功能。

来看代码实现:
unit dy97;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,registry, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Image1: TImage;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure zdyx(a,b: string;c: boolean);
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
{ TForm1 }
procedure TForm1.zdyx(a, b: string; c: boolean);
var
d: string;
e: TReginiFile;
begin
if c then
d := 'once'
else
d:= '';
e := TRegIniFile.Create('');
e.RootKey := HKEY_LOCAL_MACHINE;
e.WriteString('softwaremicrosoftwindowscurrentversionrun'+d +#0,a,b);
e.Free ;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
self.zdyx('ZDYX',application.ExeName,false);
end;
end.
关键点在于 zdyx 这个自定义过程:参数 a 是启动项名称,b 是程序路径(通常传 Application.ExeName),c 控制是否写入 RunOnce(只启动一次)。实际调用时传 False 就是标准开机自启。注册表路径别忘了写完整——software\microsoft\windows\currentversion\run,大小写不敏感但别写错。另外注意字符串末尾的 #0 是结束符,常规写法中其实可以省略,不过保留也没问题。
整个代码精炼,适合直接集成到自己的项目里。当然,如果要支持所有用户(包括非管理员),可以考虑写入 HKEY_CURRENT_USER 对应路径,避免权限问题。这里用的是 HKEY_LOCAL_MACHINE,需要管理员权限才能写入,部署时记得提一下。
作者最新文章
Photoshop抠图教程详细步骤图解:新手入门常用方法与技巧
2026-09-22 14:38
Windows 10
2026-09-16 17:44
Python安装后怎么打开:使用IDLE或命令行启动解释器
2026-09-16 13:54
Windows系统Python安装教程:下载、勾选PATH及环境变量配置
2026-09-16 13:53
“等灯不计时”落地解析:算法善意如何转化为技术能力与生态协同
2026-09-08 18:03
上一篇:
Delphi编程常用快捷键大全
热门文章
更多
精品专题
更多
Mac软件
更多
WINDOWS
更多


































