| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Почему не работает конструкция?

cosinus ©   (2008-01-17 16:59:00) 

Элементарная конструкция добавления\удаление программы из автозагрузки. Добавление работает, удаление нет. Ну никак не пойму почему...
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;

---

Anatoly Podgoretsky   (2008-01-17 22:32:00) [1]

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

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

---

Anatoly Podgoretsky   (2008-01-17 22:31:00) [2]

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

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

---

DVM   (2008-01-17 17:18:00) [3]

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

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

---

Palladin   (2008-01-17 17:16:00) [4]

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

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

---

DVM   (2008-01-17 17:05:00) [5]

> cosinus

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

---

cosinus   (2008-01-17 17:05:00) [6]

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

---

Palladin   (2008-01-17 17:02:00) [7]

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

---

clickmaker   (2008-01-17 17:02:00) [8]

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

---

Наверх