Скачать: CL | DM;

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

← →
Ванечка   (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 ?

---

← →
Просто Джо ©   (2005-06-27 23:21) [10]

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

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

---

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

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

---

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

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.03 c