Note that there are some explanatory texts on larger screens.

plurals
  1. POClicking sound in TWebbrowser
    primarykey
    data
    text
    <p>From this answer <a href="https://stackoverflow.com/questions/4702285/cointernetisfeatureenabled-in-delphi2010">CoInternetIsFeatureEnabled in Delphi2010</a></p> <p>Does anyone know how to stop the clicking sound. That doesn't appear to work in Delphi XE when I drop it into a separate pas file. There is some missing . and other reasons why it wont compile so im a bit stuck.</p> <p>Here's what I did.</p> <pre><code>unit untUrlMon; interface uses Windows; 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_FEEDS, FEATURE_BLOCK_INPUT_PROMPTS, FEATURE_ENTRY_COUNT ); function CoInternetIsFeatureEnabled(FeatureEntry: INTERNETFEATURELIST; dwFlags: DWORD): HRESULT; stdcall; external 'urlmon.dll' implementation 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; </code></pre>
    singulars
    1. This table or related slice is empty.
    plurals
    1. This table or related slice is empty.
    1. This table or related slice is empty.
 

Querying!

 
Guidance

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload