怎么读写注册表的某一默认项?

Question

比说读写:
HKEY_LOCAL_MACHINE\Software\Mysoft
(默认)

Answer 1

http://expert.csdn.net/Expert/topic/2325/2325446.xml?temp=.5569116

Answer 2

这里我有一个写的程序，希望你能推类var
reg:TRegistry;
Bufor: array[0..3] of Byte;//准备00 00 00 00 四个值位
begin
reg:=TRegistry.Create;
reg.RootKey :=HKEY_CLASSES_ROOT;//自己定义KEY根
reg.OpenKey ('abc',true);//自定义abc主键
Bufor[0]:=0;//定位1，二进值的值，下同
Bufor[1]:=0;
Bufor[2]:=1;
Bufor[3]:=0;
reg.WriteBinaryData(EditFlags',Bufor,SizeOf(Bufor));//写注册表
reg.CloseKey;
reg.Free;
end;

Answer 3

这是我以前写的function GetConnectStr():string;
var
  Reg:TRegistry;
  strWndAuthen,strPath:string;
  ReturnVlaue:Integer;
begin
  Reg:=TRegistry.Create;
  try
    Reg.RootKey:=HKey_Current_User;
    strPath:='\SoftWare\MyAllSoft\Erp';
    if Reg.OpenKey(strPath,false) then
    begin
      strWndAuthen:='Integrated Security='+Reg.ReadString('Integrated Security')+';';
       strDataServer:='Data Source='+Reg.ReadString('DataServer')+';';
       strDataBase:='Initial catalog='+Reg.ReadString('DataBase')+';';
       strUserId:='User ID='+Reg.ReadString('User Id')+';';
       strPwd:='Password='+Reg.ReadString('Pwd')+';';
    end else
    begin
      MessageBox(0,'数据库连接信息丢失,'+#13+'请重新设置数据库连接信息！','系统提示',MB_OK);
     end;
  finally
      Reg.Free;
  end;
  result:=strWndAuthen+strDataServer+strDataBase+strUserID+strPwd;
end;
procedure TDbSetFmt.SetConnStr();
var
  Reg:TRegistry;
  strPath:string;
  ReturnValue:Integer;
 begin
  Reg:=TRegistry.Create;
  try
     Reg.RootKey:=HKEY_CURRENT_USER;
     strPath:='\SoftWare\MyAllSoft\Erp';
     if Reg.OpenKey(strPath,true) then
     begin
       Reg.WriteString('DataServer',Trim(CombDataServer.Text));
       Reg.WriteString('DataBase',Trim(CombDataBase.Text));
       Reg.WriteString('User Id',Trim(EdtUid.Text));
       reg.WriteString('Pwd',Trim(EdtPwd.Text));
       if AuthenCheck.Checked =true then
          Reg.WriteString('Integrated Security','SSPI')
       else
          Reg.WriteString('Integrated Security','');
     end else
     begin
        MessageBox(0,'在设置过程中遇到未知错误！','系统提示',MB_OK);
     end;
  finally
   Reg.Free;
  end;
end;