FoxPro中Windows API的调用

动态连接函数库（DLLs）可以说是Windows系统的基础，Windows系统或Windows的应用
系统在执行过程中，常常通过外部的动态连接函数库支持其所需功能，如控制屏幕、打印机、
鼠标、键盘等设备，若在设计过程中，将完成这些功能的程序都重复写在系统中，就会使 程
序过大。另外一点，就是这些工作函数库具有共享功能，也就是说可以利用Windows程 序开发
工具，直接使用这些属于Windows函数库的功能，直接在程序中访问，增加开发的 系统与
Windows系统环境的结合能力。WindowsAPI的大约４００多个API功能，大部分都可 供用户
调用，若能用好这些WindowsAPI功能，既可减少重复开发，又能提高应用系统对 Windows环
境的兼容性和系统性能。

在Windows环境中所提供的工作函数库主要有下面三个文件：
·GDI.EXE———屏幕显示及打印功能。
·USER.EXE———鼠标、键盘、通信端口、声音及时钟功能。
·KERNEL.EXE———文件及内存管理（核心部分）功能。

FOXTOOLS.FLL就是FOXPRO For Windows提供的访问WindowsAPI函数的动态连接函数库。
它提供下面两个函数：
RegFn（）———WindowsAPI功能注册函数。
CallFn（）———WindowsAPI功能调用函数。

要使用WindowsAPI函数首先应该用RegFn（）函数注册该函数，注册成功后再用CallFn（）
函数调用之。RegFn（）和CallFn（）的语法如下。
RegFn（＜Function name＞，＜Argment Types＞，＜Return Types＞，［DLL name］）
CallFn（＜Fn Num＞，［＜Arg1＞，＜arg2＞．．．．］）

参数说明：
Function name为要调用的API函数的函数名称。
Argment Types为要调用的API函数的参数类型说明。
Return Types为要调用的API函数的返回值类型说明。
DLL name为您要调用的API函数所在的动态连接函数库名。必须包括扩展名，如.DLL或.DLL
或.EXE（GDI.EXE、USER.EXE，KERNEL.EXE可省略扩展名）。
｛Fn Num＞是用RegFn（）注册成功的函数，即RegFn（）的返回值
［＜Arg1＞，＜arg2＞．．．］）为参数序列，注意参数类型必须与用RegFn（）注册的类型
一致。
如果用RegFn（）注册一个WindowsAPI函数成功的话，会返回一个数值，若无法找到指定的  
＜DLL name＞将返回－１，同时出现一个Windows错误窗口。所以如果您使用WindowsAPI函数，
您必须保证您所调用的函数所在的动态连接函数库存在，而且函数调用格式正确CallFn（）  
缺省
传递参数的方式为传值，若要改为传址，应在该参数前加上＠强制符号。
笔者曾经因为鼠标器左键不好使而用WindowsAPI的SwapMouseButton（）函数对换了鼠标器
的左右键，下面就以此为例说一下RegFn（）和CallFn（）的用法。
SwapMouseButton（）的语法如下：
SwapMouseButton（BOOL bSwap）bSwap为真值（1）时将鼠标器左右键对换，为假（0）时
将左右键恢复正常设置。

对换过程SwapMouse.prg

PARAMETERS Swap
SET LIBRARY TO SYS(2004)+"FOXTOOLS.FLL"
&&连入FOXTOOLS.FLL库
Fn=RegFn("SwapMouseButton","I","I","USER.EXE")
&&注册SwapMouseButton
IF Fn=-1
WAIT WINDOWS"注册失败!"NOWAIT
SET LIBRARY TO
RETURN
ENDIF
&&注册成功
Result=CallFn(Fn,Swap)
SET LIBRARY TO
RETURN