Get MachineGUID using Delphi

var
  fReg:TRegistry;
  GUIDStr:String;
begin
  try
    fReg:= TRegistry.Create(KEY_WRITE OR KEY_WOW64_64KEY);
    fReg.RootKey:=HKEY_LOCAL_MACHINE;
    if fReg.OpenKeyReadOnly('\SOFTWARE\Microsoft\Cryptography') then
      begin
        GUIDStr:=freg.ReadString('MachineGuid');
        edit1.Text:=GUIDStr;
      end;
  finally
    fReg.Free;
  end;
end;
Advertisements

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s