首页 | 社区 | 博客 | 招聘 | 文章 | 新闻 | 下载 | 读书 | 代码
亲,您未登录哦! 登录 | 注册

FoxPro中Windows API的调用

打印文章

分享到:
动态连接函数库(DLLs)可以说是Windows系统的基础,Windows系统或Windows的应用
系统在执行过程中,常常通过外部的动态连接函数库支持其所需功能,如控制屏幕、打印机、
鼠标、键盘等设备,若在设计过程中,将完成这些功能的程序都重复写在系统中,就会使 程
序过大。另外一点,就是这些工作函数库具有共享功能,也就是说可以利用Windows程 序开发
工具,直接使用这些属于Windows函数库的功能,直接在程序中访问,增加开发的 系统与
Windows系统环境的结合能力。WindowsAPI的大约400多个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>将返回-1,同时出现一个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 

本栏文章均来自于互联网,版权归原作者和各发布网站所有,本站收集这些文章仅供学习参考之用。任何人都不能将这些文章用于商业或者其他目的。( Pfan.cn )

编程爱好者论坛

本栏最新文章