windowsapi函数大全及应用方法.docVIP

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 GetWindowsDirectory Lib kernel32 Alias GetWindowsDirectoryA (ByVal lpBuffer As String, ByVal nSize As Long) As Long 【返回值】 Long，实际存入 lpBuffer缓冲区的字符数目，如 lpBuffer不够大，不能容下文件名，则返 回值为实际要求的缓冲区长度。零表示失败。 【参数表】 参数 类型及说明 lpBuffer Stri