Delphi can add programs to the startup items by creating a startup item key value. Through this example code, you can add your program to the quick startup, start it with Windows, and run the program immediately after booting. The example code is simple and is mainly implemented by adding registry key values.
The specific function code is as follows:
unit dy97;interfaceuses 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.