Текущий архив: 2003.10.06;
Скачать: CL | DM;

Вниз

Удаление ключа из реестра   Найти похожие ветки 

← →
Delphin ©   (2003-09-22 22:18) [0]

Есть такой код:
If DxCheckBox13.Checked Then
With TRegistry.Create do begin
Rootkey := HKEY_LOCAL_MACHINE;
OpenKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run",true);
WriteString ("MailReporter",ExeName);
CloseKey;
End
Else
With TRegistry.Create do begin
Rootkey := HKEY_LOCAL_MACHINE;
OpenKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run",true);
If KeyExists("MailReporter") Then
DeleteKey("MailReporter");
Free;
End;
Запись в реестр происходит без проблем, а вот удаление ключа не происходит, С чем это может быть связано?

---

← →
mfender ©   (2003-09-22 22:39) [1]

Попробуй так:

With TRegistry.Create do begin
Rootkey := HKEY_LOCAL_MACHINE;
OpenKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run",true);
If ValueExists("MailReporter") Then
DeleteValue("MailReporter");
Free;
End;


Key - это немного другое.

---

← →
Delphin ©   (2003-09-22 22:41) [2]

Пробовал, не помогает ;(

---

← →
mfender ©   (2003-09-22 22:45) [3]

не может быть. десять секунд назад специально попробовал. помогает. в твоем тексте изменил только два слова.

---

← →
dataMaster ©   (2003-09-22 22:45) [4]

А так?

uses Registry;

procedure EraseReg(aKey:string);
var
R:TRegistry;
begin
R:=TRegistry.Create;
with R do
begin
RootKey:=HKEY_LOCAL_MACHINE;
DeleteKey(aKey);
Free;
end;
end;

---

← →
Delphin ©   (2003-09-22 22:49) [5]

Извиняюсь, помогает, просто не учёл одну мелоч. Однако спасибо =)

---

← →
mfender ©   (2003-09-22 22:49) [6]

Блин. Да ему не ключ удалять надо. Ему нужно удалить строковый, бинарный, булевый, временной и т.д. валуй. Потому и надо бы писать DeleteValue.

---

← →
dataMaster ©   (2003-09-22 22:54) [7]

Только что выложил в кладовку компонент для работы с реестром
http://www.delphimaster.ru/cgi-bin/download.pl?get=1064256799&n=0

Кому надо - берите

---

Страницы: 1 вся ветка

Текущий архив: 2003.10.06;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.022 c