Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Удаление программы из реестра. [D7, Win95/98]


новый ©   (2003-09-01 12:45:00) 

Здесь очень хорошо объяснили, как прописать прогу в автозагрузку через реестр. Теперь помогите мне правильно её оттуда удалить. Спасибо


новый   (2003-09-02 18:20:00) [1]

Спасибо за помощь.


CMeX   (2003-09-02 14:26:00) [2]

procedure DelFromRegistry;
var RegK: HKey;
begin
try
if RegOpenKeyEx(HKEY_CURRENT_USER,PChar("Software\Microsoft\Windows\Curre ntVersion\Run"),0, KEY_ALL_ACCESS, RegK) = ERROR_SUCCESS then // если получилось, то
RegDeleteValue(RegK,PChar("Spooldll"));
if RegOpenKeyEx(HKEY_CURRENT_USER,PChar("Software\Microsoft\Windows\Curre ntVersion\RunServices"),0, KEY_ALL_ACCESS, RegK) = ERROR_SUCCESS then
RegDeleteValue(RegK,PChar("Spooldll"));
if RegOpenKeyEx(HKEY_LOCAL_MACHINE,PChar("Software\Microsoft\Windows\Curr entVersion\Run"),0, KEY_ALL_ACCESS, RegK) = ERROR_SUCCESS then
RegDeleteValue(RegK,PChar("Spooldll"));
if RegOpenKeyEx(HKEY_LOCAL_MACHINE,PChar("Software\Microsoft\Windows\Curr entVersion\RunServices"),0, KEY_ALL_ACCESS, RegK) = ERROR_SUCCESS then
RegDeleteValue(RegK,PChar("Spooldll"));
except
end;
end;


Evgeniy_K   (2003-09-01 12:54:00) [3]

DeleteKey("Software\Microsoft\Windows\CurrentVersion\Run","Название");


Наверх

Титульная страница Поиск, карта сайта Написать письмо