Текущий архив: 2008.02.10;
Скачать: CL | DM;
Вниз
Почему не работает конструкция? Найти похожие ветки
← →
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;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.02 c
