📄 ewbacc.pas

📁 Delphi VCL Component Pack
💻 PAS
📖 第 1 页 / 共 3 页
字号:
   pcszFile: LPCSTR;
   pcszURL: LPCSTR;
   pszAppBuf: LPSTR;
   ucAppBufLen: UINT): HRESULT; stdcall;

function URLAssociationDialogW(hwndParent: HWND;
   dwInFlags: DWORD;
   pcszFile: LPCWSTR;
   pcszURL: LPCWSTR;
   pszAppBuf: LPWSTR;
   ucAppBufLen: UINT): HRESULT; stdcall;

{$IFDEF UNICODE}
function URLAssociationDialog(hwndParent: HWND;
   dwInFlags: DWORD;
   pcszFile: LPCWSTR;
   pcszURL: LPCWSTR;
   pszAppBuf: LPWSTR;
   ucAppBufLen: UINT): HRESULT; stdcall;
{$ELSE}
function URLAssociationDialog(hwndParent: HWND;
   dwInFlags: DWORD;
   pcszFile: LPCSTR;
   pcszURL: LPCSTR;
   pszAppBuf: LPSTR;
   ucAppBufLen: UINT): HRESULT; stdcall;
{$ENDIF}

function MIMEAssociationDialogA(hwndParent: HWND;
   dwInFlags: DWORD;
   pcszFile: LPCSTR;
   pcszMIMEContentType: LPCSTR;
   pszAppBuf: LPSTR;
   ucAppBufLen: UINT): HRESULT; stdcall;

function MIMEAssociationDialogW(hwndParent: HWND;
   dwInFlags: DWORD;
   pcszFile: LPCWSTR;
   pcszMIMEContentType: LPCWSTR;
   pszAppBuf: LPWSTR;
   ucAppBufLen: UINT): HRESULT; stdcall;

{$IFDEF UNICODE}
function MIMEAssociationDialog(hwndParent: HWND;
   dwInFlags: DWORD;
   pcszFile: LPCWSTR;
   pcszMIMEContentType: LPCWSTR;
   pszAppBuf: LPWSTR;
   ucAppBufLen: UINT): HRESULT; stdcall;
{$ELSE}
function MIMEAssociationDialog(hwndParent: HWND;
   dwInFlags: DWORD;
   pcszFile: LPCSTR;
   pcszMIMEContentType: LPCSTR;
   pszAppBuf: LPSTR;
   ucAppBufLen: UINT): HRESULT; stdcall;
{$ENDIF}

function InetIsOffline(dwFlags: DWORD): BOOL; stdcall;

{$IFDEF VER120}

type
   TUrlZoneReg = ULONG;

   PBindInfo = ^TBindInfo;
   _tagBINDINFO = packed record
      cbSize: ULONG;
      szExtraInfo: LPWSTR;
      stgmedData: TStgMedium;
      grfBindInfoF: DWORD;
      dwBindVerb: DWORD;
      szCustomVerb: LPWSTR;
      cbstgmedData: DWORD;
      dwOptions: DWORD;
      dwOptionsFlags: DWORD;
      dwCodePage: DWORD;
      securityAttributes: TSecurityAttributes;
      iid: TGUID;
      pUnk: IUnknown;
      dwReserved: DWORD;
   end;
   TBindInfo = _tagBINDINFO;
   BINDINFO = _tagBINDINFO;

{$NODEFINE POLEStrArray}
   POLEStrArray = ^TOLESTRArray;
{$NODEFINE TOLEStrArray}
   TOLEStrArray = array[0..MaxLongint div SizeOf(POLEStr) - 1] of POLEStr;

{$EXTERNALSYM IInternetBindInfo}
   IInternetBindInfo = interface
      ['{79eac9e1-baf9-11ce-8c82-00aa004ba90b}']
      function GetBindInfo(out grfBINDF: DWORD; var bindinfo: TBindInfo): HResult; stdcall;
      function GetBindString(ulStringType: ULONG; wzStr: POLEStrArray; cEl: ULONG;
         var cElFetched: ULONG): HResult; stdcall;
   end;

   PProtocolData = ^TProtocolData;
{$EXTERNALSYM _tagPROTOCOLDATA}
   _tagPROTOCOLDATA = packed record
      grfFlags: DWORD;
      dwState: DWORD;
      pData: Pointer;
      cbData: ULONG;
   end;
   TProtocolData = _tagPROTOCOLDATA;
{$EXTERNALSYM _tagPROTOCOLDATA}
   PROTOCOLDATA = _tagPROTOCOLDATA;

{$EXTERNALSYM IInternetProtocolSink}
   IInternetProtocolSink = interface; // forward

