Работа с реестром в Delphi

[Oleg Romanchuk]

Всем привет!
Ни как не могу разобраться с одной проблемой (

var
  Reg:TregIniFile;
begin
  Reg:=TregIniFile.Create;
  Reg.RootKey:=HKEY_LOCAL_MACHINE;
  try
  Reg.OpenKey('SOFTWARE\MICROSOFT\Telephone\', false);
  Reg.ReadString('Option', 'Registration', '1111-2222-3333-4444');

В общем нужно проверить на существование это значение: '1111-2222-3333-4444' и если оно сущ. то запускать приложение, иначе Выводить ошибку...
Подскажите функцию, или дайте наводку как это осуществить.

[Stilet]

Через KeyExists
Типа такого.

var
  Reg:TregIniFile;
begin
  Reg:=TregIniFile.Create;
  Reg.RootKey:=HKEY_LOCAL_MACHINE;
  try
  Reg.OpenKey('SOFTWARE\MICROSOFT\Telephone\', false);
  If Reg.KeyExists('1111-2222-3333-4444') then....

[Oleg Romanchuk]

Она проверяет существование Ключа в ветке реестра, а мне нужно что бы проверяла конкретно в ветки реестра значение
('Option', 'Registration', '1111-2222-3333-4444')
Option - это ключ
Registration - это имя
1111-2222-3333-4444 - а это само значение которое нужно проверить...

[Stilet]

Ну так считывай значение и сравнивай его с правильным.

[FaTaL]

Тогда так:

var
  Reg:TregIniFile;
begin
  Reg:=TregIniFile.Create;
  Reg.RootKey:=HKEY_LOCAL_MACHINE;
  Reg.OpenKey('SOFTWARE\MICROSOFT\Telephone\Option', false);
  If Reg.ReadString('Registration') = '1111-2222-3333-4444' then
    //Ваши действия

[Oleg Romanchuk]

ни фига не работает

Вот исходник, тока надо что бы он проверял не ключ в реестре, а Имя, и значение !!!

[FaTaL]

Вот переделал и нормально работает:

[Oleg Romanchuk]

Сообщение от FaTaL

Вот переделал и нормально работает:

Спасибо Большое!!!

[SERG1980]

Вот пример записи чтения в реестр. Подстрой его под себя

[Oleg Romanchuk]

Сообщение от SERG1980

Вот пример записи чтения в реестр. Подстрой его под себя

Спасибо, сейчас гляну)