Добавление И Удаление Программы В Автозапуске

[Sascha]

Для того чтобы добавить программу в автозагрузку, можно воспользоваться следующим кодом...

1) В Uses прописываем Registry;

2) В обработчике событий (OnCreate на форме например) пишем :

var

Reg:Tregistry;

begin

Reg:= Tregistry .Create;

Reg.Rootkey:=HKEY_CURRENT_USER;

Reg.OpenKey('Software', true);

Reg.OpenKey('Microsoft', true);

Reg.OpenKey('Windows', true);

Reg.OpenKey('CurrentVersion', true);

Reg.OpenKey('Run', true);

Reg.WriteString('Proga', Application.ExeName);

Reg.CloseKey;

Reg.Free;

end;

Для удаления программы из автозапуска поместим на форме Button:

1) В обработчике событий OnClick, пишем :

var

Reg:Tregistry;

begin

Reg:=Tregistry .Create;

Reg.Rootkey:=HKEY_CURRENT_USER;

Reg.OpenKey('Software', true);

Reg.OpenKey('Microsoft', true);

Reg.OpenKey('Windows', true);

Reg.OpenKey('CurrentVersion', true);

Reg.OpenKey('Run', true);

Reg.DeleteValue('Proga');

Reg.CloseKey;

Reg.Free;

end;

Там где 'Proga' - указываем имя проги которое было указано для автозапуска.Пишем любое имя одним словом.