Скачать: CL | DM;

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

← →
Rendal ©   (2009-11-02 13:18) [0]

Не удаляется ключ, подскажите как правильно воспользоваться функцией  DeleteKey и DeleteValue:

procedure RegON;
var k: TRegistry;
begin
 k := TRegistry.Create;
 with k do
 begin
   RootKey := HKEY_LOCAL_MACHINE;
   OpenKey("\Software\Microsoft\Windows\CurrentVersion\Run", true);
   WriteString("CommandLine", ExtractFilePath     (Application.ExeName)+"CommandLine.exe");
   CloseKey;
   Free;
 end;
end;

procedure RegOFF;
var k: TRegistry;
begin
 k := TRegistry.Create;
 with k do
 begin
   RootKey := HKEY_LOCAL_MACHINE;
   OpenKey("\Software\Microsoft\Windows\CurrentVersion\Run", true);
   DeleteKey("CommandLine");
   DeleteValue(ExtractFilePath(Application.ExeName)+"CommandLine.exe");
   CloseKey;
   Free;
 end;
end;


---

← →
Сергей М. ©   (2009-11-02 13:25) [1]

> Не удаляется ключ


Так удалять-то нечего - нет такого ключа, ты его не создавал.

---

← →
Rendal ©   (2009-11-02 13:31) [2]

Нет, я использовал процедуру RegON в запущенной программе, наличие ключа проверил

---

← →
Сергей М. ©   (2009-11-02 13:34) [3]

> наличие ключа проверил


НЕТ ключа.
Не создавал ты его.
WriteString - это НЕ создание ключа.

---

← →
Rendal ©   (2009-11-02 13:36) [4]

хм... у меня в ccleaner даже в группе автозагрузка появился путь к проге...
а как тогда правильно?

---

← →
Rendal ©   (2009-11-02 13:38) [5]

CreateKey и DeleteKey? Что написать в параметрах?

---

← →
Сергей М. ©   (2009-11-02 13:38) [6]

RootKey := HKEY_LOCAL_MACHINE;
  OpenKey("\Software\Microsoft\Windows\CurrentVersion\Run", true);
  DeleteValue("CommandLine");
  CloseKey;

---

← →
Rendal ©   (2009-11-02 13:45) [7]

Сработало, Спс!

---

← →
Сергей М. ©   (2009-11-02 13:46) [8]

> Rendal


Разберись раз и навсегда, что есть ключ, что есть параметр ключа, что есть значение параметра ключа

---

← →
Anatoly Podgoretsky ©   (2009-11-02 14:31) [9]

У ключа значений нет.

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.006 c