Delphi中如何操作注册表？?

Question

var
  Reg: TRegistry;  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKey_Classes_Root;
    if not Reg.OpenKey(FileExt, True) then
      Exit;
    Reg.WriteString('', FileType);
  Reg.CloseKey;
finally
    Reg.Free;           // always free
  end;

Answer 1

uses Registry;var Reg : TRegistry;Reg := TRegistry.Create;
Reg.RootKey := KEY_LOCAL_MACHINE;
Reg.OpenKey('SoftWare/MyKey');
Reg.WriteBoolean('MyBool',True); //增加、或者修改
//Reg.DeleteKey()
Reg.Free;

Answer 2

uses
  Registry;procedure TForm1.FormCreate(Sender: TObject);
var
  vBuffer: TPoint;
begin
  with TRegistry.Create do try
    RootKey := HKEY_CURRENT_USER;
    if OpenKey('\Software\Temp', False) then begin
      ReadBinaryData('Width Height', vBuffer, SizeOf(TPoint));
      Width := vBuffer.X;
      Height := vBuffer.Y;
      ReadBinaryData('Left Top', vBuffer, SizeOf(TPoint));
      Left := vBuffer.X;
      Top := vBuffer.Y;
      CloseKey;
    end;
  finally
    Free;
  end;
end;procedure TForm1.FormDestroy(Sender: TObject);
var
  vBuffer: TPoint;
begin
  with TRegistry.Create do try
    RootKey := HKEY_CURRENT_USER;
    if OpenKey('\Software\Temp', True) then begin
      vBuffer := Point(Width, Height);
      WriteBinaryData('Width Height', vBuffer, SizeOf(TPoint));
      vBuffer := Point(Left, Top);
      WriteBinaryData('Left Top', vBuffer, SizeOf(TPoint));
      CloseKey;
    end;
  finally
    Free;
  end;
end;

Answer 3

TRegistry类，去看看帮助吧，一时半会儿说不清楚