Проблема и решение ошибки "Undeclared Identifier" при отключении звука клика в WebBrowser Control в Delphi 2010 без изменения реестра

Delphi , Интернет и Сети , Браузер

При работе с компонентом WebBrowser Control в Delphi 2010 пользователи иногда сталкиваются с проблемой, когда при попытке отключить раздражающий звук при клике на ссылку, возникает ошибка "Undeclared Identifier". Это происходит из-за того, что необходимые функции CoInternetIsFeatureEnabled и CoInternetSetFeatureEnabled не включены в файл UrlMon.pas, который идет в комплекте с Delphi 2010. В данной статье мы рассмотрим, как решить данную проблему, не изменяя при этом реестр пользователя.

Шаг 1: Импорт необходимых функций

Для начала, необходимо вручную объявить функции CoInternetIsFeatureEnabled и CoInternetSetFeatureEnabled. Это можно сделать, добавив следующий код в ваш проект:

const
  GET_FEATURE_FROM_THREAD = $00000001;
  GET_FEATURE_FROM_PROCESS = $00000002;
  // ... другие константы ...

type
  INTERNETFEATURELIST = (
    FEATURE_OBJECT_CACHING,
    FEATURE_ZONE_ELEVATION,
    // ... другие константы интерфейсов ...

    FEATURE_DISABLE_NAVIGATION_SOUNDS,
    FEATURE_ENTRY_COUNT
  );

function CoInternetIsFeatureEnabled(FeatureEntry: INTERNETFEATURELIST; dwFlags: DWORD): HRESULT; stdcall; external 'urlmon.dll'
function CoInternetSetFeatureEnabled(FeatureEntry: INTERNETFEATURELIST; dwFlags: DWORD; fEnable: BOOL): HRESULT; stdcall; external 'urlmon.dll'

Шаг 2: Отключение звука клика

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

begin
  if CoInternetIsFeatureEnabled(FEATURE_DISABLE_NAVIGATION_SOUNDS, GET_FEATURE_FROM_PROCESS) = S_FALSE then
    CoInternetSetFeatureEnabled(FEATURE_DISABLE_NAVIGATION_SOUNDS, SET_FEATURE_ON_PROCESS, True);
end;

Шаг 3: Учет состояния функции

Обратите внимание, что в примере кода проверяется, отключена ли функция, и если нет, то она включается. Важно, что проверка осуществляется на S_FALSE, что означает, что функция не включена. Если функция уже включена, то проверка будет на S_OK.

Шаг 4: Обновление компонентов

Если вы столкнулись с отсутствием интерфейсов в UrlMon в более новых версиях Delphi, например, в XE4 и XE5, рекомендуется обратиться к Embarcadero с запросом об обновлении или создать запрос в системе технической поддержки (QC ticket).

Заключение

Используя вышеуказанные шаги, вы сможете отключить звук клика по ссылкам в WebBrowser Control, не изменяя при этом системный реестр пользователя. Это решение подходит для разработчиков, использующих Delphi 2010, и позволяет исправить ошибку "Undeclared Identifier", связанную с отсутствием необходимых функций в UrlMon.pas.

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

Пользователи Delphi 2010 сталкиваются с ошибкой 'Undeclared Identifier' при попытке отключить звук клика в WebBrowser Control из-за отсутствия нужных функций в файле UrlMon.pas, и решение проблемы требует ручного объявления этих функций.

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

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

:: Главная :: Браузер ::