Подписаться на RSS рассылку
Главная » Статьи по 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;


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

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

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-2016 Программирование на Delphi для начинающих и не только

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

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

Хостинг от uCoz

Автор проекта: Борисов Сергей

e-mail: save-x@yandex.ru

Связь с администрацией сайта