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

Posted by Chas under Delphi, Исходники

Написал свой вариант: http://dl.dropbox.com/u/201788/Projects/AutorunReg.pas

Как использовать:
1а. Положить модуль в папку с программой.
либо
1б. Положить модуль в любое место и в проекте использовать Project/Add to project.
2. Подключить модуль в uses:

unit Unit1;

interface
...
implementation
uses

  AutorunReg;
{$R *.dfm}
...
end.

Примеры использования:
1. Добавить программу в автозагрузку через реестр:

procedure TForm1.Button1Click(Sender: TObject);

begin

  AutorunAddReg;

end;

2. Добавить программу в автозагрузку через папку «Автозагрузка»:

procedure TForm1.Button3Click(Sender: TObject);

begin

  AutorunAddLnk;

end;

3. Удалить программу из автозагрузки через реестр:

procedure TForm1.Button2Click(Sender: TObject);

begin

  AutorunRemoveReg;

end;

4. Удалить программу из автозагрузки через папку «Автозагрузка»:

procedure TForm1.Button4Click(Sender: TObject);

begin

  AutorunRemoveLnk;

end;

5. Проверить, находимся ли мы в автозагрузке в реестре:

procedure TForm1.FormCreate(Sender: TObject);

var

  Registered: Boolean;

begin

  Registered := AutorunCheckReg;

  Caption := BoolToStr(Registered, True);

end;

6. Проверить, находимся ли мы в автозагрузке в папке «Автозагрузка»:

procedure TForm1.FormCreate(Sender: TObject);

var

  Registered: Boolean;

begin

  Registered := AutorunCheckLnk;

  Caption := BoolToStr(Registered, True);

end;

7. Добавить себя в автозагрузку для всех пользователей:

procedure TForm1.Button1Click(Sender: TObject);

begin

  AutorunAddReg(True);

end;

(для папки — аналогично, заменить «Reg» на «Lnk»).

8. Проверить, находимся ли мы в автозагрузке для всех пользователей:

procedure TForm1.FormCreate(Sender: TObject);

var

  Registered: Boolean;

begin

  Registered := AutorunCheckReg(True);

  Caption := BoolToStr(Registered, True);

end;

(для папки — аналогично, заменить «Reg» на «Lnk»).

9. Добавить себя в автозагрузку с параметрами:

procedure TForm1.Button1Click(Sender: TObject);

begin

  AutorunAddReg(False, '/param1 /param2=test "C:\Program Files\file.txt"');

end;

(для папки — аналогично, заменить «Reg» на «Lnk»; также можно использовать True для глобальной регистрации).

тема на форуме

Похожие статьи

• Добавить файл из пути в автозагрузку
• Узнать какие программы в автозагрузке
• Прописать в реестр автозагрузку программы
• Экспорт/импорт реестра (ветка Photoshop)
• Как програмно выполнить экспорт ветки реестра
• Как установить свою иконку для файлов программы
• Как сделать чтобы браузер открывал моё приложение по определённой ссылке?
• Ассоциация файлов с программой
• Путь в реестре
• Включение/отключение отображения рисунков в браузере