怎么读写注册表?

Question

在
HKEY_LOCAL_MACHINE\SOFTWARE\inRay下有
 名称           类型          数据
  
inRay           REG_SZ         GOOD读取Good的代码,么怎写.
把good改成hello,代码又怎么样写

Answer 1

delphi帮助中的例子：
procedure TForm1.WMEndSession(var Message: TWMEndSession);
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_CURRENT_USER;
    if Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\RunOnce', True) 
then
   begin
      Reg.WriteString('MyApp','"' + ParamStr(0) + '"');
      Reg.CloseKey;
    end;
  finally
    Reg.Free;
    inherited;
  end;end;

Answer 2

var registerTemp,reg : TRegistry;
    inray:string;
begin
  reg:=Tregistry.create;
  with reg do
  begin
    RootKey:=HKEY_LOCAL_MACHINE;
    if openkey('SoftWare\inray\inray',false) then
    begin
       inray:=ReadString('inRay');
    end
    closekey;
  end;

Answer 3

从别处找来的。
uses Registry;
var reg:Tregistry;
reg:=Tregistry.create;
reg.rootkey:='HKey_Current_User';
reg.openkey('Control Panel\Desktop',false);
reg.WriteString('Title Wallpaper','0');
reg.writeString('Wallpaper',filelistbox1.filename);
reg.closereg;
reg.free;

Answer 4

var
    reg:TRegistry;
    str:string;
begin
  //从注册表中读取颜色值
    str:='software\LianXun\InitColor';
    reg:=TRegistry.create;
    reg.RootKey:=HKEY_LOCAL_MACHINE;
    try
      if reg.OpenKey(str,true) then
      begin
        if reg.ValueExists('TreeColor') then
          Global.TreeColor :=reg.ReadInteger('TreeColor')
        else
        begin
          reg.WriteInteger('TreeColor',9132349);
          Global.TreeColor:=9132349;
        end;        if reg.ValueExists('PanelColor') then
          Global.PanelColor :=reg.ReadInteger ('PanelColor')
        else
        begin
          reg.WriteInteger('PanelColor',9132349);
          Global.PanelColor:=9132349;
        end;        if reg.ValueExists('DBgridColor') then
          Global.DbgridColor :=reg.ReadInteger ('DBgridColor')
        else
        begin
          reg.WriteInteger('DBgridColor',16777215);
          Global.dbgridColor:=16777215;
        end;       end;
    finally
      reg.closekey;
      reg.free;
    end;
end;

Answer 5

uses Registryprocedure TForm1.Button1Click(Sender: TObject);
var
  reg:TRegistry;
begin
  reg:=TRegistry.Create;
  reg.RootKey:=HKEY_LOCAL_MACHINE;
  reg.OpenKey('SOFTWARE\inRay',true);
  reg.ReadString('good');  //读
  reg.WriteString('good','hello');//写
  reg.Free;
end;

Answer 6

windwos2000 server  动态创建odbcprocedure TForm1.Button1Click(Sender: TObject);
var
Reg:TRegistry;
begin
   Reg:=TRegistry.Create;   Reg.RootKey:=HKEY_USERS;
   if Reg.OpenKey('S-1-5-21-1202660629-706699826-854245398-500\Software\ODBC\ODBC.INI\ODBC Data Sources',true) then
       Reg.writestring('myacssssss','Driver do Microsoft Access (*.mdb)');
  Reg.closekey;
  if Reg.OpenKey('S-1-5-21-1202660629-706699826-854245398-500\Software\ODBC\ODBC.INI\myacssssss',true) then
          begin
          Reg.WriteString('DBQ','D:\do\school\data\school.mdb');
          Reg.WriteString('Description','xxxxxxx');
          Reg.WriteString('Driver','C:\WINNT\System32\odbcjt32.dll');
          Reg.WriteInteger('DriverId',25);
          Reg.WriteString('FIL','MS Access;');
          Reg.WriteInteger('SafeTransactions',0);
          Reg.WriteString('UID','');
          end;
 Reg.CloseKey;
 if Reg.OpenKey('S-1-5-21-1202660629-706699826-854245398-500\Software\ODBC\ODBC.INI\myacssssss\Engines\Jet',true) then
         begin
         Reg.WriteString('ImplicitCommitSync','');
         Reg.WriteInteger('MaxBufferSize',2048);
         Reg.WriteInteger('PageTimeout',5);
         Reg.WriteInteger('Threads',3);
         Reg.WriteString('UserCommitSync','Yes');
         end;