Наличие ключа в реестре

← →
Ванечка (2005-06-27 21:55) [0]

Как программно проверить существование ключа в реестре?
P.S. Если можно с примером

← →
Anatoly Podgoretsky © (2005-06-27 21:57) [1]

keyexists

← →
Anatoly Podgoretsky © (2005-06-27 22:00) [2]

RegOpenKeyEx

← →
Ванечка (2005-06-27 22:20) [3]

А можно на конкретном примере:
Мне нужно проверить существование ветки
HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\WindowsOption
Если она существует тогда Button1.Enabled := True

← →
Просто Джо © (2005-06-27 22:33) [4]

var
Reg: TRegistry;
...
Button1.Enabled := Reg.KeyExists ("bla-bla-bla");

← →
Ванечка (2005-06-27 22:47) [5]

Просто Джо ©
Добавил в таймер
Не работает!

← →
Просто Джо © (2005-06-27 22:50) [6]

> [5] Ванечка (27.06.05 22:47)
> Просто Джо ©
> Добавил в таймер
> Не работает!

Что добавил? Как не работает?

← →
Ванечка (2005-06-27 22:52) [7]

procedure TForm6.Timer3Timer(Sender: TObject); var Reg: TRegistry; begin try Reg := TRegistry.Create; with Reg do begin RootKey := HKEY_LOCAL_MACHINE; if Reg.KeyExists ("\Software\Microsoft\Windows\CurrentVersion\Run\WindowsOption") then Autorun_Del.Enabled := True; end except Autorun_Del.Enabled := False; end; end;
Или я что-то не правильно сделал?

← →
Просто Джо © (2005-06-27 22:57) [8]

procedure TForm1.Timer1Timer(Sender: TObject); var Reg: TRegistry; begin Reg := TRegistry.Create; try Reg.RootKey := HKEY_LOCAL_MACHINE; Button1.Enabled := Reg.KeyExists ("Software\Microsoft\Windows\CurrentVersion\Run\WindowsOption") finally Reg.Free; end; end;

← →
Ванечка (2005-06-27 23:15) [9]

Кнопка не хочет становиться Enabled!
Может из-за того что по умолчанию она Enabled := False ?

> Может из-за того что по умолчанию она Enabled := False ?

Без разницы. Проверь внимательно еще раз строковые литералы.

← →
Ванечка (2005-06-28 12:38) [11]

Всё проверил - работает!
Спасибо!

Наличие ключа в реестре Найти похожие ветки