Leaked source code of windows server 2003
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
|
|
Attribute VB_Name = "HSCHelpFileImageGlobal"Option Explicit
Public g_bOnErrorHandling As BooleanPublic g_XErr As ExtendedErrorInfo
Function GlobalInit() As Boolean Static s_GlobalInit As Boolean If (s_GlobalInit) Then GoTo Common_Exit
g_bOnErrorHandling = True Dim strErrMsg As String: strErrMsg = "": If (g_bOnErrorHandling) Then On Error GoTo Error_Handler Set g_XErr = New ExtendedErrorInfo strErrMsg = "Initializing Global variables" ' Variables for Summary Data.
s_GlobalInit = True
Common_Exit: GlobalInit = s_GlobalInit Exit Function
Error_Handler:
GoTo Common_Exit
End Function
|
