转 Windows API 函数在VFP中的运用
2010年07月23日
Windows API 函数在VFP中的运用
VFP中常用WIN32API函数调用事例
我们在VFP编程时，为了弥补VFP本身功能的不足，常常会用到WIN32API函数
来对VFP的功能行扩展，例如取得系统信息、对注册表进行操作等，但是由于
WIN32API函数是C++的数据结构形式,在调用时与VFP的数据格式有所不同,因此在
调用时往往会产生问题，而目前的一些资料所介绍的大都是VB、DELPHI等语言如
何调用，对VFP如何调用介绍的比较少，更缺少具体的调用事例，下面我分几次
介绍在VFP如何调用WIN32API函数，并就一些常用的WIN32API函数作一介绍，由于
本人水平有限，所介绍的内容，仅供您参考，也欢迎您在我的[请您留言]****同
探讨：
.................一、VFP中调用WIN32API函数的格式
VFP中调用WIN32API函数的命令主要是：
DECLARE - DLL
CLEAR DLLS
1.DECLARE - DLL 它用于注册外部 Windows 32 位动态链接库 ( .DLL ) 中的
一个函数。
语法： DECLARE [cFunctionType] FunctionName IN LibraryName [AS AliasName]
.......[cParamType1 [@] ParamName1, cParamType2 [@] ParamName2, ...]
说明：
cFunctionType 指定该函数返回值的类型，其类型代码如下：
SHORT 16 位整数
INTEGER 32 位整数
SINGLE 32 位浮点数
DOUBLE 64 位浮点数
STRING 字符串
FunctionName 指定要注册使用的32位函数名。注意 FunctionName 区分大小写。
如果该函数名与Visual FoxPro的保留字相同，应使用AS参数另起
别名。
IN LibraryName 指定该函数所在的外部动态链接库文件名，如果LibraryName为：
WIN32API时，VFP将依次查找KERNEL32.DLL、GDI32.DLL、
USER32.DLL、MPR.DLL及ADVAPI32.DLL等动态链接库文件名。
AS AliasName 当API函数的名称与Visual FoxPro的保留字相同时，另取
AliasName别名，另取的别名是不区分大小写的。
cParameterType1 [@] ParamName1, cParameterType2 [@] ParamName2, ...
指定传递给被调用的32位.DLL函数的参数类型及参数名称。其类
型代码如FunctionType，如果要以传址方法传递参数则应在参数
名前加上@。
2.CLEAR DLLS 释放所有利用DECLARE - DLL命令所装入的动态链接库。
....一旦申明WIN32API函数成功，就可以和一般函数一样用 ？xxx()、=xxx()
来调用。
....下面以具体事例谈谈win32api在Vfp中的运用：
1.利用win32api函数获取指定磁盘的卷标：
Stor 0 to C_var,C_cd,C_qf
C_Var='c:\'
DECLARE INTEGER GetVolumeInformation IN Win32API STRING @, STRING @, INTEGER,;
INTEGER @, INTEGER @, INTEGER @, STRING @, INTEGER
xx=GetVolumeInformation(C_Var,"",20,@C_var,@C_cd,@C_qf,0,0)
CLEAR DLLS &&释放所有利用DECLARE - DLL命令所装入的动态链接库。
xx0 获取指定磁盘的卷标成功，反之则未成功。
C_var=指定磁盘的卷标，是个十进制的数值，与我们在DOS下看到的16进制不同。
C_cd=系统规定的文件名每一部分的长度,是个十进制的数值。
C_qf=文件名的大小写标志,是个十进制的数值。
.....怎么样很简单吧，我们可以把获取的磁盘卷标，用来加密我们的软件，这样
我们的 软件就具有防拷贝的功能了。
2.在VFP中利用WN32API函数调用Outlook Express给你的程序建立发送
邮件的链接
..... 利用WN32API函数我们可以在VFP程序中，通过Label标签或Command命令按
钮来达到调用由系统默认的邮件收发软件的目的，也就是建立所谓的链接功能，
在VFP代码中：
DECLARE INTEGER ShellExecute IN shell32.DLL INTEGER HWND, STRING,STRING; ........lpszFile,STRING ,STRING ,INTEGER
*申明ShellExecute函数
lpszFile='mailto:cfyns@163.net'
*设定你需要发送的E-mail
=ShellExecute(0,0,lpszFile , 0,0,1)
*调用ShellExecute函数
.....一执行=ShellExecute（），就会弹出书写E-mail的窗体。
3.利用WIN32API函数，防止同一程序被重复执行。
.... 利用WIN32API中的FindWindow（）函数取得待测窗口的handle（句柄），其
返回值不等于0，则表示该EXE文件已运行。
VFP代码：
DECLARE INTEGER FindWindow IN WIN32API STRING,STRING
LOCAL cTitle
cTitle=_screen.caption
if FindWindow(0,cTitle)0
...=messagebox("程序已运行,无需重复！",48)
endif
注意：FindWindow（）函数是取得窗口的caption，如果caption在程序的运行过
程中已经改变，则达不到目的。
4.利用WIN32API函数,关闭或重新启动你的电脑
VFP代码：
DECLARE INTEGER ExitWindowsEx IN USER32.DLL INTEGER , INTEGER
=ExitWindowsEx(1,1) &&关闭系统
如果：=ExitWindowsEx(2,1) &&重新启动系统
如果：=ExitWindowsEx(0,0) &&进入登入者身份对话框
.5.在VFP中利用WN32API函数获取当前所有逻辑驱动器
利用GetDriveType、GetLogicalDriveStrings函数，我们可以很快找到
当前所有逻辑驱动器的根驱动器路径。下面介绍两种用法：
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ ＝＝＝＝＝＝
(１) 利用GetDriveType函数：
Declare integer GetDriveType in "kernel32" String
Dgs=0
For I = 65 To 90
vName=Chr(I) + ":"
Lx=GetDriveType(vName)
Do Case
Case Lx=2
Dgs=Dgs+1
wait wind '这是个软盘'
Case Lx=3
Dgs=Dgs+1
wait wind '这是个硬盘'
Case Lx=4
Dgs=Dgs+1
wait wind '这是个可移去式驱动器或网络驱动器'
Case Lx=5
Dgs=Dgs+1
wait wind '这是个光盘'
Case Lx=6
Dgs=Dgs+1
wait wind '这是个RAM盘'
Endc
Endf
Wait wind '本机共有：'+str(Dgs)+'个驱动器'
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
(２) 利用GetLogicalDriveStrings函数：
Declare integer GetLogicalDriveStrings in "kernel32" Long, string @cc
CC=Spac(81)
=GetLogicalDriveStrings(81,@cc)
*CC中返回了这样的字符串"a:\ c:\ d:\ e:\ f:\ "每个名字都用一个NULL字符
分隔，在最后一个名字后面用两个NULL表示中止。
X=(len(allt(cc))-1)/4 &&x中包含本机逻辑驱动器个数
*如果你想知道每个具体的驱动器名，则写如下代码：
Dime Dve(X)
For I=1 to X
Dve(I)=Subs(CC,1,3)
CC=Subs(CC,5)
Endf
*这样在Dve这个数组里就是每个驱动器的盘符及":\" 了。
*如果你还想知道每个驱动器的类型，则再添加和改写如下代码：
Declare integer GetDriveType in "kernel32" String
Dime Dve(X，2)
For I=1 to X
Dve(I,1)=Subs(CC,1,3)
Lx=GetDriveType(Dve(I,1))
Do Case
Case Lx=2
Dve(I,2)='软盘'
Case Lx=3
Dve(I,2)='硬盘'
Case Lx=4
Dve(I,2)='可移去式驱动器或网络驱动器'
Case Lx=5
Dve(I,2)='光盘'
Case Lx=6
Dve(I,2)='RAM盘'
Endc
CC=Subs(CC,5)
Endf
.6.在VFP中利用SetLocalTime函数调用设置系统日期或时间
set date ansi
set century on
set hours to 24
*假定设置系统日期、时间为:1999,9,1
nDate=ctod('1999-09-01')
oldtime=TIME() &&取当前时间
nHo=VAL(subs(oldtime,1,2)) &&取当前时间-时
nSe=VAL(SUBSTR(oldtime, 4, 2)) &&取当前时间-分
nMi=VAL(SUBSTR(oldtime, 7, 2)) &&取当前时间-秒
nMM=VAL(RIGHT(oldtime, 2)) &&取当前时间-毫秒
cBuf=h2str(YEAR(nDate))+h2str(MONTH(nDate))+h2str(DOW(nDate) - 1)+;
h2str(DAY(nDate))+h2str(nHo)+h2str(nSe)+h2str(nMi)+h2str(nMm)
*&&将转换后的二进制字符连接
DECLARE SHORT SetLocalTime IN win32api STRING SystemTime
=SetLocalTime(cBuf) &&设置系统日期
Retu
*====以下是将十进制转换为二进制的自定义函数
Function h2str
PARAMETERS Zhsz
PRIVATE Fhz
Fhz=Chr(Zhsz%256)+Chr(Zhsz/256)
RETURN Fhz
好了，就这么简单，并不象有些例子讲的那样复杂，至于如何设置系统时间，
我想通过上面的例子，自己也会了吧
.... ... ... 待续
7.在VFP中利用WN32API函数操作系统[控制面板]
在VFP中,我们可以利用WIN32API的WinExec函数调用各种外部程序，下面是我整
理的利用WinExec函数控制WIN95/98操作系统的[控制面板]各项功能(43种)的大全：
在VFP中代码中：
Declare integer WinExec in "kernel32" string,integer
*只需申明WinExec函数一次，即可选择如下控制面板各项功能：
1.启动控制面板
x=winexec('rundll32.exe shell32.dll,Control_RunDLL',9)
2.辅助选项 属性-键盘
x=winexec('rundll32.exe shell32.dll,Control_RunDLL access.cpl,,1',9)
3.辅助选项 属性-声音
x=winexec('rundll32.exe shell32.dll,Control_RunDLL access.cpl,,2',9)
4.辅助选项 属性-显示
x=winexec('rundll32.exe shell32.dll,Control_RunDLL access.cpl,,3',9)
5.辅助选项 属性-鼠标
x=winexec('rundll32.exe shell32.dll,Control_RunDLL access.cpl,,4',9)
6.辅助选项 属性-常规
x=winexec('rundll32.exe shell32.dll,Control_RunDLL access.cpl,,5',9)
7.添加/删除程序 属性-安装/卸载
x=winexec('rundll32.exe shell32.dll,Control_RunDLL Appwiz.cpl,,1',9)
8.添加/删除程序 属性-Windows安装程序
x=winexec('rundll32.exe shell32.dll,Control_RunDLL Appwiz.cpl,,2',9)
9.显示 属性-外观
x=winexec('rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,2',9)
10.显示 属性-设置
x=winexec('rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,3',9)
11.添加/删除程序 属性-启动盘
x=winexec('rundll32.exe shell32.dll,Control_RunDLL Appwiz.cpl,,3',9)
12.显示 属性-背景
x=winexec('rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,0',9)
13.显示 属性-屏幕保护程序
x=winexec('rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,1',9)
14.Internet 属性-常规
x=winexec('rundll32.exe shell32.dll,Control_RunDLL Inetcpl.cpl,,0',9)
15.Internet 属性-安全
x=winexec('rundll32.exe shell32.dll,Control_RunDLL Inetcpl.cpl,,1',9)
16.Internet 属性-内容
x=winexec('rundll32.exe shell32.dll,Control_RunDLL Inetcpl.cpl,,2',9)
17.Internet 属性-连接
x=winexec('rundll32.exe shell32.dll,Control_RunDLL Inetcpl.cpl,,3',9)
18.Internet 属性-程序
x=winexec('rundll32.exe shell32.dll,Control_RunDLL Inetcpl.cpl,,4',9)
19.Internet 属性-高级
x=winexec('rundll32.exe shell32.dll,Control_RunDLL Inetcpl.cpl,,5',9)
20.区域设置 属性-区域设置
x=winexec('rundll32.exe shell32.dll,Control_RunDLL Intl.cpl,,0',9)
21.区域设置 属性-数字
x=winexec('rundll32.exe shell32.dll,Control_RunDLL Intl.cpl,,1',9)
22.区域设置 属性-货币
x=winexec('rundll32.exe shell32.dll,Control_RunDLL Intl.cpl,,2',9)
23.区域设置 属性-时间
x=winexec('rundll32.exe shell32.dll,Control_RunDLL Intl.cpl,,3',9)
24.区域设置 属性-日期
x=winexec('rundll32.exe shell32.dll,Control_RunDLL Intl.cpl,,4',9)
25.游戏控制器-一般
x=winexec('rundll32.exe shell32.dll,Control_RunDLL Joy.cpl,,0',9)
26.游戏控制器-高级
x=winexec('rundll32.exe shell32.dll,Control_RunDLL Joy.cpl,,1',9)
27.鼠标 属性
x=winexec('rundll32.exe shell32.dll,Control_RunDLL Main.cpl',9)
28.多**** 属性-音频
x=winexec('rundll32.exe shell32.dll,Control_RunDLL Mmsys.cpl,,0',9)
29.多**** 属性-视频
x=winexec('rundll32.exe shell32.dll,Control_RunDLL Mmsys.cpl,,1',9)
30.多**** 属性-MIDI
x=winexec('rundll32.exe shell32.dll,Control_RunDLL Mmsys.cpl,,2',9)
31.多**** 属性-CD音乐
x=winexec('rundll32.exe shell32.dll,Control_RunDLL Mmsys.cpl,,3',9)
32.多**** 属性-设备
x=winexec('rundll32.exe shell32.dll,Control_RunDLL Mmsys.cpl,,4',9)
33.调制解调器 属性
x=winexec('rundll32.exe shell32.dll,Control_RunDLL Modem.cpl',9)
34.网络
x=winexec('rundll32.exe shell32.dll,Control_RunDLL Netcpl.cpl',9)
35.密码 属性
x=winexec('rundll32.exe shell32.dll,Control_RunDLL Password.cpl',9)
36.扫描仪与数字相机 属性
x=winexec('rundll32.exe shell32.dll,Control_RunDLL Sticpl.cpl',9)
37.系统 属性-常规
x=winexec('rundll32.exe shell32.dll,Control_RunDLL Sysdm.cpl,,0',9)
38.系统 属性-设备管理器
x=winexec('rundll32.exe shell32.dll,Control_RunDLL Sysdm.cpl,,1',9)
39.系统 属性-硬件配置文件
x=winexec('rundll32.exe shell32.dll,Control_RunDLL Sysdm.cpl,,2',9)
40.系统 属性-性能
x=winexec('rundll32.exe shell32.dll,Control_RunDLL Sysdm.cpl,,3',9)
41.日期/时间 属性
x=winexec('rundll32.exe shell32.dll,Control_RunDLL timedate.cpl',9)
42.电源管理 属性
x=winexec('rundll32.exe shell32.dll,Control_RunDLL Powercfg.cpl',9)
43.拨号属性
x=winexec('rundll32.exe shell32.dll,Control_RunDLL Telephon.cpl',9)
注：WIN32API功能调用的函数还很多，比如象操作注册表、MCI（Media Control
Interface）****控制接口等，有的是这方面介绍的资料较多，有的是调用过于
烦琐，所有我不准备继续下去了，欢迎对此有兴趣的朋友，来E-Mail 探讨。
如何利用Win32 API函数隐藏和显示windows系统工具条
先声明FindWindow API函数
DECLARE INTEGER FindWindow IN WIN32API STRING,STRING
mHandle=FindWindow('Shell_TrayWnd','') &&取得系统工具条句柄
再声明ShowWindow API函数
DECLARE INTEGER ShowWindow IN WIN32API integer,integer
=ShowWindow(mHandle,0) &&隐藏
* =ShowWindow(mHandle,1) &&显示
如何利用Win32 API函数隐藏和显示其他运行中的程序
DECLARE INTEGER FindWindow IN WIN32API STRING,STRING
mHandle=FindWindow(0,'计算器') &&取得"计算器"窗口句柄
if mHandle=0
wait wind '没有运行"计算器"程序...'
else
DECLARE INTEGER ShowWindow IN WIN32API integer,integer
=ShowWindow(mHandle,0) &&隐藏"计算器"窗口
* =ShowWindow(mHandle,1) &&显示"计算器"窗口
endi
如何利用Win32 API函数关闭其他运行中的程序
上面讲的是如何利用Win32 API函数隐藏和显示其他运行中程序的窗口，
那么在VFP程序中有没有办法通过代码来关闭其他运行中的程序？下面的代
码就是通过SendMessage AIP函数向其他运行中的程序发出关闭命令，从而
达到关闭它的目的：
DECLARE INTEGER FindWindow IN WIN32API STRING,STRING
mHandle=FindWindow(0,'计算器') &&取得"计算器"窗口句柄
再声明SendMessage API函数：
DECLARE SendMessage IN WIN32API ; integer,integer,integer,integer
=SendMessage(mHandle,16,0,0) &&参数16在这里代表Close命令。
VFP中利用WIN32API函数实现系统文件夹列表
（本文已投稿）
我们在编程中，有时需要用户指定文件夹路径,在VFP中我们往往会用GETDIR()来供用
户选择，但GETDIR()提供的文件夹列表是“选择驱动器再在相应的驱动器中选择相应文件
夹的界面”， 而目前我们常见的是采用类似资源管理器中“所有文件夹”界面： 最上层
是“桌面”，然后是“我的电脑”、驱动器A、C、D...等，见下图：
也许有人会问，是不是又在介绍.OCX控件？如果不是在VFP中能实现这样的文件夹
列表吗？
要实现这样的文件夹列表，我们得先了解三个WIN32API函数：
1、FindWindow &&获取窗口句柄
2、SHBrowseForFolder &&显示文件夹夹列表窗
3、SHGetPathFromIDList &&获取用户选择的文件夹名
☆FindWindow 这个API函数不用介绍了吧，在如何防止程序重复运行中介绍过。
☆SHBrowseForFolder 函数是实现文件夹列表功能的关键，在API帮助里是这样写的：
Displays a dialog box that enables the user to select a shell folder.
WINSHELLAPI LPITEMIDLIST WINAPI SHBrowseForFolder(LPBROWSEINFO lpbi)
typedef struct _browseinfo {
HWND hwndOwner; // see below
LPCITEMIDLIST pidlRoot; // see below
LPSTR pszDisplayName; // see below
LPCSTR lpszTitle; // see below
UINT ulFlags; // see below
BFFCALLBACK lpfn; // see below
LPARAM lParam; // see below
int iImage; // see below
} BROWSEINFO, *PBROWSEINFO, *LPBROWSEINFO;
或许您注意到了在这个函数里用到了一个BROWSEINFO类型，此类型包含了列表框使
用的一些参数，比如：当前窗口句柄(hwndOwner)、从何根路径开始展开文件夹(pidlRoot)、
目录树上方的标题(lpszTitle)等。
在VFP中能否声明成功这个函数的关键是如何定义这个BROWSEINFO类型参数，从这
个类型中我们可以看出它是有数值型和字符型混合组成的，而VFP没有定义结构类型的语
句，这也是很多API无法在VFP声明和调用的愿因所在，那么我们又如何定义这个类型呢？
抓住问题的关键，忽略次要因素，很多问题往往就可以解决了，在这里我们只要告
诉这个函数：列表框显示在哪个主窗口里，其它的参数一概忽略，这个函数即可声明成
功。那我们可以看出，在这里我们只要定义hwndOwner（数值型） 这一个参数，然后
告诉SHBrowseForFolder 就可直接调用了。能行吗？您只要一 试就知道了。
遗憾的是其它参数就只能忽略了，好在并不影响调用的结果，见上图。
☆SHGetPathFromIDList 函数负责取回用户在列表框中选择的结果。当我们调用
SHBrowseForFolder API函数后，如果调用成功，则返回一个数值型的指针，这个指针
如果是NULL，表示用户按了取消按钮，否则返回一个非0的指针值供
SHGetPathFromIDList 函数使用，以取回具体的路径名。
三个函数介绍完了，那么在VFP代码中如何写呢？ 假如我们有一个表单，上面有一个
Command1按钮和Label1标签，我们就在 Command1.Click事件中这样写： ============================================================================
Declare integer FindWindow IN WIN32API String,String
Declare integer SHBrowseForFolder in "shell32.dll" integer @
*注意integer @ 中的这个“@”符号，千万不可省略，否则无法调用成功，下同。
Declare integer SHGetPathFromIDList in "shell32.dll" integer,String @ cTitle=_screen.caption &&取当前主窗口标题。
hOwner=FindWindow(0,cTitle) &&取当前主窗口句柄
pidl = SHBrowseForFolder(hOwner) &&如果成功，将显示上图列表框，供用户选择，
&&并将选择后的列表框指针，返回给pidl变量。
if not ISNULL(pidl)
mpath=spac(512) &&变量mpath预留512个空字符。
=SHGetPathFromIDList(pidl,@mpath) &&如果成功，用户选择的路径名，将自动
*填入mpath变量中。
thisform.Label1.Caption=mpath &&显示用户选择的路径名。
endi
===========================================================================
这样当我们一按Command1按钮，即可看到上图的列表了。
如果您看了上面的介绍，还不能达到目的，这里有实例下载。
本文介绍的代码在WIN95/98、中文VFP3.0 - 6.0中通过。
/**/