delphi读注册表的问题，Thank you！

Question

uses Registry;0Dprocedure TForm1.WMEndSession(var Message: TWMEndSession);0D
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_CURRENT_USER;
    if Reg.OpenKey('\Software\公司名\软件名', True) then
   begin
      Reg.WriteString('MyApp','"' + ParamStr(0) + '"');
      Reg.CloseKey;
    end;
  finally
    Reg.Free;
    inherited;
  end;end;—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样，改为“=”或者去掉';
I.Desire := '加不加分随你';
—————————————————————————————————
    

Answer 1

将上面的Reg.RootKey := HKEY_CURRENT_USER;改为：
Reg.RootKey := HKEY_LOCAL_MACHINE;一般用这个—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样，改为“=”或者去掉';
I.Desire := '加不加分随你';
—————————————————————————————————
    

Answer 2

对不起还要去掉inherited;
呵呵—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样，改为“=”或者去掉';
I.Desire := '加不加分随你';
—————————————————————————————————
    

Answer 3

单元里use registry
一个例子
var registertem:tregistry;
begin
   registertem:=tregistry.create;
  with registertem do
  begin
  rootkey:=hkey_local_machine;
  if openkey('software\microsoft\windows\currentversion\fremember',true) then
  begin
   try
   writestring('rememberip',edit2.text);
   form1.nmecho1.host:=edit2.text;
  except
   showmessage('请输入合法IP格式,如'+'127.0.0.1');
   exit;
  end;
  end;
   closekey;
   registertem.free;
  end;
end;

Answer 4

var
  reg: TRegistry;
  path: string;
begin
  reg := TRegistry.Create;
  reg.RootKey := HKEY_LOCAL_MACHINE;
  if reg.OpenKey('\Software\HumanSoft\StockData', True) then
  begin
    writestring('path',edit2.text);
  end;
end;

Answer 5

读的话，把writestring改用readstring就行了。

Answer 6

Reg.OpenKey('\Software\公司名\软件名', True) then
openkey('software\microsoft\windows\currentversion\fremember',true)
这些键是不是要自己创建啊，如果是，怎么创建？

Answer 7

给你一段程序try
  Reg:= TRegistry.Create;
  Reg.RootKey:=HKEY_LOCAL_MACHINE;
  if not Reg.OpenKey('\Software\CarRecorder',TRUE) then
    begin
      try
        Reg.CreateKey('CarRecorder');
      except
        Reg.CloseKey ;
        Application.messagebox('保存配置出错','提示',0);
        Exit;
      end;
    end;                
    i_adoc_connect.Connected := TRUE;
    Reg.WriteString('ConnectionString',l_strConnectionString);
    ADOQuery_login.Close;
    Reg.Free;
except
  .....