Отправляет email-рассылки с помощью сервиса Sendsay

Программирование. Форум !!!

Registry.DeleteKey

Hello comp,

Необходимо полностью удалить ключ реестра. Следующий код отрабатывает
без ошибок, но результат сабжа=false. Подскажите, в чем ошибка

function DeleteRegistryKeySh(RootKey: HKEY; RegKeyName: string):boolean;
begin
Registry.RootKey:=RootKey;
Registry.OpenKey(RegKeyName, False);
Result:=Registry.DeleteKey(RegKeyName);
// Registry.DeleteValue(RegKeyName); также не удаляет значение ключа.
Registry.CloseKey;
end;

begin
...
DeleteRegistryKeySh(HKEY_CURRENT_USER, 'Software\MyProgram');
...
end;

Ответить   Mon, 29 Mar 2004 12:17:55 +0600 (#114050)