OnGuard component: CreateMachineID not working?
lazarus / 5-Lazarus Extra Components

----------------------------------------------------------------------
IPguy · 2011-04-28 02:36

I'm seeing an oddity with the CreateMachineID function within the
OnGuard component.  Is there anyone who has used this component in
depth?
Any idea who I would submit a ticket to or who can tell me if I'm
doing something wrong?

I'm using the CreateMachineID code to pull an id for networking,
drives and then Networking + Drives and the values I'm getting do not
seem correct:

Network,    Drives,      Network + Drives
42312D6C, CA7CFA8F, 42312D6C

I would not expect that     Network = Network + Drives?

Code: [Select]
var
  InfoSet  : TEsMachineInfoSet;
  HWInfo   : LongInt;
  HWInfoNW : LongInt;  // the Network HWInfo
  HWInfoDr : LongInt;  // the Drive HWInfo
  sHWInfo, sHWInfoNW, sHWInfoDr : String;      
Begin
try
  InfoSet := [];
  InfoSet := InfoSet + [midNetwork];
  HWInfoNW := CreateMachineID(InfoSet);  // Request just the Network
Info
  sHWInfoNW := BufferToHex(HWInfoNW, SizeOf(LongInt));

  InfoSet := [];
  InfoSet := InfoSet + [midDrives];
  HWInfoDR := CreateMachineID(InfoSet);  // request just the Drive
Info
  sHWInfoDr := BufferToHex(HWInfoDr, SizeOf(LongInt));

  InfoSet := [];
  InfoSet := InfoSet + [midDrives] + [midNetwork];
  HWInfo := CreateMachineID(InfoSet);   //  Request both Network &
Drive Info
  sHWInfo := BufferToHex(HWInfo, SizeOf(LongInt));

  Edit1.Text := sHWInfoNW + ', ' + sHWInfoDr + ', ' + sHWInfo;    //
Display the HWInfo
  except on E:Exception do
   ShowMessage(E.Message);
  end;                      
end.

----------------------------------------------------------------------
IPguy · 2011-05-06 00:15

Bump.
No thoughts / suggestions?

----------------------------------------------------------------------
JD · 2011-06-18 08:14

Quote from: IPguy on May 06, 2011, 02:15:48 amBump.
No thoughts / suggestions?

Take a look at the demos/examples.