Improve company productivity with a Business Account.Sign Up

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 293
  • 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
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Free Tool: Subnet Calculator

The subnet calculator helps you design networks by taking an IP address and network mask and returning information such as network, broadcast address, and host range.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

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