分类导航

wordpress 发布时间：2022-04-02 发布网站：大佬教程 code.js-code.com

大佬教程收集整理的这篇文章主要介绍了windows – Delphi2010中的CoInternetIsFeatureEnabled，大佬教程大佬觉得挺不错的，现在分享给大家，也给大家做个参考。

概述

我试图在WebBrowser控件中单击链接时停用恼人的声音,而不更改用户注册表.我发现文档可以通过 CoInternetIsFeatureEnabled完成,也解释了 here.但我不知道如何在Delphi 2010上实现它,因为我在将uRLMon单元包含到项目中后得到“未声明的标识符”错误并且没有太多文档在那里. 有任何想法吗？ CoInternetIsFeatureEnabled()和CoIn

有任何想法吗？

CoInternetIsFeatureEnabled()和CoInternetSetFeatureEnabled()不包含在D2010的UrlMon.pas副本中.您必须手动声明它们,例如：

const
  GET_FEATURE_FROM_THREAD = $00000001;
  GET_FEATURE_FROM_PROCESS = $00000002;
  GET_FEATURE_FROM_REGISTRY = $00000004;
  GET_FEATURE_FROM_THREAD_LOCALMACHINE = $00000008;
  GET_FEATURE_FROM_THREAD_INTRANET = $00000010;
  GET_FEATURE_FROM_THREAD_TRUSTED = $00000020;
  GET_FEATURE_FROM_THREAD_INTERNET = $00000040;
  GET_FEATURE_FROM_THREAD_REStriCTED = $00000080;

  SET_FEATURE_ON_THREAD = $00000001;
  SET_FEATURE_ON_PROCESS = $00000002;
  SET_FEATURE_IN_REGISTRY = $00000004;
  SET_FEATURE_ON_THREAD_LOCALMACHINE = $00000008;
  SET_FEATURE_ON_THREAD_INTRANET = $00000010;
  SET_FEATURE_ON_THREAD_TRUSTED = $00000020;
  SET_FEATURE_ON_THREAD_INTERNET = $00000040;
  SET_FEATURE_ON_THREAD_REStriCTED = $00000080; 

type
  INTERNETFEATURELIST = (
    FEATURE_OBjeCT_CACHING,FEATURE_ZONE_ELEVATION,FEATURE_MIME_HANDLING,FEATURE_MIME_SNIFFING,FEATURE_WINDOW_REStriCTIONS,FEATURE_WEBOC_POPUPMANAGEMENT,FEATURE_BEHAVIORS,FEATURE_DISABLE_MK_PROTOCOL,FEATURE_LOCALMACHINE_LOCKDOWN,FEATURE_SecurityBAND,FEATURE_REStriCT_ACTIVEXINSTALL,FEATURE_VALIDATE_NAVIGATE_URL,FEATURE_REStriCT_FILEDOWNLOAD,FEATURE_ADDON_MANAGEMENT,FEATURE_PROTOCOL_LOCKDOWN,FEATURE_http_USERNAME_password_DISABLE,FEATURE_SAFE_BINDTOOBjeCT,FEATURE_UNC_SAVEDFILEchecK,FEATURE_GET_URL_DOM_FILEPATH_UNENCODED,FEATURE_TABBED_BROWSING,FEATURE_SSLUX,FEATURE_DISABLE_NAVIGATION_SOUNDS,FEATURE_DISABLE_LEGACY_COMPRESSION,FEATURE_FORCE_ADDR_AND_STATUS,FEATURE_XMLhttp,FEATURE_DISABLE_TELNET_PROTOCOL,FEATURE_@L_944_7@S,FEATURE_BLOCK_INPUT_PROMPTS,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'

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;