- Private Declare Function GetModuleFileName Lib "kernel32" Alias "GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFileName As String,ByVal nSize As Long) As Long
-
- Public Function DebugMode() As Boolean
- Dim strFileName As String
- strFileName = String(255, 0)
- DebugMode = Not (UCase(Right(Left(strFileName, GetModuleFileName(App.hInstance, strFileName, 255)), 7)) <> "VB6.EXE")
- End Function
Private Declare Function GetModuleFileName Lib "kernel32" Alias "GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFileName As String,ByVal nSize As Long) As Long
Public Function DebugMode() As Boolean
Dim strFileName As String
strFileName = String(255, 0)
DebugMode = Not (UCase(Right(Left(strFileName, GetModuleFileName(App.hInstance, strFileName, 255)), 7)) <> "VB6.EXE")
End Function