怎么用delphi操作注册表???

Question

• CloseKey 关闭一个键。
• CreateKey 创建一个新键。
• DeleteKey 删除一个已经存在的键。
• DeleteValue 删除键中的一个数值。
• HasSubKeys 测试一个键是否有子键。
• KeyExists 测试一个键是否存在。
• OpenKey 打开一个键。
• ReadBool 读取一个键中某个具体数值，该数值为布尔类型的数据。
• ReadInteger 读取一个键中某个具体数值，该数值为整数类型的数据。
• ReadString 读取一个键中某个具体数值，该数值为字符串类型的数据。
• WriteBool 向一个键中写入某个具体数值，该数值为布尔类型的数据。
• WriteInteger 向一个键中写入某个具体数值，该数值为整数类型的数据。
• WriteString 向一个键中写入某个具体数值，该数值为字符串类型的数据。

Answer 1

我相信你通过这种手段一定能victory. Good luck!
首先,你可以生成一个注册表文件来产生一些注册表信息. 如文件名为project1.reg. 用NotePad生成.REGEDIT4
[HKEY_LOCAL_MACHINE\SOFTWARE\COMPANY\PROJECT1]
"Database"="oracle"
"Name"="project1"
"password"="project1"  
通过执行它,你可以在注册表中产生一些纪录. 这是人工的方法. 你也可以通过DELPHI去动态操作,如READ OR WRITE.下面是READ的代码:
  with TRegistry.Create do
  try
      RootKey := HKEY_LOCAL_MACHINE;
      OpenKey('SOFTWARE\COMPANY\PROJECT1', false);
      String1:=ReadString('Database');
      String2:=ReadString('Name');
      String3;= ReadString('password'));        
    finally
      free;
    end;String1,String2,String3为你从注册表中读到的信息.WRITE的代码:
  with TRegistry.Create do
  try
    RootKey := HKEY_LOCAL_MACHINE;
    if OpenKey('\SOFTWARE\COMPANY\PROJECT1',FALSE) then
      WriteString('DATABASE',edPath.Text);
  finally
    Free;
  end;
你将edPath.Text的内容存入注册表.
这是完整的实例.希望你成功. 有事你说话!