Отладка кода проверки реестра на Delphi: почему условие всегда идет в ветку else

Delphi , ОС и Железо , Реестр

Вопрос, поднятый пользователем, заключается в том, что при проверке существования ключа в реестре на Delphi, код неизменно переходит в ветку else, несмотря на то, что ключ действительно существует. Давайте разберемся в этой проблеме и найдем решение.

Проблема

Пользователь предоставил код, который должен проверять наличие ключа в реестре на пути HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run. Однако, несмотря на то, что ключ существует, условие KeyExists('nginx.exe') не выполняется, и выполнение переходит в блок else.

var
  reg : TRegistry;
begin
  with TRegistry.Create do try
    RootKey:=HKEY_CURRENT_USER;
    OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run', False);
  if KeyExists('nginx.exe') then begin
    ShowMessage('Ja geht ist da');
    Result := True;
    btnAutostart.ImageIndex := 5
  end
  else begin
    Result := False;
    btnAutostart.ImageIndex := 0;
  end;
  finally
    Free;
  end;
end;

Решение

Проблема заключается в неправильном использовании метода KeyExists. В реестре ключ - это как папка, но вы пытаетесь проверить наличие значения, а не самого ключа. Правильный метод для проверки существования значения - ValueExists.

Шаги для исправления кода:

1. Используйте ValueExists вместо KeyExists для проверки наличия конкретного значения.
2. Используйте OpenKeyReadOnly вместо OpenKey, так как вы только читаете данные из реестра.
3. Проверьте возвращаемое значение OpenKeyReadOnly на случай, если ключ не может быть открыт.
4. Если вы работаете с HKEY_LOCAL_MACHINE, учитывайте проблемы с перенаправлением реестра при выполнении 32-битного процесса на 64-битной системе.

Исправленный код:

var
  reg : TRegistry;
begin
  with TRegistry.Create do try
    RootKey:=HKEY_CURRENT_USER;
    if OpenKeyReadOnly('\Software\Microsoft\Windows\CurrentVersion\Run') then
    begin
      if ValueExists('nginx.exe') then
      begin
        ShowMessage('Ja geht ist da');
        Result := True;
        btnAutostart.ImageIndex := 5
      end
      else
      begin
        Result := False;
        btnAutostart.ImageIndex := 0;
      end;
    end
    else
      ShowMessage('Ключ не может быть открыт');
  finally
    Free;
  end;
end;

Заключение

Ошибка в коде была связана с неправильным пониманием методов работы с реестром. После внесения исправлений, код должен корректно проверять наличие заданного значения в реестре. Надеемся, что эта информация поможет вам в дальнейшей разработке на Delphi.

Создано по материалам из источника по ссылке.

Пользователь столкнулся с проблемой в коде на Delphi, где условие проверки существования ключа в реестре не выполняется, несмотря на его наличие, и код переходит в ветку `else`. Проблема заключается в неправильном использовании метода `KeyExists` вместо

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Реестр ::