| 让注册表记住VFP应用程序的使用次数 |
|
作者：佚名 文章来源：onegreen.net 点击数： 更新时间：2008-5-13 0:08:11  |
注册表是Windows操作系统中保存系统的硬件信息、应用程序信息和用户信息的一个数据库，它为应用程序提供了保存参数设置的最佳场所。在Windows操作系统中，当我们运行“RegEdit.exe”文件，从打开的注册表编辑窗口中可以看出，注册表由左右两个部分组成： 左侧各项目的第一层称为注册表的主键，双击各主键时延伸出的各键称之为子键；窗口的右侧是各子键的键值，每一个子键都有其相应的默认值和用不同的键值名表示的键值（其中默认值的键值名为一空串）。
在VFP应用程序中读写注册表数据需借助WIN32API（即Windows 32位应用程序接口）函数，为了像使用其它VFP函数一样调用WIN32API函数，必须先用DECLARE命令对每一个被调用函数进行注册（声明），其格式为DECLARE [cFunctionType] FunctionName IN LibraryName [AS AliasName] ;
[cParamType1 [@] ParamName1,cParamType2 [@] ParamName2, ...]
其中各参数的意义为：①cFunctionType为函数的返回值类型，可是SHORT、INTEGER或LONG、SINGLE、DOUBLE、STRING之一，如果函数没有返回值，则省略cFunctionType；②FunctionName指出被调用WIN32API函数名，请注意大小写，否则VFP将在.DLL库（LibraryName）中搜索不到该函数而出错， 如果该函数名与VFP的函数同名，可用AS子句另取一个合法的VFP函数名；③LibraryName指定外部Windows .DLL的名称，如取WIN32API，则VFP就在KERNEL32.DLL, GDI32.DLL, USER32.DLL, MPR.DLL和ADVAPI32.DLL中搜索FunctionName；④cParamType指定各参数的类型，可为INTEGER或LONG、SINGLE、DOUBLE、STRING之一，在VFP中向函数传递参数的方式有两种：按值传递和按名（引用）传递，前者只把变量（也可为常数）的值传给函数，因而在函数内部不能修改该变量的值；后者是把变量（不能用常数）的地址传给函数，因而在函数内部可修改该变量的值，适用于需要在函数内部修改该变量的值或在变量中放置返回值的情况。VFP中如在变量名前加“@”表示按引用传递参数，不加“@”表示按值传递参数。至于本示例程序中各参数是按引用传递还是按值传递，从DECLARE命令和函数调用语句中一看便知。
下面的示例程序每运行一次，就将注册表中HKEY_CURRENT_USER\SOFTWARE\LYTAPP子键的TimesForUse名下的值加1，直到运行12次为止：
* 各主键与一个整数（INTEGER）值相对应，即：
#DEFINE HKEY_CLASSES_ROOT bitset(0,31) &&-2147483648
#DEFINE HKEY_CURRENT_USER bitset(0,31)+1 &&-2147483647
#DEFINE HKEY_LOCAL_MACHINE bitset(0,31)+2 &&-2147483646
#DEFINE HKEY_USER bitset(0,31)+3 &&-2147483645
#DEFINE HKEY_CURRENT_CONFIG bitset(0,31)+5 &&-2147483643
#DEFINE HKEY_DYN_DATA bitset(0,31)+6 &&-2147483642
* 键值的数据类型：1-字符串，3-二进制，4-整数
#DEFINE REG_SZ 1
#DEFINE REG_BINARY 3
#DEFINE REG_DWORD 4
* 当以下API函数返回0时，操作成功。
DECLARE Integer RegOpenKey IN Win32API ;
Integer nHKey, String @cSubKey, Integer @nResult
DECLARE Integer RegCreateKey IN Win32API ;
Integer nHKey, String @cSubKey, Integer @nResult
DECLARE Integer RegSetValueEx IN Win32API ;
Integer hKey, String lpszValueName, Integer dwReserved,;
Integer fdwType, String lpbData, Integer cbData
DECLARE Integer RegQueryValueEx IN Win32API ;
Integer nHKey, String lpszValueName, Integer dwReserved,;
Integer @lpdwType,string @lpbData, Integer @lpcbData
* DECLARE Integer RegDeleteKey IN Win32API ;
* Integer nHKey, String @cSubKey
* DECLARE Integer RegDeleteValue IN Win32API ;
* Integer nHKey, String cSubKey
* DECLARE Integer RegClos[1] [2] 下一页 |
| 文章录入：onegreen 责任编辑：onegreen |
|
上一篇文章： 在VB中使用注册表
下一篇文章： VB.NET注册表编程 |
| 【字体：小 大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】 |
