动网论坛,站长建站首选,国内使用量最多的论坛软件 动网论坛官方技术讨论区 站长工具 申请属于您自己的免费论坛
首页 | 新闻资讯 | 网站运营 | 网络编程 | 数据库 | 服务器 | 网页设计 | 图像媒体 | 网络应用 | 搜索优化 | 资源下载 | 动网主机 | DVBOX
    本站内  互联网 ASP论坛  ASP.Net论坛  PHP论坛
   服务器 → 阅读文章
  

 让注册表记住VFP应用程序的使用次数

作者:李永田 来源:51CTO.com整理  
阅读 数 285 人次 , 2006-3-18 13:34:00 

注册表是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 RegCloseKey IN Win32API ;

* Integer nHKey

csubkey='Software\lytapp'

nresult=0

if regopenkey(HKEY_CURRENT_USER,@csubkey,@nresult)#0

RegCreateKey(HKEY_CURRENT_USER,csubkey,@nresult)

endif

* 在nresult中存放了指向子键“HKEY_CURRENT_USER\Software\lytapp”的长整数值

lpdwtype=0

lpbdata=space(256)

lpcbdata=len(lpbdata)

if RegQueryValueEx(nresult,'TimesForUse',0,@lpdwtype,@lpbdata,@lpcbdata)=0

do case

case lpdwtype=REG_SZ

lpbdata=left(lpbdata,lpcbdata-1)

if val(lpbdata)<12

lpbdata=alltrim(str(val(lpbdata)+1))

messagebox('本程序在未注册之前只能使用12次!'+CHR(13)+' 您现在是第'+ ;

lpbdata+'次使用本程序。')

lpbdata=lpbdata+chr(0)

cbdata=len(lpbdata)

RegSetValueEx(nresult,'TimesForUse',0,REG_SZ,lpbdata,cbdata)

else

messagebox(" 程序已过期作废!"+CHR(13)+" 请与作者联系注册事宜。")

endif

case lpdwtype=REG_BINARY

messagebox('该键值为二进制数据。')

case lpdwtype=REG_DWORD

messagebox('该键值为长整数数据,请用 NN=0'+CHR(13)+'for i=1 to 4'+CHR(13)+ ;

'NN=NN+VAL(SUBSTR(lpbdata,i,1)*16^(2*i-2)'+CHR(13)+ ;

'endfor 读取此数值。')

otherwise

messagebox('未知数据!')

endcase

else

lpbdata='1'

messagebox('本程序在未注册之前只能使用12次!'+CHR(13)+' 您现在是第'+lpbdata+'次使用本程序。')

lpbdata=lpbdata+chr(0)

RegSetValueEx(nresult,'TimesForUse',0,REG_SZ,lpbdata,2)

endif


* 警告:当用户不熟悉注册表时最好不要修改其中的内容,否则,可能造成系统的崩溃。若用户想对注册表修改,建议修改前最好将注册表备份。

 本文Tagsfrontpage  
 收藏本文  打印本文  论坛讨论  关闭窗口
· 上一篇:用.VBS脚本文件修改注册表
· 下一篇:MS-DOS方式下对注册表的编程
· 九招让硬盘更快、系统更稳定
· 个人SMTP服务器的配置
· 个人服务器架设全攻略(63)
· windows server 2003优化设置方法
· Cluster之架设(NAT形式)(3)


关于本站 | 联系我们 | 业务合作 | 客户案例 | 诚聘英才 | 广告合作 | 收藏本站
海口动网先锋网络科技有限公司版权所有
Copyright © 2000 - 2006 Cndw.Com
中华人民共和国电信与信息服务业务经营许可证编号 琼 ICP 020077