Чтобы добавить программу в автозапуск Windows, необходимо добавить в специальную ветвь реестра запись с указанием пути к программе. Uses Registry; ... procedure Autorun(Flag:boolean; NameParam, Path:String); var Reg:TRegistry; begin if Flag then begin Reg := TRegistry.Create; Reg.RootKey := HKEY_CURRENT_USER; Reg.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\Run' , false); Reg.WriteString(NameParam, Path); Reg.Free; end else begin Reg := TRegistry.Create; Reg.RootKey := HKEY_CURRENT_USER; Reg.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\Run' ,false); Reg.DeleteValue(NameParam); Reg.Free; end; end; Пример использования:
procedure TForm1.Button1Click(Sender: TObject); begin Autorun(true,'www.DelphiDevelop.ru' , Application.ExeName); end;
|