How can i write in registry hex key, like this: "Port"=hex:55,13,00,00 ?
Thanks!

Hello, welcome in the forum!

Maybe this post will solve your problem: http://www.delphipraxis.net/internal...=285482#285482

I have already seen this post, but there is error in therein source: [Error] Project1.dpr(40): Constant object cannot be passed as var parameter.
How could I correct this error?

You have to initialize the reg-variable. Post your source-code here, so it's easier to help you.

zusammenfalten · markieren

Delphi-Quellcode:

program Test;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Registry,
  Windows;

var
  Reg : TRegistry;
  buf: array[0..3] of byte;

begin
  buf[0] := $01;
  buf[1] := $00;
  buf[2] := $00;
  buf[3] := $00;

  Reg:=TRegistry.Create;
  Reg.RootKey:=HKEY_LOCAL_MACHINE;
  Reg.OpenKey('SYSTEM', False);
  Reg.CreateKey('Parameters');
  Reg.OpenKey('Parameters', False);
  Reg.WriteBinaryData('Test', @buf, 4);
  Reg.CloseKey;
  Reg.Free;
end.

Here is an error: [Error] Project1.dpr(25): Constant object cannot be passed as var parameter

Hi alpha1,

you might want to try:

Reg.WriteBinaryData('Test', buf[0], Length(buf)); marabu

btw, that code is better:

zusammenfalten · markieren

Delphi-Quellcode:

program Test;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Registry,
  Windows;

var
  Reg : TRegistry;
  buf: array[0..3] of byte;

begin
  buf[0] := $01;
  buf[1] := $00;
  buf[2] := $00;
  buf[3] := $00;

  try // try-finally needed. If there is an exception anywhere, the object maybe does not free.
    Reg:=TRegistry.Create;
    Reg.RootKey:=HKEY_LOCAL_MACHINE;
    Reg.OpenKey('SYSTEM', False);
    Reg.CreateKey('Parameters');
    Reg.OpenKey('Parameters', False);
    Reg.WriteBinaryData('Test', buf, 4); // hier was the error. You don't need to put a pointer here
    Reg.CloseKey;
  finally // now free the object
    Reg.Free;
  end;
end.

Thanks!!!!!!!