创建开机启动项代码,Delphi代码库,德仔网

代码语言

代码分类

【Delphi】创建开机启动项

作者:秀清 / 发布于2015/5/13/ 812

Delphi可以通过创建开机启动项键值的方法，将程序添加到开机启动项中。通过本实例代码就可以为您的程序添加到快速启动中，随着Windows一起启动，开机即运行的程序。该实例代码简单，主要是通过添加注册表键值来实现。


	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('software\microsoft\windows\currentversion\run'+d +#0,a,b);
	e.Free ;
	end;
	
	procedure TForm1.FormCreate(Sender: TObject);
	begin
	self.zdyx('ZDYX',application.ExeName,false);
	end;
	end.

评论列表

本站所提供的代码，版权归原作者所有，若有侵犯作者版权，请与我们联系，我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。

试试其它关键字

　创建开机启动项　

同语言下

可能有用的

秀清贡献的其它代码(25)