欢迎光临:
非常感谢您光临枕善居。本站是一个免费的基于VB，VB.NET源代码交流的平台，为大家提供优质的专业的源代码，如果您有需要，本站可以帮助在业余时间里给您寻找代码。当然，如果您有好的代码也可以在本站发布，共享给大家。
专业VB和.NET源码、编程开发教程、图标资源、USB电脑遥控器、智能家电控制开关....更多东东请进入我的淘宝小店--->
VB及.NET新源码2011(3DVD,控件+资源)
智能多路控制(串口编程开关) 带源码!
上一篇
下一篇
05-04
16
侦测程序是否运行在VB的IDE开发环境
作者:枕善居主 / 查看次数: 5242 / 评论: 2
一个获取程序是否运行在VB的IDE开发环境的函数
Option Explicit
Private Declare Function GetModuleFileName Lib "kernel32" Alias "GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long
Public Function GetIDEmode() As Boolean
Dim strFileName As String
Dim lngCount As Long
strFileName = String(255, 0)
lngCount = GetModuleFileName(App.hInstance, strFileName, 255)
strFileName = Left(strFileName, lngCount)
If UCase(Right(strFileName, 7)) <> "VB6.EXE" Then
GetIDEmode = False '是
Else
GetIDEmode = True '否
End If
'//也可以获取VB的版本等信息
End Function
Option Explicit
Private Declare Function GetModuleFileName Lib "kernel32" Alias "GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long
Public Function GetIDEmode() As Boolean
Dim strFileName As String
Dim lngCount As Long
strFileName = String(255, 0)
lngCount = GetModuleFileName(App.hInstance, strFileName, 255)
strFileName = Left(strFileName, lngCount)
If UCase(Right(strFileName, 7)) <> "VB6.EXE" Then
GetIDEmode = False '是
Else
GetIDEmode = True '否
End If
'//也可以获取VB的版本等信息
End Function
相关日志:
文章来自: 
引用通告: 
Tags: 
评论: 2 | 
回复
Mndsoft
[2006-11-21 11:01:47 | 
| 
]GetModuleFileNameA 根据英文含义是说该函数获取VB程序实例中的一个模块(Module)名称及大小和句柄.至于功能,请参阅里面的引用.
回复wke_123
[2006-11-20 14:14:44 | | ]Mndsoft，你好，我想请问一下GetModuleFileNameA这个函数的功能是什么，还请赐教.EMail:wke_123@sohu.com
发表评论
您没有权限发表评论！
