怎么读写注册表

如何读写注册表
1、自己编写的软件，用户输入的序列号一般保存在哪儿？注册表？还是……

2、用VF如何读写注册表，有没有做好的函数

[解决办法]
安装 Vfp 后，在安装目录 x:\Program Files\Microsoft Visual FoxPro 9\Ffc 下就有名为 registry 的类库可直接使用。

[解决办法]
转：
以下读写注册表的自定义函数：
*------------------------------------------------
*操作注册表
*语法：
*创建子键：registry(0,主键序号,子键名,新建子键名)
*写注册表：registry(1,主键序号,子键名,,注册项,项目值)
*读注册表：registry(2,主键序号,子键名,,注册项)
*删除子键：registry(3,主键序号,子键名)
 
FUNCTION registry
PARAMETERS nReg_code,;&&操作代码，0-创建子键，1-写注册表，2-读注册表，3-删除注册表项
nReg_MainKeyNo,; &&注册表主键序号
cReg_skey,; &&子键
cReg_skey_New,; &&需创建的子键
cReg_skeyname,; &&注册表项
cReg_keyvalue,; &&注册表项的值
nReg_ValueType &&注册表项的值的类型,1-数据串,2-Unicode 串,3-二进制,4-32-位数值
ON ERROR RETURN .f.
LOCAL nDisposition,;
lnResult,; &&要取得值的注册表子项的地址
nResult,;
ReturnValue,; &&返回的注册表值
nKeyLength,; &&要写的值的长度
BUFFER,; &&返回注册表项值
BufferSize,; &&返回值的长度
lnError,; &&返回注册表函数的错误代码
nError,; &&返回的错误代码
skey1,skey2
 
IF !BETWEEN(nReg_MainKeyNo,1,4)
RETURN .F.
ENDIF
 
IF nReg_code=1 AND !BETWEEN(nReg_ValueType,1,4)
RETURN .F.
ENDIF
nReg_MainKeyNo=nReg_MainKeyNo-2147483649
*注册表键值访问权限
#DEFINE KEY_ALL_ACCESS 983103 &&所有权限
 
DECLARE INTEGER RegOpenKeyEx IN Win32API ;
INTEGER nKey,;
STRING @cSubKey, ;
INTEGER nReserved,;
INTEGER nAccessMask,;
INTEGER @nResult
 
DECLARE INTEGER RegQueryValueEx IN Win32API;
INTEGER nKey, ;
STRING cValueName, ;
INTEGER nReserved,;
INTEGER @nType, ;
STRING @cBuffer, ;
INTEGER @nBufferSize
 
DECLARE RegCreateKeyEx IN WIN32API;
INTEGER hKey,; &&一个打开项的句柄，或者一个标准项名
STRING lpSubKey,; &&欲创建的新子项的名字
INTEGER Reserved,; &&设为零
STRING lpClass,; &&项的类名
INTEGER dwOptions,; &&零,这个项不正式保存下来，系统重新启动后会消失
INTEGER samDesired,; &&访问权限
INTEGER lpSecurityAttributes,;&&对这个项的安全特性进行描述的一个结构,零
INTEGER @phkResult,; &&指定用于装载新子项句柄的一个变量
INTEGER @lpdwDisposition &&返回是新建子项,还是打开子项(如果新建的子项存在)
 
DECLARE RegDeleteKey IN WIN32API;
INTEGER hKey,;
STRING lpSubKey
 
DECLARE INTEGER RegCloseKey IN Win32API INTEGER nKey
 
DECLARE INTEGER RegSetValueEx IN Win32API;
INTEGER hKey,;
STRING lpValueName,;
INTEGER Reserved,;
INTEGER dwType,;
STRING lpData,;
INTEGER cbData
 
DO CASE
CASE nReg_code=0 &&创建子建

