Delphi創建開機啟動項的代碼示例

Delphi創建開機啟動項鍵值，通過本代碼可為您的程序添加到快速 啟動中，隨Windows一起啟動，開機即運行的程序，代碼簡單，主要是通過添加注冊表鍵值來實現，具體的代碼如示：

vIEw source print? 01 unit dy97; 02 interface 03 uses 04   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 05   Dialogs,registry, StdCtrls, ExtCtrls; 06   07 type 08   TForm1 = class(TForm) 09     Label1: TLabel; 10     Image1: TImage; 11     procedure FormCreate(Sender: TObject); 12   private 13     { Private declarations } 14   public 15     { Public declarations } 16     procedure zdyx(a,b: string;c: boolean);  17   end; 18   19 var 20   Form1: TForm1; 21   22 implementation 23   24 {$R *.dfm} 25   26 { TForm1 } 27   28 procedure TForm1.zdyx(a, b: string; c: boolean); 29 var 30   d: string; 31   e: TReginiFile; 32 begin 33   if c then 34     d := 'once' 35   else 36     d:= ''; 37   e := TRegIniFile.Create(''); 38   e.RootKey := HKEY_LOCAL_MacHINE; 39   e.WriteString('software\microsoft\Windows\currentversion\run'+d +#0,a,b); 40   e.Free ;   41 end; 42   43 procedure TForm1.FormCreate(Sender: TObject); 44 begin 45   self.zdyx('ZDYX',application.ExeName,false); 46 end; 47 end.