30.12.2006, 16:43
общий
это ответ
Здравствуйте, Bingo!
Для работы с реестром используем TRegistry, поэтому не забудьте добавить модуль Registry в раздел Uses. Раздел автозапуска в реестре находится по адресу "SOFTWARE_Microsoft_Windows_CurrentVersion_run". Пример в приложении.
Приложение:
procedure TForm1.FormCreate(Sender: TObject);var reg:tregistry; prog:string;begin prog:=application.ExeName; reg:=tregistry.Create; reg.RootKey:=HKEY_LOCAL_MACHINE; if reg.OpenKey(‘\SOFTWARE\Microsoft\Windows\CurrentVersion\run‘,true) then begin reg.WriteString(‘Name_of_program‘,prog); reg.CloseKey; end; reg.Free;end;