发表评论(0)作者：不详, 平台：VB6.0+Win98, 阅读：8135, 日期：2001-09-17

断程式是独立执行还是在VB环境下执行


作者: 王国荣　

　　此时可呼叫 GetModuleFileName API 函数判断执行档名称是否为 VB5，如果是 VB5， 则GetModuleFileName 最右边的 7 个字元将等於 "VB5.EXE"，

Private Declare Function GetModuleFileName Lib "kernel32" Alias _
        "GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFileName As _
        String, ByVal nSize As Long) As Long

Function IsRunUnderVB5() As Boolean
Dim S As String, Length
Length = 256
S = String(Length, 0)
Call GetModuleFileName(0, S, Length)
S = Left(S, InStr(S, Chr(0)) - 1)
IsRunUnderVB5 = UCase(Right(S, 7)) = "VB5.EXE"
End Function