{$EXTERNALSYM IInternetProtocolRoot}
   IInternetProtocolRoot = interface
      ['{79eac9e3-baf9-11ce-8c82-00aa004ba90b}']
      function Start(szUrl: LPCWSTR; OIProtSink: IInternetProtocolSink;
         OIBindInfo: IInternetBindInfo; grfPI, dwReserved: DWORD): HResult; stdcall;
      function Continue(const ProtocolData: TProtocolData): HResult; stdcall;
      function Abort(hrReason: HResult; dwOptions: DWORD): HResult; stdcall;
      function Terminate(dwOptions: DWORD): HResult; stdcall;
      function Suspend: HResult; stdcall;
      function Resume: HResult; stdcall;
   end;

{$EXTERNALSYM IInternetProtocol}
   IInternetProtocol = interface(IInternetProtocolRoot)
      ['{79eac9e4-baf9-11ce-8c82-00aa004ba90b}']
      function Read(pv: Pointer; cb: ULONG; out cbRead: ULONG): HResult; stdcall;
      function Seek(dlibMove: LARGE_INTEGER; dwOrigin: DWORD; out libNewPosition: ULARGE_INTEGER): HResult; stdcall;
      function LockRequest(dwOptions: DWORD): HResult; stdcall;
      function UnlockRequest: HResult; stdcall;
   end;

{$EXTERNALSYM IInternetProtocolSink}
   IInternetProtocolSink = interface
      ['{79eac9e5-baf9-11ce-8c82-00aa004ba90b}']
      function Switch(const ProtocolData: TProtocolData): HResult; stdcall;
      function ReportProgress(ulStatusCode: ULONG; szStatusText: LPCWSTR): HResult; stdcall;
      function ReportData(grfBSCF: DWORD; ulProgress, ulProgressMax: ULONG): HResult; stdcall;
      function ReportResult(hrResult: HResult; dwError: DWORD; szResult: LPCWSTR): HResult; stdcall;
   end;

{$NODEFINE TLPCWSTRArray}
   TLPCWSTRArray = array[0..MaxLongInt div SizeOf(LPCWSTR) - 1] of LPCWSTR;
{$NODEFINE PLPCWSTRArray}
   PLPCWSTRArray = ^TLPCWSTRArray;

{$EXTERNALSYM IInternetSession}
   IInternetSession = interface
      ['{79eac9e7-baf9-11ce-8c82-00aa004ba90b}']
      function RegisterNameSpace(CF: IClassFactory; const clsid: TCLSID; pwzProtocol: LPCWSTR;
         cPatterns: ULONG; const pwzPatterns: PLPCWSTRArray; dwReserved: DWORD): HResult; stdcall;
      function UnregisterNameSpace(CF: IClassFactory; pszProtocol: LPCWSTR): HResult; stdcall;
      function RegisterMimeFilter(CF: IClassFactory; const rclsid: TCLSID;
         pwzType: LPCWSTR): HResult; stdcall;
      function UnregisterMimeFilter(CF: IClassFactory; pwzType: LPCWSTR): HResult; stdcall;
      function CreateBinding(BC: IBindCtx; szUrl: LPCWSTR; UnkOuter: IUnknown; out Unk: IUnknown;
         out OINetProt: IInternetProtocol; dwOption: DWORD): HResult; stdcall;
      function SetSessionOption(dwOption: DWORD; pBuffer: Pointer; dwBufferLength: DWORD;
         dwReserved: DWORD): HResult; stdcall;
      function GetSessionOption(dwOption: DWORD; pBuffer: Pointer; var dwBufferLength: DWORD;
         dwReserved: DWORD): HResult; stdcall;
   end; // IInternetSession

{$EXTERNALSYM CoInternetGetSession}
function CoInternetGetSession(dwSessionMode: DWORD; var pIInternetSession: IInternetSession;
   dwReserved: DWORD): HResult; stdcall;

type
{$EXTERNALSYM IInternetSecurityMgrSite}
   IInternetSecurityMgrSite = interface
      ['{79eac9ed-baf9-11ce-8c82-00aa004ba90b}']
      function GetWindow(out hwnd: HWnd): HResult; stdcall;
      function EnableModeless(fEnable: BOOL): HResult; stdcall;
   end;

const
{$EXTERNALSYM MAX_SIZE_SECURITY_ID}
   MAX_SIZE_SECURITY_ID = 512; // bytes;

  // MapUrlToZone returns the zone index given a URL
{$EXTERNALSYM PUAF_DEFAULT}
   PUAF_DEFAULT = $00000000;
{$EXTERNALSYM PUAF_NOUI}
   PUAF_NOUI = $00000001;
{$EXTERNALSYM PUAF_ISFILE}
   PUAF_ISFILE = $00000002;
{$EXTERNALSYM PUAF_WARN_IF_DENIED}
   PUAF_WARN_IF_DENIED = $00000004;
{$EXTERNALSYM PUAF_FORCEUI_FOREGROUND}
   PUAF_FORCEUI_FOREGROUND = $00000008;
{$EXTERNALSYM PUAF_CHECK_TIFS}
   PUAF_CHECK_TIFS = $00000010;

