minha source está assim:
Da um problema no reg.WriteBinary. Já tentei procurar no google mas não consegui...
procedure TForm1.Button1Click(Sender: TObject);
var
reg: TRegistry;
begin
reg := TRegistry.Create;
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.OpenKey('SOFTWARE\Microsoft\Windows NT',True);
reg.WriteString('teste','6409361');
reg.WriteBinary('testebin','f8 ,ca,4f,56,e7,b2,bd,67,31,73,\85,2b,6c,36,7d,4a,a2, 36,02');
reg.CloseKey();
reg.Free;
end;
end.
var
reg: TRegistry;
begin
reg := TRegistry.Create;
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.OpenKey('SOFTWARE\Microsoft\Windows NT',True);
reg.WriteString('teste','6409361');
reg.WriteBinary('testebin','f8 ,ca,4f,56,e7,b2,bd,67,31,73,\85,2b,6c,36,7d,4a,a2, 36,02');
reg.CloseKey();
reg.Free;
end;
end.
Comment