Консультация № 69144
30.12.2006, 16:17
0.00 руб.
0 1 1
С наступающим Вас, дорогие эксперты. Подскажите мне пожалуйста, как мне при запуске моей программы поставить ее на автозапуск в реестре?

Обсуждение

Неизвестный
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;
Форма ответа