VB and VBA Users Source Code: Capturing GPFs in your VB/VBA applications
[
Home
|
Contents
|
Search
|
Reply
| Previous |
Next
]
VB/VBA Source Code
Capturing GPFs in your VB/VBA applications
By:
Andrew Baker
Email (spam proof):
Email the originator of this post
Date:
Saturday, January 19, 2002
Hits:
1175
Category:
Windows API
Article:
The following code demonstrates how to customise your application's handling of a GPF. It switches the GPF dialog off and allows you to add code to a GPF. See the test routine at the bottom of this post... Option Explicit Private Declare Function SetErrorMode Lib "kernel32" (ByVal wMode As Long) As Long Private Declare Function SetUnhandledExceptionFilter Lib "kernel32" (ByVal lpTopLevelExceptionFilter As Long) As Long Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long) Private Const EXCEPTION_MAXIMUM_PARAMETERS = 15 Private Const EXCEPTION_CONTINUE_EXECUTION = -1 Private Const EXCEPTION_CONTINUE_SEARCH = 0 Private Const EXCEPTION_EXECUTE_HANDLER = 1 Private Type EXCEPTION_RECORD ExceptionCode As Long ExceptionFlags As Long pExceptionRecord As Long ExceptionAddress As Long NumberParameters As Long ExceptionInformation(EXCEPTION_MAXIMUM_PARAMETERS) As Long End Type Private Type CONTEXT FltF0 As Double FltF1 As Double FltF2 As Double FltF3 As Double FltF4 As Double FltF5 As Double FltF6 As Double FltF7 As Double FltF8 As Double FltF9 As Double FltF10 As Double FltF11 As Double FltF12 As Double FltF13 As Double FltF14 As Double FltF15 As Double FltF16 As Double FltF17 As Double FltF18 As Double FltF19 As Double FltF20 As Double FltF21 As Double FltF22 As Double FltF23 As Double FltF24 As Double FltF25 As Double FltF26 As Double FltF27 As Double FltF28 As Double FltF29 As Double FltF30 As Double FltF31 As Double IntV0 As Double IntT0 As Double IntT1 As Double IntT2 As Double IntT3 As Double IntT4 As Double IntT5 As Double IntT6 As Double IntT7 As Double IntS0 As Double IntS1 As Double IntS2 As Double IntS3 As Double IntS4 As Double IntS5 As Double IntFp As Double IntA0 As Double IntA1 As Double IntA2 As Double IntA3 As Double IntA4 As Double IntA5 As Double IntT8 As Double IntT9 As Double IntT10 As Double IntT11 As Double IntRa As Double IntT12 As Double IntAt As Double IntGp As Double IntSp As Double IntZero As Double Fpcr As Double SoftFpcr As Double Fir As Double Psr As Long ContextFlags As Long Fill(4) As Long End Type Private Type EXCEPTION_POINTERS pExceptionRecord As EXCEPTION_RECORD ContextRecord As CONTEXT End Type 'Purpose : Sets up the process handling for any exceptions that may occur ' and prevents the System GPF (General Protection Fault) dialog appearing. ' The zExceptionHandler routine will be called if an exception occurs. 'Inputs : N/A 'Outputs : N/A 'Author : Andrew Baker 'Date : 09/03/2001 14:32 'Notes : 'Revisions : Sub ExceptionSetup() Const SEM_NOGPFAULTERRORBOX = &H2 'Prevents the system GPF dialog displaying SetErrorMode SEM_NOGPFAULTERRORBOX 'Tell the system the routine to call in the event of an exception SetUnhandledExceptionFilter AddressOf zExceptionHandler End Sub 'Purpose : This is called when a GPF/exception occurs in this process 'Inputs : N/A 'Outputs : N/A 'Author : Andrew Baker 'Date : 09/03/2001 14:32 'Notes : 'Revisions : Private Function zExceptionHandler(ExceptionInfo As EXCEPTION_POINTERS) As Long 'Close all file I/O Close 'Add your code here, eg MsgBox "An exception has occured in this application (she's gonna blow!)", vbExclamation End Function 'Demonstration of how to cause a GPF then capture it Sub Test() ExceptionSetup CopyMemory ByVal 0, ByVal 1, 1 'Cause an exception End Sub
Terms and Conditions
Support this site
Download a trial version of the Excel Workbook Rebuilder
