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

Вниз

В приведённой ниже процедуре почему-то не работает удаление ключа из реестра (из секции автозапуска). Подскажите почему?   Найти похожие ветки 

← →
Song   (2002-02-08 20:10) [0]

procedure TForm1.CheckBox9Click(Sender: TObject);
begin
IF not Form1.Visible then Exit;
With TRegistry.Create Do
try
RootKey:=HKEY_LOCAL_MACHINE;
Access:=KEY_ALL_ACCESS;
OpenKey("Software\Microsoft\Windows\CurrentVersion\Run\",False);
IF CheckBox9.Checked then WriteString("KLD Expert",Application.ExeName)
else DeleteKey("KLD Expert");
CloseKey;
finally
Free;
end;
end;

---

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

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

Наверх

Память: 0.44 MB
Время: 0.004 c