考试网 >> IT认证 >> 水平 >> 程序员 >> 如何判断程序处于运行环境还是调试环境

发布时间：2006-06-28 03:09     点击：

　　VB中新建工程，添加一个按钮。
　　
　　使用的时候，在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

 

发表评论： 匿名发表 用户名: 查看评论

您将承担一切因您的行为、言论而直接或间接导致的民事或刑事法律责任 留言板管理人员有权保留或删除其管辖留言中的任意内容 本站提醒：不要进行人身攻击。谢谢配合。