Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 292
  • Last Modified:

Tregistry

reading the binary data in the registry
0
coucou
Asked:
coucou
  • 2
1 Solution
 
viktornetCommented:
Here is an example......

uses Registry;

procedure TForm1.Button1Click(Sender: TObject);
var
  r : TRegistry;
  Buf : array [0..15] of Byte;
   i : integer;
begin
  r := TRegistry.Create;
  with r do
  try
     OpenKey('\Software\Microsoft\ActiveMovie\Control\Media Player', False);
      ReadBinaryData('WindowPosition',Buf, SizeOf(Buf));
      Caption := '';
      for i := 0 to 15 do
         Caption := Caption + IntToStr(Buf[i]);
   finally
      r.free;
   end;
end;

Regards,
Viktor Ivanov
0
 
viktornetCommented:
What are you planning to do ???accept or reject???

//Viktor Ivanov
0

Featured Post

Concerto Cloud for Software Providers & ISVs

Can Concerto Cloud Services help you focus on evolving your application offerings, while delivering the best cloud experience to your customers? From DevOps to revenue models and customer support, the answer is yes!

Learn how Concerto can help you.

  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now