vb 识别debug和release

发布网友发布时间：2022-05-12 15:17

共1个回答

热心网友时间：2023-10-11 13:58

Private Declare Function GetMoleFileName Lib "kernel32.dll" Alias "GetMoleFileNameA" (ByVal hMole As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long
Private Sub Command1_Click()
    Dim file_path As String * 1000
    GetMoleFileName 0, file_path, 1000
    Dim s As String
    s = Mid(file_path, InStrRev(file_path, "\") + 1)
    If StrComp("vb6.exe", s, vbTextCompare) = 0 Then
        s = "在vb6环境"
    Else
        s = "编译为exe"
    End If
    MsgBox s
End Sub

追问想必你是久经沙场的老手了，佩服。

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com