1,451
社区成员
发帖
与我相关
我的任务
分享
Option Explicit
Private Declare Function SetUnhandledExceptionFilter Lib "KERNEL32" ( _
ByVal lpTopLevelEF As Long) As Long
' 程序入口:
Private Sub Main()
Call SetUnhandledExceptionFilter(AddressOf SimSEH)
' 其它处理代码……
frmMain.Show ' 显示主窗口
End Sub
Private Function SimSEH(lPointer As Long) As Long
SimSEH = 1&
End Function