Delphi は、スタートアップ項目のキー値を作成することで、スタートアップ項目にプログラムを追加できます。このサンプル コードを通じて、プログラムをクイック スタートアップに追加し、Windows で起動し、起動直後にプログラムを実行できます。サンプル コードは単純で、主にレジストリ キー値を追加することによって実装されます。
具体的な関数コードは次のとおりです。
ユニット dy97; インターフェイスは Windows、メッセージ、SysUtils、バリアント、クラス、グラフィックス、コントロール、フォーム、ダイアログ、レジストリ、StdCtrls、ExtCtrls を使用します。タイプ TForm1 = class(TForm) Label1: TLabel; Image1: TImage プロシージャ FormCreate(Sender: TObject) ; private {プライベート宣言} public {パブリック宣言} プロシージャzdyx(a,b: string;c: boolean); end;var Form1: TForm1;implementation{$R *.dfm}{ TForm1 }procedure TForm1.zdyx(a, b: string; c: boolean);var d:文字列; 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'+#0,a,b); e.Free end; FormCreate(送信者: TObject);開始self.zdyx('ZDYX',application.ExeName,false);end;end。