Здравствуйте.
У меня при загрузке программы читаються некоторые значения из реестра. Если значение не соответствует нужному, выводится ошибка - Invalid data type for 'NoDriveTypeAutoRun'. Это возникает, например, если значение должно быть двоичным, а на его месте такой же параметр, но со строковым значением. Помогите избежать ошибки!

//Чтение
procedure ReadData;
var
buf:Dword;
Reg:TRegistry;
begin
Reg:=TRegistry.Create;
 Reg.RootKey:=HKEY_CURRENT_USER;
  Reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer',False);

if Reg.ValueExists('NoDriveTypeAutoRun') then
 begin
  Reg.ReadBinaryData('NoDriveTypeAutoRun',buf,sizeof(buf));
  if buf=0 then
   Form1.Checkbox11.Checked:=true
  else
   Form1.Checkbox11.Checked:=false;
 end;

 Reg.CloseKey;
Reg.Free;
end;

Обычно для обработки ошибок
используют блок. RTFM

try
...
except
...

Спасибо! try...  ...except - то, что надо.

Но уменя появился еще один вопрос:
Если в моей функции много открытий ключа реестра и закрытий, как быть в таком случае? То есть:

Код

procedure ReadData; var  buf:Dword;  Reg:TRegistry; begin Reg:=TRegistry.Create;  Reg.RootKey:=HKEY_CURRENT_USER;   Reg.OpenKey('Ключ1',False);   ............   Reg.CloseKey;   Reg.RootKey:=HKEY_USERS;   Reg.OpenKey('Ключ2',False);   ............   Reg.CloseKey; Reg.Free; end;

И что Вам не нравится в Вашем коде?

Цитата

У меня при загрузке программы читаються некоторые значения из реестра. Если значение не соответствует нужному, выводится ошибка - Invalid data type for 'NoDriveTypeAutoRun'. Это возникает, например, если значение должно быть двоичным, а на его месте такой же параметр, но со строковым значением. Помогите избежать ошибки!

Посоветовали try...  ...except. А если много открытый и закрытый ключа, как распологать try...  ...except?