要本文介绍了在VisualBasic中用Declare语句声明所要调用的WindowsAPI的方法，以及如何调用API函数来检测当前的系统环境。用VisualBasic能够直接控制和处理计算机的系统参数和硬件资源，增加了程序设计人员在Windows环境中开发软件的灵活性，使软件与Windows系统达到了最完美的结合。本文最后给出了一个调用的WindowsAPI的检测系统环境实例。
关键字VisualBasicDeclare语句WindowsAPI函数系统
前言
VisualBasic是一个Windows系统下的应用程序开发平台。方便的界面设计、强大的扩充能力使程序员能节省大量时间，把主要精力集中在应用程序核心代码的编写上。VisualBasic目前已成为Windows系统下一种高效灵活的开发工具,而调用API（ApplicationProgramInterface,应用程序接口）函数正是对VisualBasic功能的强有力扩充，它使得VisualBasic能够直接控制和处理计算机的系统参数和硬件资源。借助于API使得VisualBasic能克服Windows编程的难点，同时又增加供了使用Windows环境的灵活性。
利用VisualBasic调用API函数的方法：
(1)用Declare语句声明所要调用的API函数，若该函数无返回值，可声明为Sub过程；若有返回值，则可声明为Function函数。
(2)一旦声明了某一个API函数后，就可以象调用VisualBasic的函数一样。但如果参数传递不对，可能会导致死机。
一、检测系统参数的API函数
检测系统环境的参数所需要的WindowsAPI函数有GetWindowsDirectory，GetWinFlags,GetVersion，GetKeyboardType等，具体的使用方法见下面声明。
1．GetWinflags声明
DeclareFunctionGetWinflagsLib"kernel32"()AsLong
功能:该函数返回Windows运行系统上的系统配置。
返回标志值
含意
WF_80X87
Intel数字协处理器
WF_CPU386
80386CPU
WF_CPU486
80486CPU
WF_ENHANCED
Windows系统运行在386增强模式
WF_PMODE
Windows系统运行在保护模式
WF_STANDARD
Windows系统运行在标准模式
WF_WLO
运行在OS/2下
2．GetKeyboardType声明
DeclareFunctionGetKeyboardTypeLib"user32"(ByValnTypeFlagAsLong)AsLong
功能：该函数得到系统键盘类型，nTypeFlag=0时返回键盘类型。
返回值
含意
1
IBMPC/XT或兼容键盘
2
Olivetti"ICO"键盘（102个键）
3
IBM或兼容键盘（84个键）
4
IBM增强型或相似键盘（101或102个键）
5
Nokia1050或相似键盘
6
Nokia9140或相似键盘
7
日本键盘
3．GetWindowsDirectory声明
DeclareFunctionGetWindowsDirectoryLib"kernel32"Alias"GetWindowsDirectoryA"(ByVallpBufferAsString,ByValnSizeAsLong)AsLong
功能：该函数获取Windows目录的路径。
4．GetVersion声明
DeclareFunctionGetVersionLib"kernel32"()AsLong
功能：该函数返回当前Windows版本号和DOS版本号。返回值的低位字节说明Windows主版本号，返回值的低位字的高位字节说明Windows副版本号，高位字的低位字节说明DOS副版本号，高位字的高位字节说明DOS主版本号。
5．GetSystemDirectory声明
DeclareFunctionGetSystemDirectoryLib"kernel32"Alias"GetSystemDirectoryA"
(ByVallpBufferAsString,ByValnSizeAsLong)AsLong
功能：该函数获取Windows系统子目录的路径。
参考资料：http://www.iyuanma.com/Book/VB/VB001/SourceDB190.htm