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

← →
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;

← →
Набережных С. (2002-02-08 20:57) [1]

Вероятно, DeleteValue ?

Судя по твоему тексту тебе действительно нужно не удаления ключа, а удаления параметра.

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