注册表问题，绝对给分！！

Question

这样/var
  MyReg:TRegistry;
begin
  MyReg:=TRegistry.Create;
  MyReg.RootKey:=HKEY_Current_User;
  MyReg.CreateKey('\SOFTWARE\MYXX');
  if MyReg.OpenKey('\software\myxx', true) then
  begin
    MyReg.WriteString('Item1','100');
    MyReg.WriteString('Item2','0');
  end;
  MyReg.Destroy;
end;

Answer 1

你没有把KEY open
procedure write_Registry;
var
  MyReg:TRegistry;
begin
  MyReg:=TRegistry.Create;
  MyReg.RootKey:=HKEY_LOCAL_MACHINE;
  MyReg.CreateKey('\SOFTWARE\MYXX');
  MyReg.OpenKey('\SOFTWARE\MYXX',True);  //Add this
  MyReg.WriteString('Item1','100');
  MyReg.WriteString('Item2','0');
  MyReg.Destroy;
end;

Answer 2

uses Registry;procedure wreg;
var
  Reg:TRegistry;
begin
  reg:=TRegistry.Create;
  with reg do begin
  RootKey:=HKEY_LOCAL_MACHINE;
  if OpenKey('\Software\MYXX', True) then begin
  WriteString('Item1','100');
  WriteString('Item2','0');
  end;
  closekey;
  free;
  end;
end;