| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Наличие ключа в реестре [D7, WinXP]

Ванечка ©   (2005-06-27 21:55:00) 

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

---

Ванечка   (2005-06-28 12:38:00) [1]

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

---

Просто Джо   (2005-06-27 23:21:00) [2]

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

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

---

Ванечка   (2005-06-27 23:15:00) [3]

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

---

Просто Джо   (2005-06-27 22:57:00) [4]


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 22:52:00) [5]

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:50:00) [6]

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

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

---

Ванечка   (2005-06-27 22:47:00) [7]

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

---

Просто Джо   (2005-06-27 22:33:00) [8]

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

---

Ванечка   (2005-06-27 22:20:00) [9]

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

---

Anatoly Podgoretsky   (2005-06-27 22:00:00) [10]

RegOpenKeyEx

---

Anatoly Podgoretsky   (2005-06-27 21:57:00) [11]

keyexists

---

Наверх