www.pudn.com > 020630_download.zip > mDialogHook.bas

Attribute VB_Name = "mDialogHook" 
Option Explicit 
 
' ========================================================================== 
' Module:   mDialogHook 
' Filename: mDialogHook.bas 
' Author:   Steve McMahon 
' Date:     24 May 1998 
' 
' Provides functions which can be called via AddressOf for common 
' dialog hook support. 
' ========================================================================== 
Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" ( _ 
    lpvDest As Any, lpvSource As Any, ByVal cbCopy As Long) 
 
Private m_cHookedDialog As Long 
 
Property Let HookedDialog(ByRef cThis As GCommonDialog) 
    'Set cHookedDialog = cThis 
    m_cHookedDialog = ObjPtr(cThis) 
End Property 
Property Get HookedDialog() As GCommonDialog 
Dim oT As GCommonDialog 
    If (m_cHookedDialog <> 0) Then 
        ' Turn the pointer into an illegal, uncounted interface 
        CopyMemory oT, m_cHookedDialog, 4 
        ' Do NOT hit the End button here! You will crash! 
        ' Assign to legal reference 
        Set HookedDialog = oT 
        ' Still do NOT hit the End button here! You will still crash! 
        ' Destroy the illegal reference 
        CopyMemory oT, 0&, 4 
    End If 
End Property 
Public Sub ClearHookedDialog() 
    m_cHookedDialog = 0 
End Sub 
Public Function DialogHookFunction(ByVal hDlg As Long, ByVal msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long 
Dim cD As GCommonDialog 
    Set cD = HookedDialog 
    If Not (cD Is Nothing) Then 
        DialogHookFunction = cD.DialogHook(hDlg, msg, wParam, lParam) 
    End If 
End Function 
Public Function PrintHookProc(ByVal hDlg As Long, ByVal msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long 
Dim cD As GCommonDialog 
    Set cD = HookedDialog 
    If Not (cD Is Nothing) Then 
        PrintHookProc = cD.DialogHook(hDlg, msg, wParam, lParam) 
    End If 
End Function 
Public Function PrintSetupHookProc(ByVal hDlg As Long, ByVal msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long 
Dim cD As GCommonDialog 
    Set cD = HookedDialog 
    If Not (cD Is Nothing) Then 
        PrintSetupHookProc = cD.DialogHook(hDlg, msg, wParam, lParam) 
    End If 
End Function 
 
Public Function PageSetupHook(ByVal hDlg As Long, ByVal msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long 
Dim cD As GCommonDialog 
    Set cD = HookedDialog 
    If Not (cD Is Nothing) Then 
        PageSetupHook = cD.DialogHook(hDlg, msg, wParam, lParam) 
    End If 
End Function 
Public Function CCHookProc(ByVal hDlg As Long, ByVal msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long 
Dim cD As GCommonDialog 
    Set cD = HookedDialog 
    If Not (cD Is Nothing) Then 
        CCHookProc = cD.DialogHook(hDlg, msg, wParam, lParam) 
    End If 
 
End Function 
Public Function CFHookProc(ByVal hDlg As Long, ByVal msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long 
Dim cD As GCommonDialog 
    Set cD = HookedDialog 
    If Not (cD Is Nothing) Then 
        CFHookProc = cD.DialogHook(hDlg, msg, wParam, lParam) 
    End If 
End Function