柔肠寸断

delphi的HELP中本身就有例子的,改一下就可以了

Delphi(Pascal) code

uses Registry;
procedure TForm1.Button1Click(Sender: TObject);
var
  Reg: TRegistry;
  buff:array [0..100] of byte;
  len:integer;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    if Reg.OpenKey('Software', True) then
   begin
      len:=Reg.ReadBinaryData('A',buff,100);
      Reg.WriteBinaryData('B',buff,len);
      Reg.CloseKey;
    end;
  finally
    Reg.Free;
end;
end;