【开源项目】花密(Flower Password)VB版之IDE模块

'*****************************************************************
' Copyright (c) 2011-2012 FlowerPassword.com All rights reserved.
'      Author : xLsDg @ Xiao Lu Software Development Group
'        Blog : http://hi.baidu.com/xlsdg
'          QQ : 4 4 7 4 0 5 7 4 0
'     Version : 1 . 0 . 0 . 0
'        Date : 2 0 1 2 / 0 4 / 0 7
' Description :
'     History :
'*****************************************************************
Option Explicit

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

Public Function isRunInIDEMode() As Boolean

    Dim strFileName As String, lngCount As Long, strAppName As String, lngAppName As Long

    strFileName = String$(255, 0)
    lngCount = GetModuleFileName(App.hInstance, strFileName, 255)
    strFileName = Left$(strFileName, lngCount)
    strAppName = App.EXEName & ".exe"
    lngAppName = Len(strAppName)

    If UCase$(Right$(strFileName, lngAppName)) = UCase$(strAppName) Then
        isRunInIDEMode = False
    Else
        isRunInIDEMode = True

    End If

End Function


阅读更多
想对作者说点什么?

博主推荐

换一批

没有更多推荐了,返回首页