CoInternetIsFeatureEnabled in Delphi2010

Question

Ich versuche, den störenden Sound zu deaktivieren, wenn Sie auf einen Link im WebBrowser-Steuerelement klicken, ohne die Benutzerregistry zu ändern. Ich habe die Dokumentation gefunden, dass dies durch CoInternetIsFeatureEnabled, auch here erklärt werden kann. Aber ich habe keine Ahnung, wie man es in Delphi 2010 implementiert, da ich "Undeclared Identifier" -Fehler bekomme, nachdem ich die URLMon-Einheit in das Projekt eingefügt habe und nicht viel Dokumentation da draußen.

Irgendwelche Ideen?

Answer 1

CoInternetIsFeatureEnabled() und CoInternetSetFeatureEnabled() sind nicht in D2010 Kopie von UrlMon.pas enthalten. Sie müssen sie manuell deklarieren, zB:

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' 
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;