Delphi创建开机启动项的方法示例
Delphi可以通过创建开机启动项键值的方法，将程序添加到开机启动项中。通过本实例代码就可以为您的程序添加到快速启动中，随着Windows一起启动，开机即运行的程序。该实例代码简单，主要是通过添加注册表键值来实现。
具体的功能代码如下所示：
unitdy97;
interface
uses
Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,
Dialogs,registry,StdCtrls,ExtCtrls;
type
TForm1=class(TForm)
Label1:TLabel;
Image1:TImage;
procedureFormCreate(Sender:TObject);
private
{Privatedeclarations}
public
{Publicdeclarations}
procedurezdyx(a,b:string;c:boolean);
end;
var
Form1:TForm1;
implementation
{$R*.dfm}
{TForm1}
procedureTForm1.zdyx(a,b:string;c:boolean);
var
d:string;
e:TReginiFile;
begin
ifcthen
d:='once'
else
d:='';
e:=TRegIniFile.Create('');
e.RootKey:=HKEY_LOCAL_MACHINE;
e.WriteString('software\microsoft\windows\currentversion\run'+d+#0,a,b);
e.Free;
end;
procedureTForm1.FormCreate(Sender:TObject);
begin
self.zdyx('ZDYX',application.ExeName,false);
end;
end.