首页 >> 读书频道 >> 电脑 >> VB中调用API函数检测当前系统环境下
 
· 不让Form的左端出屏幕
· VB中调用API函数检测
· 设定/取消 网络磁盘
· 应用程序访问SQLSer
· 制作图形的Mask图
· 应用程序访问SQLSer
· 如何使Mouse的右键无
· ASP技术访问WEB数据
· ASP技术访问WEB数据
· ASP技术访问WEB数据
· 用ADO对象实现动态WE
· 取得TextBox 某一
 
· 电视剧《刁蛮公主》下载和
· 美容养颜手册
· 加油金顺剧情分集介绍完整
· 红楼梦:120回全本[清
· 素质教育在美国
· 全唐诗卷四十六
· 韩剧《布拉格恋人》剧情介
· 夜航船[作者:明·张岱]
· 局外人[作者:韩·可爱淘
· 现场流行病学
· 源氏物语[日本:紫式部]
· 武林寓言故事
 
· (出租)中动商场部分及写
· (出租)中动动漫基地&#
· 喜剧学院
· 《善德女王》剧情介绍
· 魔女18号 剧情
· 丑女无敌剧情介绍
· 魔女幼熙剧情介绍
· 龙游天下剧情介绍
· 震撼世界的七日剧情介绍
· 静静的白桦林剧情介绍
· 心情日记—老公今天我想对
· 旗舰剧情介绍
欢迎来到月影社区!如果您觉得这里不错,请推荐给您的朋友们。月影社区:http://wf66.com/

VB中调用API函数检测当前系统环境下


查看有无更新版本

关键字:VB 2006-9-18

 

二、检测系统参数程序实例
有了上面对所需Windows API函数的声明以后,就可以使用这些API函数,编写下面的用户自定义函数。
1.检测系统子目录函数
Function WinDir()
Temp = Space$(255)
StringLen = GetWindowsDirectory(Temp, 255)
WinDir = Left$(Temp, StringLen)
End Function

2.检测系统键盘函数
Function KeyType()
KbType = GetKeyboardType(0)
Select Case KbType
Case 1
KeyType="IBM PC\XT,or compatible"
Case 2
KeyType="Olivetti 'ICO'(102key)"
Case 3
KeyType="IBM AT/similar(84keys)"
Case 4
KeyType = "IBM Enhance(101/102 keys)"
Case 5
KeyType = "Nokia1050/similar"
Case 6
KeyType = "Nokia9140/similar"
Case 7
KeyType = "Japan Keyboard"
End Select
End Function

3.检测Windows版本号函数
Function WinVer()
ver& = GetVersion()
winhigh = ver& Mod 256
winlow = Int(ver& / 256) Mod 256
WinVer = ((winhigh * 100) + winlow) / 100
End Function

4.检测系统CPU函数
Function CPU()
Flags&=GetWinFlags()
Match=1
Select Case Match 
Case (Flags& And &H8)\&H8
CPU=486
Case (Flags& And &H4)\&H4
CPU=386
End Select 
End Function 

5.检测Windows运行模式函数
Function Mode()
Flags&=GetWinFlags()
If flags& And &H20 Then 
Mode="Enhanced"
Else
Mode="Standard"
End If 
End Function
(二) 建 立 窗 体 文 件Form1.frm
Form1.Caption="System Information"
Sub Form_Load()
Cls
Print
Print , "System Information"
Print
Print , "WindowsDir: ", WinDir()
Print , "KeyboardType: ", KeyType()
Print , "WindowsVersion: ", WinVer()
Print , "SystemCpu: ", CPU()
Print , "WindowsMode: ", Mode()
End Sub

在Visual Basic中用 Declare语句声明所要调用的Windows API函数, 使得程序设计者在Visual Basic中能够直接控制和处理计算机的系统参数和硬件资源,增加了程序设计者在Windows环境中开发软件的灵活性,使软件与Windows系统达到了最完美的结合 

VB中调用API函数检测当前系统环境下

[ 1 ]
VB中调用API函数检测当前系统环境下 num

打印本页 关闭

关于我们版权声明本站导航友情连结作品演示 TOP↑