分类
如何判断程序处于运行环境还是调试环境‖
| 使用的时候，在IDE环境下F5运行和编译后运行就可以看到效果。 |
| Option Explicit |
| ? |
| Private Declare Func | tion GetModuleFileName Lib " | kernel32" Alias _ |
| ??????? "GetModuleFi | leNameA" (ByVal hModule As L | ong, ByVal lpFileName As _ |
| ??????? String, ByVa | l nSize As Long) As Long |
| ? |
| Function IsRunUnderVB6() As Boolean |
| ?Dim S As String |
| ?Dim Length As Long |
| ?Length = 256 |
| ?S = String(Length, 0) |
| ?Call GetModuleFileName(0, S, Length) |
| ?S = Left(S, InStr(S, Chr(0)) - 1) |
| ?IsRunUnderVB6 = UCase(Right(S, | 7)) = "VB6.EXE" |
| End Function |
| ? |
| Private Sub Command1_Click() |
| If IsRunUnderVB6 Then |
| MsgBox "调试" |
| Else |
| MsgBox "运行" |
| End If |
| End Sub |