// This is the wrapper function that most clients will use.
// It figures out the current Policy for the passed in Action,
// and puts up UI if the current Policy indicates that the user
// should be queried. It returns back the Policy which the caller
// will use to determine if the action should be allowed
// This is the wrapper function to conveniently read a custom policy.

// SetZoneMapping
//    lpszPattern: string denoting a URL pattern
//        Examples of valid patterns:
//            *://*.msn.com
//            http://*.sony.co.jp
//            *://et.msn.com
//            ftp://157.54.23.41/
//            https://localsvr
//            file:\localsvr\share
//            *://157.54.100-200.*
//        Examples of invalid patterns:
//            http://*.lcs.mit.edu
//            ftp://*
//    dwFlags: SZM_FLAGS values

{$EXTERNALSYM SZM_CREATE}
   SZM_CREATE = $00000000;
{$EXTERNALSYM SZM_DELETE}
   SZM_DELETE = $00000001;

type
{$EXTERNALSYM IInternetSecurityManager}
   IInternetSecurityManager = interface
      ['{79eac9ee-baf9-11ce-8c82-00aa004ba90b}']
      function SetSecuritySite(Site: IInternetSecurityMgrSite): HResult; stdcall;
      function GetSecuritySite(out Site: IInternetSecurityMgrSite): HResult; stdcall;
      function MapUrlToZone(pwszUrl: LPCWSTR; out dwZone: DWORD;
         dwFlags: DWORD): HResult; stdcall;
      function GetSecurityId(pwszUrl: LPCWSTR; pbSecurityId: Pointer;
         var cbSecurityId: DWORD; dwReserved: DWORD): HResult; stdcall;
      function ProcessUrlAction(pwszUrl: LPCWSTR; dwAction: DWORD;
         pPolicy: Pointer; cbPolicy: DWORD; pContext: Pointer; cbContext: DWORD;
         dwFlags, dwReserved: DWORD): HResult; stdcall;
      function QueryCustomPolicy(pwszUrl: LPCWSTR; const guidKey: TGUID;
         out pPolicy: Pointer; out cbPolicy: DWORD; pContext: Pointer; cbContext: DWORD;
         dwReserved: DWORD): HResult; stdcall;
      function SetZoneMapping(dwZone: DWORD; lpszPattern: LPCWSTR;
         dwFlags: DWORD): HResult; stdcall;
      function GetZoneMappings(dwZone: DWORD; out enumString: IEnumString;
         dwFlags: DWORD): HResult; stdcall;
   end;

{$EXTERNALSYM IInternetHostSecurityManager}
   IInternetHostSecurityManager = interface
      ['{3af280b6-cb3f-11d0-891e-00c04fb6bfc4}']
      function GetSecurityId(pbSecurityId: Pointer; var cbSecurityId: DWORD;
         dwReserved: DWORD): HResult; stdcall;
      function ProcessUrlAction(dwAction: DWORD; pPolicy: Pointer; cbPolicy: DWORD;
         pContext: Pointer; cbContext, dwFlags, dwReserved: DWORD): HResult; stdcall;
      function QueryCustomPolicy(const guidKey: TGUID; out pPolicy: Pointer; out cbPolicy: DWORD;
         pContext: Pointer; cbContext, dwReserved: DWORD): HResult; stdcall;
   end;

type
   PZoneAttributes = ^TZoneAttributes;
{$EXTERNALSYM _ZONEATTRIBUTES}
   _ZONEATTRIBUTES = packed record
      cbSize: ULONG;
      szDisplayName: array[0..260 - 1] of WideChar;
      szDescription: array[0..200 - 1] of WideChar;
      szIconPath: array[0..260 - 1] of WideChar;
      dwTemplateMinLevel: DWORD;
      dwTemplateRecommended: DWORD;
      dwTemplateCurrentLevel: DWORD;
      dwFlags: DWORD;
   end;
   TZoneAttributes = _ZONEATTRIBUTES;
{$EXTERNALSYM ZONEATTRIBUTES}
   ZONEATTRIBUTES = _ZONEATTRIBUTES;

// Gets the zone attributes (information in registry other than actual security
// policies associated with the zone).  Zone attributes are fixed as:
// Sets the zone attributes (information in registry other than actual security
// policies associated with the zone).  Zone attributes as above.
// Returns S_OK or ??? if failed to write the zone attributes.
{  Registry Flags

    When reading, default behavior is:
        If HKLM allows override and HKCU value exists
            Then use HKCU value
            Else use HKLM value
    When writing, default behavior is same as HKCU
        If HKLM allows override
           Then Write to HKCU
           Else Fail
}

const
{$EXTERNALSYM URLZONEREG_DEFAULT}
   URLZONEREG_DEFAULT = 0;
{$EXTERNALSYM URLZONEREG_HKLM}
   URLZONEREG_HKLM = URLZONEREG_DEFAULT + 1;
{$EXTERNALSYM URLZONEREG_HKCU}
   URLZONEREG_HKCU = URLZONEREG_HKLM + 1;
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -