Delphi可以透過建立開機啟動項目鍵值的方法,將程式加入開機啟動項目。透過此實例程式碼就可以為您的程式新增至快速啟動中,隨著Windows一起啟動,開機即執行的程式。此實例代碼簡單,主要是透過新增註冊表鍵值來實現。
具體的功能代碼如下所示:
unit dy97;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,registry, StdCtrls, ExtCtrls;type TForm1 = class(TForm) Label1: TLabel; Image1: 0mForm; ; 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.