Delphi 注册表操作

//删除注册表项
procedure TForm1.Button1Click(Sender: TObject);
Var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_LOCAL_MACHINE;
  Reg.DeleteKey('SOFTWARE');
  Reg.CloseKey;
  Reg.Free;
Een;

//删除注册表键值
procedure TForm1.Button1Click(Sender: TObject);
Var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_CLASSES_ROOT;
  Reg.OpenKey('\.386\PersistentHandler', true);
  Reg.DeleteValue('123');
  Reg.CloseKey;
  Reg.Free;
End;

//写入Binary二进制数据
procedure TForm1.FormCreate(Sender: TObject);
Var
  Reg: TRegistry;
  mstr: array [0 .. 7] of Byte;
begin
  mstr[0] := $00;
  mstr[1] := $40;
  mstr[2] := $5C;
  mstr[3] := $F1;
  mstr[4] := $E5;
  mstr[5] := $62;
  mstr[6] := $CD;
  mstr[7] := $01;
  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_LOCAL_MACHINE;
  if Reg.OpenKey('\SYSTEM\CurrentControlSet\Control\Video\{55520A30-B527-467A-A5A7-6E8641A1F60E}\0000', True) then
  begin
    Reg.WriteBinaryData('DriverDateData', mstr, 7);
    Reg.CloseKey;
  end;
  Reg.Free;
end;