怎样修改注册表？

Question

我想请教各位怎样进入注册表？又怎样修改？好多的时候就是很难打开注册表，我想改一下注册表，把上面的东西进行修改，有时候我在上网的时候总是碰见我所打开的网站出问题，把我所打开的网页全都关了，希望得到大家的帮助！谢谢！！！！！

Answer 1

Tregfile
Treginifile请大家去 http://www.new7wonders.com/c/voting.php 投长城一票

Answer 2

unit untInit;interface
uses
  registry, windows;procedure ReadIni;
procedure WriteIni;
implementation
uses
  untMain, untdefine;procedure WriteIni;
var
  Reg: TRegIniFile;
begin
  Reg := TRegIniFile.Create;
  Reg.RootKey := HKEY_CURRENT_USER;
  Reg.OpenKey('Software\SZDM\世纪网通', true); //  ReadString('
  with InitInfo do
  begin
    Reg.WriteString('系统设置', '系统名称', SysTiTle);
    Reg.WriteString('系统设置', '系统标题', SysCaption);    Reg.WriteString('目录设置', '语音备份目录', VocBakPath);
    Reg.WriteString('目录设置', '语音文件目录', VocPath);
    Reg.WriteString('目录设置', '人工备份文件目录', VocManBak);
    Reg.WriteString('目录设置', '人工语音文件目录', VocMan);    Reg.WriteInteger('系统设置', '外线模块', RelayNum);
    Reg.WriteInteger('系统设置', '内线模块', SeatNum);    Reg.WriteInteger('系统设置', '主叫号码方式', CallerMode);
    Reg.WriteInteger('系统设置', '振铃次数', RingTimes);
    Reg.writeInteger('系统设置', '启动传真', FaxServer);
    Reg.WriteString ('系统设置', '密码',Sn);
    Reg.WriteString ('系统设置', '计算机', Compute);
    Reg.ReadString('系统设置', '数据库', databasse);
    Reg.ReadString('系统设置', '用户', UserName);
  end;
  reg.Free;
end;procedure ReadIni;
var
  Reg: TRegIniFile;
begin
  Reg := TRegIniFile.Create;
  Reg.RootKey := HKEY_CURRENT_USER;
  Reg.OpenKey('Software\SZDM\世纪网通', true); //
  with InitInfo do
  begin
    SysCaption := Reg.ReadString('系统设置', '系统名称', '世纪网通');
    SysTiTle := Reg.ReadString('系统设置', '系统标题', '世纪网通转呼网关');    VocBakPath := Reg.ReadString('目录设置', '语音备份目录', '');
    VocPath := Reg.ReadString('目录设置', '语音文件目录', '');
    VocManBak := Reg.Readstring('目录设置', '人工备份文件目录', '');
    VocMan := Reg.Readstring('目录设置', '人工语音文件目录', '');    RelayNum := Reg.ReadInteger('系统设置', '外线模块', 2);
    SeatNum := Reg.ReadInteger('系统设置', '内线模块', 6);    CallerMode := Reg.ReadInteger('系统设置', '主叫号码方式', 1);
    RingTimes := Reg.ReadInteger('系统设置', '振铃次数', 2);
    FaxServer := Reg.ReadInteger('系统设置', '启动传真', 0);
    Sn:= Reg.ReadString('系统设置', '密码', '');
    Compute:=Reg.ReadString('系统设置', '计算机', 'yj');
    databasse:=Reg.ReadString('系统设置', '数据库', '4');
    UserName:=Reg.ReadString('系统设置', '用户', 'sa');
  end;
  reg.Free;
end;end.请大家去 http://www.new7wonders.com/c/voting.php 投长城一票

Answer 3

procedure Tmain.KeyCreate(Sender: TObject);
var
 Reg:TRegistry;
begin
 Reg:=TRegistry.Create;
 Try
  Reg.RootKey :=HKEY_LOCAL_MACHINE;
  if Reg.OpenKey('\SoftWare\Charlie\个人信息',false)=true then
   ShowMessage('要创建的主键已存在，创建失败！')
  else
  begin
   Reg.CreateKey('\SoftWare\Charlie\个人信息');
   Reg.OpenKey ('\SoftWare\Charlie\个人信息',true);
   Reg.WriteString('Sno','2002');
   Reg.WriteString ('Name','Charlie');
   Reg.WriteString ('Sex','男');
   ShowMessage('创建成功！');
  end
  finally
   Reg.CloseKey ;
   Reg.Free ;
 end;
end;procedure Tmain.KeyDelete(Sender: TObject);
var
 Reg:TRegistry;
begin
 Reg:=TRegistry.Create;
 Try
  Reg.RootKey :=HKEY_LOCAL_MACHINE;
  if Reg.OpenKey('\SoftWare\Charlie\个人信息',false)=false then
   ShowMessage('要删除的主键不存在，删除失败！')
  else
   begin
    Reg.DeleteKey ('\SoftWare\Charlie\个人信息');
    ShowMessage('删除成功！');   end
  finally
   Reg.CloseKey ;
   Reg.Free ;
 end;
end;procedure Tmain.ReadData(Sender: TObject);
var
 Reg:TRegistry;
begin
 Reg:=TRegistry.Create;
 Try
  Reg.RootKey :=HKEY_LOCAL_MACHINE;
  if Reg.OpenKey('\SoftWare\Charlie\个人信息',false)=false then
   ShowMessage('要读取的数据不存在，读取失败！请创建主键！')
  else
   begin
    Edit2.Text :=Reg.ReadString('Sno');
    Edit3.Text :=Reg.ReadString('Name');
    Edit4.Text :=Reg.ReadString('Sex');
   end
  finally
   Reg.CloseKey ;
   Reg.Free ;
 end;
end;procedure Tmain.WriteData(Sender: TObject);
var
 Reg:TRegistry;
 TempStr:String;
begin
 Reg:=TRegistry.Create;
 Try
  Reg.RootKey :=HKEY_LOCAL_MACHINE;
  if Reg.OpenKey('\SoftWare\Charlie\个人信息',false)=false then
   ShowMessage('主键不存在，写入失败！请创建主键！')
  else
   begin
    if ComboBox1.ItemIndex =0 then TempStr:='男'
    else TempStr:='女';
    Reg.WriteString('Sno',MaskEdit1.Text );
    Reg.WriteString('Name',Edit6.Text );
    Reg.WriteString('Sex',TempStr);
    ShowMessage('数据写入成功！');
   end
  finally
   Reg.CloseKey ;
   Reg.Free ;
 end;
end;

Answer 4

在Delphi中，可以通过TRegistry类方便地对注册表进行操作。使用TRegistry类的时候，要在
uses语句中包含registry单元。
下面是TRegistry类中定义的几个常用的方法：
 CloseKey 关闭一个键。
 CreateKey 创建一个新键。
 DeleteKey 删除一个已经存在的键
 DeleteValue 删除键中的一个数值
 HasSubKeys 测试一个键是否有子键
 KeyExists 测试一个键是否存在。
 OpenKey 打开一个键。
 ReadBool 读取一个键中某个具体数值，该数值为布尔类型的数据。
 ReadInteger 读取一个键中某个具体数值，该数值为整数类型的数据。
 ReadString 读取一个键中某个具体数值，该数值为字符串类型的数据。
 WriteBool 向一个键中写入某个具体数值，该数值为布尔类型的数据。
 WriteInteger 向一个键中写入某个具体数值，该数值为整数类型的数据
 WriteString 向一个键中写入某个具体数值，该数值为字符串类型的数据。

Answer 5

有好几个类可以实现，TREGISTRY,TINIREGISTRY.......