Delphi может добавлять программы к элементам автозагрузки, создавая значение ключа элемента автозагрузки. С помощью этого примера кода вы можете добавить свою программу в список быстрого запуска, запустить ее в Windows и запустить программу сразу после загрузки. Код примера прост и в основном реализуется путем добавления значений ключей реестра.
Конкретный код функции выглядит следующим образом:
модуль dy97; интерфейс использует Windows, сообщения, SysUtils, варианты, классы, графику, элементы управления, формы, диалоги, реестр, StdCtrls, ExtCtrls; тип TForm1 = класс (TForm) Label1: TLabel; Image1: процедура TImage FormCreate (Sender: TObject) частное { Частные заявления } public { Публичные заявления } процедура; zdyx(a,b: string;c: boolean); end;var Form1: TForm1;реализация{$R *.dfm}{ TForm1 }procedure TForm1.zdyx(a, b: string; c: boolean);var d: строка; e: TReginiFile;begin if c then d := 'ones' else d:= ''; TRegIniFile.Create(''); e.RootKey := HKEY_LOCAL_MACHINE; e.WriteString('software/microsoft/windows/currentversion/run'+d +#0,a,b); e.Free ; процедура TForm1. FormCreate (Отправитель: TObject); начать self.zdyx('ZDYX',application.ExeName,false);end;end.