How to write in registry hex key?

[alpha1]

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

[Matze]

Hello, welcome in the forum!

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

[alpha1]

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?

[faux]

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

[alpha1]

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

[marabu]

Hi alpha1,

you might want to try:

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

[malo]

btw, that code is better:

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.

[alpha1]

Thanks!!!!!!!