Игнорирование ошибок при выполнении программы

[NecroSlider]

Возникла такая проблема, есть небольшая программка при работе которой на разных версиях виндовс возможна ошибка при считывании данных из рееста, так как не везде они есть. Для наглядности приведу код функции вызывающей ошибку:

function LoadDLL_check():string;
begin
  if Read_DWORD (HKEY_LOCAL_MACHINE, 'SOFTWARE\Microsoft\Windows\CurrentVersion\explorer', 'AlwaysUnloadDll') = 1 then
    main_window.LoadDLL.Checked:=true
  else
   main_window.LoadDLL.Checked:=false;
end;

Если такого параметра в реестре нет, то выскакивает окошко с ошибкой в котором можно нажать ОК и продолжить работу с программой, хотелось бы сделать так, чтобы данное окошко не выскакивало, а checkbox отвечающий за эту функцию просто блокировался (LoadDLL.Enabled:=false). Помню что на Visual Basic была функция что-то вроде - "OnError Resume next" или как-то так, есть ли в Delphi что-то похожее?

[Вадим Буренков]

Есть:
try
//код в котором возможна ошибка
except
//код вызываюшийся при ошибке
end;

[DarkEvil]

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

Возникла такая проблема, есть небольшая программка при работе которой на разных версиях виндовс возможна ошибка при считывании данных из рееста, так как не везде они есть. Для наглядности приведу код функции вызывающей ошибку:

function LoadDLL_check():string;
begin
  if Read_DWORD (HKEY_LOCAL_MACHINE, 'SOFTWARE\Microsoft\Windows\CurrentVersion\explorer', 'AlwaysUnloadDll') = 1 then
    main_window.LoadDLL.Checked:=true
  else
   main_window.LoadDLL.Checked:=false;
end;

Если такого параметра в реестре нет, то выскакивает окошко с ошибкой в котором можно нажать ОК и продолжить работу с программой, хотелось бы сделать так, чтобы данное окошко не выскакивало, а checkbox отвечающий за эту функцию просто блокировался (LoadDLL.Enabled:=false). Помню что на Visual Basic была функция что-то вроде - "OnError Resume next" или как-то так, есть ли в Delphi что-то похожее?

а заключать свой код в
try {..} except {..} end
Пробывали?

[856100]

В вашем коде это будет выглядить так:

function LoadDLL_check():string;
begin
  try
    if Read_DWORD (HKEY_LOCAL_MACHINE, 'SOFTWARE\Microsoft\Windows\CurrentVersion\explorer', 'AlwaysUnloadDll') = 1 then
    main_window.LoadDLL.Checked:=true
 Except
   main_window.LoadDLL.Checked:=false;
  end;
end;

Только Не запускайте из delphi (или отключите в delphi опцию "останавливатся на ошибках")

[АНК]

Еще можно воспользоваться функцией WinAPI RegOpenKey, которая и проверяет наличие ключа в реестре

[NecroSlider]

Всем пасибо, все получилось=)