Windows_API函数大全及应用方法.pdf

Windows API 函数 我们知道VB 可以做很多事，但是有些事情，特别是涉及对Windows 操作系统的访问， 还需要借助Win32 API 函数(Microsoft Win32 Application Programming Interface 的缩写) 。API 函数是一组用C 语言编写的函数，总共约有一千来个。原本是为C 语言编程人员而编写的， 但也可以在VB 应用程序中调用。 按功能划分，Win32 API 函数大致涉及以下几个方面：窗口管理、图形设备接口、系统 管理和多媒体技术。Win32 API 函数以动态链接库DLL 提供给用户，可以在任何语言中调 用。DLL 在程序运行时装入，随时响应程序的调用，不必在设计时就将文件存放在工程中， 这就是动态链接的意思。正因为如此，一个DLL 程序可以同时为多个程序所调用。 在VB 中引用API 函数，需要事先通过Declare 函数，声明要引用的DLL 文件名称以 及相应函数的参量。然后便可像使用VB 函数一样使用API 函数。 我们看以下类似的声明语句： Declare Function GetComputerName Lib kernel32 Alias GetComputerNameA (ByVal lpBuffer As String, nSize As Long) As Long GetComputerName 是API 函数名，kernel32 是库名。括号中的ByVal lpBuffer As String, nSize As Long 就是函数的参量。最后面的Long 表示函数返回值的数据类型。本节通过例子 说明Win32 API 函数的应用。 Windows 在创建每个窗体时，都会赋给它一个与众不同的编号,这就是窗体的句柄。在 Windows 中，窗体与控件都被看成是窗体(窗口) 。窗体的句柄保存在自己的hwnd 属性中。 一．GetComputerName 【功能说明】 函数用于获得计算机的名称 【函数声明】 Declare Function GetComputerName Lib kernel32 Alias GetComputerNameA (ByVal lpBuffer As String, nSize As Long) As Long 【返回值】 Long，TRUE （非零）表示成功，否则返回零。会设置GetLastError 【参数表】 参数 类型及说明 lpBuffer String，参数返回计算机的名称 nSize Long，参数返回lpBuffer 参数的字符长度 【示例】 Private Sub Command1_Click() Dim name As String, length As Long length = 255 name = String(length, 0) ZYJMod1.GetComputerName name, length 通过函数测得的电脑名称存放在变量Name 中 name = Left(name, length) Label1.Caption = name End Sub 二、GetCursorPos 【功能说明】 函数返回鼠标指针的当前位置 【函数声明】 Declare Function GetCursorPos Lib user32 (lpPoint As POINTAPI) As Long 【返回值】 Long，非零表示成功，零表示失败。会设置GetLastError 【参数表】 参数 类型及说明 lpPoint POINTAPI，参数返回鼠标的x,y 位置坐标。 【示例】 Private Sub Command1_Click() Dim point As POINTAPI GetCursorPos point 通过函数获得鼠标的x,y 位置坐标存放在变量point MsgBox (x,y)=( point.x , point.y ), , 鼠标位置 End Sub 三、GetWindowsDirectory 【功能说明】 函数能获取Windows 目录的完整路径名。 【函数声明】 Declare Function GetWindow