在DELPHI中如何操纵注册表(0分)

F

felee

Unregistered / Unconfirmed
GUEST, unregistred user!
在DELPHI中如何操纵注册表,比如我要取HKEY_LOCAL_MACHINE键下的某个子键值,在VB中,我是将它定义一个常数:
const
HKEY_LOCAL_MACHINE = &H80000002

在DELPHI中如何指定?
 
procedure TForm1.Button1Click(Sender: TObject)

var
Reg: TRegistry

begin
Reg := TRegistry.Create

Reg.RootKey := HKEY_LOCAL_MACHINE

if Reg.OpenKey('/Hardware/Description/System'
+ '/CentralProcessor/0', False) then begin
ShowMessage(Reg.ReadString('Identifier'))

Reg.CloseKey

end
// if
Reg.Free

end


 
是这样的,有关操作注册表的函数已经封装在了DLL中,在DELPHI中我只需要调用就行,
现在需要给这个函数传送一个参数HKEY_LOCAL_MACHINE,在VB中,我是将它定义成常量的:
const
HKEY_LOCAL_MACHINE = &H80000002
 
unit Registry中封装了好几个类,都可以操纵注册表
看一下帮助,很详细的。
操作起来也很方便。
 
。。。。。
 
现在我不是要通过DELPHI操纵注册表,只是简单地在DELPHI中传一个参数给函数,不知道这个
参数该如何写?
 
我明白了,可以直接使用
 
顶部