如何判断程序处于运行环境还是调试环境
添加时间: 2007-4-9 2:08:00 作者: 程序员认证参考 阅读次数:79 来源: http://www.d9soft.com
使用的时候，在IDE环境下F5运行和编译后运行就可以看到效果。
Option Explicit
?
Private Declare Function GetModuleFileName Lib "kernel32" Alias _
??????? "GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFileName As _
??????? String, ByVal 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
上下文章:
上一篇文章: 程序高手必读：写好C程序的10条秘籍 下一篇文章: 从一个程序出发详细研究DataReader