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.热门推荐
10 五一公司放假祝福语简短
11 追星女孩的祝福语简短
12 给长辈端午祝福语 简短
13 生日祝福语有诗意简短
14 团圆日祝福语简短
15 中秋商务祝福语简短最新
16 温暖文艺简短祝福语短句
17 男孩上学祝福语简短的
18 入住酒店文案祝福语简短