Добавить программу в автозапуск (автозагрузку) в Delphi
Для того чтобы добавить программу в автозагрузку, можно воспользоваться следующим кодом…
1) В Uses прописываем Registry;
2) В обработчике событий (OnCreate на форме например) пишем :
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
var Reg:Tregistry; begin Reg:= Tregistry.Create; Reg.Rootkey:= HKEY_CURRENT_USER; Reg.OpenKey('Software', true); Reg.OpenKey('Microsoft', true); Reg.OpenKey('Windows', true); Reg.OpenKey('CurrentVersion', true); Reg.OpenKey('Run', true); Reg.WriteString('Proga', Application.ExeName); Reg.CloseKey; Reg.Free; end; |
Там где ‘Proga’ — пишем любое имя одним словом.