Для удаления программы из автозапуска поместим на форме 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' - указываем имя проги которое было указано для автозапуска.
|