Главная » Статьи по Delphi » Реестр » Добавить или убрать программу из автозагрузки

Добавить или убрать программу из автозагрузки

Автор: Борисов С. А.

Чтобы добавить программу в автозапуск 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;

Просмотров: 18094

Обсудить на форуме

0   Спам (03.12.2009) 4. ХХХ А как удалить программу из автозагрузки или просто удалить файл через несколько дней??? Ответ: Видемо в коде вы не разбирались Autorun(false, 'www.DelphiDevelop.ru', Application.ExeName);

0   Спам (20.08.2009) 3. Равиль (ZuBy) а еще лучше использовать Reg : TRegIniFile; и тогда код чуть видоизменится. Reg.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion', false); Reg.WriteString('Run', NameParam, Path);

0   Спам (12.08.2009) 2. sergey Cool! i like this site.

0   Спам (22.01.2009) 1. Mega Men (MegaMen) замените HKEY_LOCAL_MACHINE на HKEY_CURRENT_USER иначе программа не будет доступна в автозапуске на правах обычного пользователя, а только на правах администратора.. вообще стоит немного переделать и дать выбор, например если программе надо запускаться только от имени администратора, то выбор HKEY_LOCAL_MACHINE, в противном случае HKEY_CURRENT_USER, следовательно лучше всего добавить параметр в процедуру (1 и 0 типа byte например), определяя куда мы себя пропишем.. Ответ: Впринципе верно! В этом случае, правда, она будет загружаться только у одного пользователя.

---

Имя *:
Email:
Все смайлы
Код *:

Copyright © 2008 - 2018 Программирование на Delphi для начинающих и не только.

Полнота авторских прав на все материалы, опубликованные на сервере DelphiDevelop.ru принадлежит их авторам.

Перепечатка материалов разрешается с указанием авторства и гиперссылки на первоисточник информации.