Форум: "Начинающим";
Текущий архив: 2008.02.10;
Скачать: [xml.tar.bz2];

Вниз

Почему не работает конструкция?   Найти похожие ветки 

← →
cosinus   (2008-01-17 16:59) [0]

Элементарная конструкция добавления\удаление программы из автозагрузки. Добавление работает, удаление нет. Ну никак не пойму почему...
procedure SetAvtoRun(b:boolean);
var
 TheReg: TRegistry;
 KeyName: string;
begin
 TheReg := TRegistry.Create;
 try
   TheReg.RootKey := HKEY_LOCAL_MACHINE;
   KeyName := "Software\Microsoft\Windows\CurrentVersion\Run";
   if TheReg.OpenKey(KeyName, True) then
   if b then TheReg.WriteString("Sticker",paramstr(0))
        else TheReg.DeleteKey("Sticker");
   TheReg.CloseKey;
 finally
   TheReg.Free;
 end;
end;

---

← →
Palladin ©   (2008-01-17 17:02) [1]

вообще то не делетекей, а делетевалюе если что...

---

← →
clickmaker ©   (2008-01-17 17:02) [2]

может, DeleteValue все-таки?

---

← →
DVM ©   (2008-01-17 17:05) [3]

> cosinus

ты пытаешься удалить ключ, который сам же открыл.

---

← →
cosinus   (2008-01-17 17:05) [4]

Ё-мое...
Без комметнтариев...
Спасибо.

---

← →
Palladin ©   (2008-01-17 17:16) [5]

> [3] DVM ©   (17.01.08 17:05)

он пытается удалить ключ "Sticker", в открытом ключе, а не сам открытый ключ

---

← →
DVM ©   (2008-01-17 17:18) [6]

> Palladin ©   (17.01.08 17:16) [5]

А да, не заметил. Но причина то все равно не в этом а в [1]

---

← →
Anatoly Podgoretsky ©   (2008-01-17 22:31) [7]

> DVM  (17.01.2008 17:05:03)  [3]

Он нигде не открывал ключа, более того у него и нет такого ключа, с таким именем.

---

← →
Anatoly Podgoretsky ©   (2008-01-17 22:32) [8]

> DVM  (17.01.2008 17:18:06)  [6]

У него наверно где то стоит try ... except end;

---

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

Форум: "Начинающим";
Текущий архив: 2008.02.10;
Скачать: [xml.tar.bz2];

Наверх

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