API函数快速入门

--API函数快速入门--API函数简介--作为一个编程初学者来说，API函数也许是一个时常耳闻却感觉有些神秘的东西。

单看它的复杂语法，就足令人望而生畏，但是任何事物在我们深入了解它之前，总是会有这种感觉的。

我们这篇API入门教程的目的，就是要把API函数的来龙去脉告诉大家，破除对API函数的畏惧，使它成为我们编程的好助手。

大家可能在许多书上看到过API的英文全称(Application Programming Interface)，WIN32 API也就是MicrosoftWindows 32位平台的应用程序编程接口。

对这个定义的理解，需要追溯到操作系统的发展历史上，当WINDOWS操作系统开始占据主导地位的时候，开发WINDOWS平台下的应用程序成为人们的需要。

而在WINDOWS程序设计领域处于发展的初期，WINDOWS程序员所能使用的编程工具唯有API函数，这些函数是WINDOWS提供给应用程序与操作系统的接口，他们犹如“积木块”一样，可以搭建出各种界面丰富，功能灵活的应用程序。

所以可以认为API函数是构筑整个WINDOWS框架的基石，在它的下面是WINDOWS的操作系统核心，而它的上面则是所有的华丽的WINDOWS应用程序。

（配图1）但是，那时的WINDOWS程序开发还是比较复杂的工作，程序员必须熟记一大堆常用的API函数，而且还得对WINDOWS操作系统有深入的了解。

然而随着软件技术的不断发展，在WINDOWS平台上出现了很多优秀的可视化编程环境，程序员可以采用“即见即所得”的编程方式来开发具有精美用户界面和功能强大的应用程序。

这些优秀可视化编程环境操作简单、界面友好（诸如VB、VC++、DELPHI等），在这些工具中提供了大量的类库和各种控件，它们替代了API的神秘功能，事实上这些类库和控件都是构架在WIN32 API函数基础之上的，是封装了的API函数的集合。

它们把常用的API函数的组合在一起成为一个控件或类库，并赋予其方便的使用方法，所以极大的加速了WINDOWS应用程序开发的过程。

有了这些控件和类库，程序员便可以把主要精力放在程序整体功能的设计上，而不必过于关注技术细节。

实际上如果我们要开发出更灵活、更实用、更具效率的应用程序，必然要涉及到直接使用API函数，虽然类库和控件使应用程序的开发简单的多，但它们只提供WINDOWS的一般功能，对于比较复杂和特殊的功能来说，使用类库和控件是非常难以实现的，这时就需要采用API函数来实现。

这也是API函数使用的场合，所以我们对待API函数不必刻来研究每一个函数的用法，那也是不现实的(能用的到的API函数有几千个呢)。

正如某位大虾所说：API不要去学，在需要的时候去查API帮助就足够了。

--API函数快速入门--怎样在VB中声明和使用API函数--一、在VB中声明API函数有两种方法：如果我们只在某个窗体中使用API函数，我们可以在窗体代码的General部分声明它：声明的语法是：Private Declare Function ...Private Declare Sub.....这里必须采用Private声明，因为这个API函数只能被一个窗体内的程序所调用。

如果我们的程序有多个窗体构成，而且我们需要在多个窗体中使用同一个API函数，就需要在模块中声明了。

先添加一个模块（如图示），然后采用如下语法声明：Public Declare Function....Public Declare Sub....Public声明的含义是把API函数作为一个公共函数或过程，在一个工程中的任何位置（包括所有的窗体和模块）都能直接调用它。

声明完毕我们就能在程序中使用此API函数了。

二、可采用以下几种方式使用API函数，以SetWindowPos函数为例：（1）忽略函数返回值的调用：SetWindowPos Form1.hWnd, -2 ,0 ,0 ,0, 0, 3注意此时函数的参数是不加括号的。

（2）Call方法调用：Call SetWindowPos(Form1.hWnd, -2, 0, 0, 0, 3)注意这里需要加上括号，但我们不取回函数的返回值。

（3）取得函数返回值的调用：MyLng = SetWindowPos(Form1.hWnd, -2, 0, 0, 0, 3)此时需要加上括号，而且我们必须事先定义一个变量（变量的类型与函数返回值类型相同）来存储API函数的返回值。

三、几个问题的说明：（1）声明中的Lib 和Alias 是怎么回事一般情况下WIN32API函数总是包含在WINDOWS系统自带的或是其它公司提供的动态连接库DLL中，而Declare语句中的Lib关键字就用来指定DLL（动态连接库）文件的路径，这样VB才能找到这个DLL文件，然后才能使用其中的API函数。