nResult= 0
nDisposition = 0
nError = RegOpenKeyEx(nReg_MainKeyNo,cReg_sKey,0, KEY_ALL_ACCESS, @nResult)
IF nError#0
MESSAGEBOX('Can`t open the sub_key!',0+48,'INF')
RETURN .F.
ENDIF
nError=RegCreateKeyEx(nResult,cReg_sKey_New,0,'nReg_ValueType',0,KEY_ALL_ACCESS,0,@lnResult,@nDisposition)
=RegCloseKey(nResult)
RETURN nError
***********************************
CASE nReg_code=1 &&写注册表
nError=0
nError =RegOpenKeyEx(nReg_MainKeyNo,cReg_sKey, 0,KEY_ALL_ACCESS, @lnResult)
IF nError#0
MESSAGEBOX('Can`t write the sub_key!',0+48,'INF')
RETURN .F.
ENDIF
nKeyLength=LEN(cReg_KeyValue)
nError=RegSetValueEx(lnResult,cReg_sKeyName,0,nReg_ValueType, @cReg_KeyValue, @nKeyLength)
=RegCloseKey(lnResult)
RETURN nError=0
***********************************
CASE nReg_code=2 &&读注册表
ReturnValue = ""
lnResult = 0
BUFFER = SPACE(128)
BufferSize = 128
lnError = RegOpenKeyEx(nReg_MainKeyNo,cReg_sKey, 0, KEY_ALL_ACCESS, @lnResult)
IF lnError = 0
lnType = 0
lnError = RegQueryValueEx(lnResult, cReg_skeyname, 0, @lnType, @BUFFER, @BufferSize)
IF lnError = 0 AND BUFFER <> CHR(0) &&如果错误码为 0, 则正常读取值.
ReturnValue = LEFT(BUFFER, BufferSize - 1) &&取得返回值
ENDIF
ENDIF
=RegCloseKey(lnResult)
RETURN ReturnValue
***********************************
CASE nReg_code=3 &&删除注册表项
skey1=LEFT(cReg_sKey,AT('\',cReg_sKey,OCCURS('\',cReg_sKey))-1)
skey2=SUBST(cReg_sKey,AT('\',cReg_sKey,OCCURS('\',cReg_sKey))+1)
nError =RegOpenKeyEx(nReg_MainKeyNo,sKey1, 0,KEY_ALL_ACCESS, @lnResult)
IF nError#0
MESSAGEBOX('Can`t delete the sub_key!',0+48,'INF')
RETURN .F.
ELSE
nError=RegDeleteKey(lnResult,sKey2)
ENDIF
RETURN nError
ENDCASE
ENDFUNC

[解决办法]

探讨

安装 Vfp 后，在安装目录 x:\Program Files\Microsoft Visual FoxPro 9\Ffc 下就有名为 registry 的类库可直接使用。

[解决办法]
在Delphi程序中操作注册表


　　32位Delphi程序中可利用TRegistry对象来存取注册表文件中的信息。

　　一、创建和释放TRegistry对象

　　1.创建TRegistry对象。为了操作注册表，要创建一个TRegistry对象：
ARegistry := TRegistry.Create；

　　2.释放TRegistry对象。对注册表操作结束后，应释放TRegistry对象所占内存：
ARegistry.Destroy。

　　二、指定要操作的键

　　操作注册表时，首先应指定操作的主键：先给属性RootKey赋值以指定根键，
然后用方法OpenKey来指定要操作的主键名。

　　1.指定根键(RootKey)。

　　根键是注册表的入口，也注册表信息的分类，其值可为：

　　HKEY—CLASSES—ROOT：存储整个系统对象类信息，如ActiveX对象注册、
文件关联等信息。

　　HKEY—CURRENT—USER：存储当前用户的配置信息。为属性RootKey的默认值。

　　HKEY—LOCAL—MACHINE：存储当前系统的软硬件配置信息。
应用程序自己的信息可以存储在该根键下。

　　HKEY—USERS：存储所有用户通用的配置信息。

　　还可以是HKEY—CURRENT—CONFIG、HKEY—DYN—DATA。

　　2.指定要操作的主键。

　　Function OpenKey(const Key: string; CanCreate: Boolean): Boolean;

　　Key：主键名，是键名全名中除去根键的部分，如Software\Borland\Delphi。

　　CanCreate：在指定的主键名不存在时，是否允许创建该主键，True表示允许。

　　返回值True表示操作成功。

　　3.关闭当前主键。

　　在读取或存储信息之后，应及时将关闭当前主键：procedure CloseKey。

　　三、从注册表中读取信息

　　Read系列方法从注册表读取指定的信息（字符串、二进制和十六进制），
并转换为指定的类型。

　　1.Read系列方法。

　　function ReadString(const Name: string): string;

　　读取一个字符串值，Name为字符串名称。

　　function ReadInteger(const Name: string): Integer;

　　读取一个整数值，Name为整数名称。

　　function ReadBinaryData(const Name: string; var Buffer; BufSize: Integer):Integer;

　　读取二进制值，Name为二进制值名称，Buffer为接收缓冲区，BufSize为缓冲区大小，返回为实际读取的字节数。

　　其它方法还有：ReadBool、ReadCurrency、ReadDate、ReadDateTime、ReadFloat、ReadTime。

　　2.读取信息一例（显示Windows的版本）。

　　在HKEY—LOCAL—MACHINE\Software\Microsoft\Windows\CurrentVersion下，
有三个字符串值Version、VersionNumber和SubVersionNumber，用于记录当前Windows的版本号。

　　{请在Uses中包含Registry单元}

　　procedure TForm1.Button1Click(Sender:TObject);

　　var

　　 ARegistry : TRegistry;

　　begin

　　 ARegistry := TRegistry.Create;

　　//建立一个TRegistry实例

　　 with ARegistry do

　　 begin

　　 RootKey := HKEY—LOCAL—MACHINE;//指定根键为HKEY—LOCAL—MACHINE

　　 //打开主键Software\Microsoft\Windows\CurrentVersion

　　 if OpenKey( ′Software\Microsoft\Windows\CurrentVersion′,false ) then

　　 begin

　　 memo1.lines.add('Windows版本：′＋ ReadString(′Version′));

　　 memo1.lines.add('Windows版本号：′ ＋ ReadString(′VersionNumber′));

　　 memo1.lines.add(′Windows子版本号：′ ＋ ReadString(′SubVersionNumber′));

　　 end;

　　 CloseKey;//关闭主键

　　 Destroy;//释放内存

　　 end;

　　end;

　　四、向注册表中写入信息

　　Write系列方法将信息转化为指定的类型，并写入注册表。

　　1.Write系列方法。

　　procedure WriteString(const Name, Value: string);

　　写入一个字符串值，Name为字符串的名称，Value为字符串值。

　　procedure WriteInteger(const Name: string; Value: Integer);

　　写入一个整数值。

　　procedure WriteBinaryData(const Name: string; var Buffer; BufSize: Integer);

　　写入二进制值，Name为二进制值的名称，Buffer为包含二进制值的缓冲区，BufSize为缓冲区大小。

　　其它方法还有：WriteBool、WriteCurrency、WriteDate、WriteDateTime、WriteFloat、WriteTime。

　　2.写入信息一例。

　　下面程序使Delphi随Windows启动而自动运行。

　　var

　　 ARegistry : TRegistry;

　　begin

　　 ARegistry := TRegistry.Create;

　　//建立一个TRegistry实例

　　 with ARegistry do

　　 begin

　　 RootKey:=HKEY—LOCAL—MACHINE;

　　 if OpenKey(′Software\Microsoft\Windows\CurrentVersion\Run′,True) then

　　 WriteString(′delphi′,′C:\Program Files\borland\delphi3\bin\delphi32.exe′);

　　 CloseKey;

　　 Destroy;


　　 end;

　　end;

　　五、键值维护

　　除了在注册表中读取、存储外，程序可能还需要增加主键、删除主键、主键改名、数据值改名等。

　　1.创建新主键：function CreateKey(const Key: string): Boolean。

　　Key即为主键名，返回值True表示操作成功。

　　2.删除主键：function DeleteKey(const Key: string): Boolean。

　　Key即为主键名，返回值True表示操作成功。

　　3.复制或移动主键：procedure MoveKey(const OldName, NewName: string; Delete: Boolean)。

　　OldName、NewName分别表示源主键名和目标主键名；Delete表示是否删除源主键，True表示删除，False表示保留。

　　复制或移动一个主键将复制或移动该子键下的所有数据值和子键内容。

　　4.判断指定主键是否存在，其下是否有主键，并获取主键名称。

　　KeyExists用于判断指定主键是否存在：

　　function KeyExists(const Key: string): Boolean;//返回值为True表示主键存在。

　　HasSubKeys用于判断指定主键下是否有子键：function HasSubKeys: Boolean;

　　返回值为True表示主键下有子键。

　　GetKeyNames用于获取子键名称：procedure GetKeyNames(Strings: TStrings);

　　Strings用于返回当前主键下各子键的名称。

　　5.获取主键下的数据值名称：procedure GetValueNames(Strings: TStrings)。

　　Strings用于返回当前主键下各数值名称。

　　如要获取当前系统中的拨号连接名称，可利用获取主键HKEY—USERS

　　\.DEFAULT\RemoteAccess\Addresses下的数值名称的方法来进行。

　　6.判断数值名称存在、数值名称改名。

　　ValueExists用于判断数值名称是否存在：

　　function ValueExists(const Name: string): Boolean;

　　返回值为True表示数值名称存在。

　　RenameValue用于数值名称改名：

　　procedure RenameValue(const OldName, NewName: string);

　　以上是注册表常用操作所对应的TRegistry的方法和属性，
其它方法和属性请参见Delphi联机帮助文件。

  



[解决办法]
将 registry.VCX 加到你的工程中或者放到你当前目录或为他指定目录(SET PATH TO 目录)
[解决办法]
vfp6 只能用 CreateObject 来创建对象，类库使用前需要先 SET CLASSLIB TO ... ADDITIVE
vfp9 就没这个烦恼，直接在 NewObject 中指定类所在的定义文件就行了

查看更多 下一篇