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 婆婆高寿祝福语大全简短