var
Rg:TRegistry;
begin
Rg:=TRegistry.Create;
Rg.RootKey:=HKEY_CURRENT_USER;
Rg.OpenKey('Software\MyProgram',true);
Rg.DeleteValue('RegKeyName');
Rg.CloseKey;
Rg.Free;
end;
| > Буду очень благодарна тому, кто подскажет, почему с помощью > нижеописанного кода не могу удалить ключ реестра. Естественно, данный ключ > существует, но резалт удаления возвращает false. Может, в синтаксисе что > не так. > > function DeleteRegistryKeySh(RootKey: HKEY; RegKeyName: string):boolean; > begin > Registry.RootKey:=RootKey; > Registry.OpenKey(RegKeyName, False); > Result:=Registry.DeleteKey(RegKeyName); > Registry.CloseKey; > end; > > begin > ... > DeleteRegistryKeySh(HKEY_CURRENT_USER, 'Software\MyProgram'); > ... > end; > > -- > Best regards, > vpw mailto:v***@m*****.ru > > Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru > Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru > Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru > Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru > > |
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru
-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: mailto:comp.soft.prog.prog--unsub@subscribe.ru
http://subscribe.ru/ mailto:ask@subscribe.ru