Delphi创建开机启动项的方法示例
通过修改注册表项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,需要管理员权限才能写入,部署时记得提一下。
Windows 10 是一款微软推出的经典操作系统,拥有硬件兼容性与多任务处理能力。它更偏向把系统状态查看和常用调节动作放在一起,适合需要持续观察和微调设备状态的场景。
极度公式是一款跨平台专业LaTeX公式识别编辑软件,支持OCR公式识别和多平台编辑。和使用说明,避免使用,享受完整功能与稳定支持。做扫描整理、文字提取和表格转换时,它能把识别后的处理步骤接得更顺,资料录入这类场景会省下不少时间。
