如果我们只是列出DLL文件名而不指出其完整的路径的话，VB会自动到.EXE文件所在目录、当前工作目录、WINDOWS\SYSTEM目录、WINDOWS目录下搜寻这个DLL文件。

所以如果所要使用DLL文件不在上述几个目录下的话，我们应该指明其完整路径。

Alias用于指定API函数的别名，如果我们调用的API函数要使用字符串（参数中包含String型）的话，Alias关键字是必须的。

这是因为在ANSI 和Unicode字符集中同一API函数的名称可能是不一样的，为了保证不出现声明错误，我们使用Alias关键字指出API函数的别名，一般来说在WIN9X 平台下我们把API函数名后加一个大写A作为别名即可。

（2）常见的API参数类型的说明API函数的参数中最常见的是长整Long型数据类型，例如API中的句柄、一些特定的常量、函数的返回值都是此类型的值；另外几种常见的参数类型有：整型Integer、Byte型、String型等。

（3）声明中的ByVal是作什么用的这跟VB的参数传递方式有关，在默认情况下VB是通过地址传递方式传递函数的参数、而有些API函数要求必须采用传值方式来传递函数参数（这两种参数传递方式是不同的，前者传递的是一个指针，而后者要求是参数真实的值）。

这样就会发生错误，解决的办法是在API函数参数声明的前面加上ByVal关键字，这样VB就采用传值方式传递参数了。

（4）怎样得到完整的API函数声明VB自带了API文本查看器API TEXT VIEWER，我们可以在其中找到API函数的完整声明，然后把它粘贴到程序中即可。

API函数在VB开发中的应用万树学郑启双VB作为快速开发Windows下的编程工具，已经为越来越多的开发者采用。

但如果要开发出专业的Windows软件，还需采用大量的API函数，以下结合笔者开发管理软件的经验谈几点体会。

程序中判定Windows的版本众所周知，Windows3.x各版本或多或少会有些差别，为了使开发程序避免出现莫名其妙的错误，最好在程序运行前自动判定Windows的版本。

采用API提供的函数getversion很容易实现这一点。

函数声明如下：Declare Function GetVersion Lib"Kernel"() As Integer此函数没有参数，返回值为Windows的版本号，其中版本号的低位字节为Windows的主版本号，版本号的高位字节返回Windows的次版本号。

判别过程如下：Private Sub Form_Load ()Dim ver As IntegerDim major As IntegerDim minor As IntegerVer = GetVersion ()major = ver And ＆HFFminor = (ver And ＆HFF00) \ 256If major <> 3 And minor <> 10 ThenMsgBox "版本不正确!"Exit SubEnd IfEnd Sub程序中判断Windows的安装目录一般VB开发出来的程序包含vbrun300.dll等辅助文件和.vbx文件，它们均需安装到Windows目录(c:\windows)或Windows的系统目录(c:\windows\system)下，但因为用户安装Windows时可能会改变Windows的目录名(如c:\windows)，使用安装软件后，不能正确运行.API中提供的GetwinDowsdirectory或GetSystemDirectory较好地解决了这个问题。

函数声明如下：Declare Function GetSystemDirectory Lib "Kernel"(ByVal lpBuffer AsString,ByVal nSize As Integer) As Integer其中参数lpbuffer为字串变量，将返回实际Windows目录或Windows的系统目录，nsize为lpbuffer的字串变量的大小，函数返回值均为实际目录的长度。

检查函数如下：Function checkdir() As BooleanDim windir As String ＊200Dim winsys As String ＊200Dim winl As IntegerDim wins As IntegerDim s1 As StringDim s2 As Stringwinl = GetWindowsDirectory(windir,200)winl = GetSystemDirectory(winsys,200)s1 = Mid ＄(windir,1,winl)s2 = Mid ＄(winsys,1,wins)If Wins = 0 Or wins = 0 Thencheckdir = FalseExit FunctionEnd IfIf s1 <> "C:\WINDOWS" Or s2 <> "C:\WINDOWS\SYSTEM" Thencheckdir = FalseExit FunctionEnd Ifcheckdir = TrueEnd Functionshell 出现的问题通常编程时要调用外部程序，VB提供了shell()函数，但是如果shell调用的外部程序找不到，则运行的程序失去控制，VB给出提示"filenotfound"，改变这种现象，要在程序中加入onerrorgoto，比较麻烦，API函数中的winexec很好地解决了这个问题。

函数声明如下：Declare Function WinExec Lib "Kernel"(ByVal lpCmdLine As String,ByVal nCmdShow As Integer) As Integer其中lpCmdline为调用的外部文件名，NcmdShow为外部程序的运行状态，如隐藏窗口、最小化窗口等等。