lazarus-ccr/components/onguard/examples/exmachid/umachid.pas

unit uMachID;

interface

uses
  SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Buttons, StdCtrls, ExtCtrls;

type

  { TfrmExMachineID }

  TfrmExMachineID = class(TForm)
    Bevel1: TBevel;
    GroupBox1: TGroupBox;
    chkUser: TCheckBox;
    chkSystem: TCheckBox;
    chkNetwork: TCheckBox;
    chkDrives: TCheckBox;
    btnGenerate: TButton;
    edtMachineID: TEdit;
    procedure btnGenerateClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmExMachineID: TfrmExMachineID;

implementation

{$R *.lfm}

uses
  onguard, ogutil;

procedure TfrmExMachineID.btnGenerateClick(Sender: TObject);
var
  InfoSet : TEsMachineInfoSet;
  MachineID : Longint;
begin
  { initialize the machine information set }
  InfoSet := [];
  if chkUser.Checked then
    InfoSet := InfoSet + [midUser];
  if chkSystem.Checked then
    InfoSet := InfoSet + [midSystem];
  if chkNetwork.Checked then
    InfoSet := InfoSet + [midNetwork];
  if chkDrives.Checked then
    InfoSet := InfoSet + [midDrives];

  { create the machine ID and display in hex }
  try
    MachineID := CreateMachineID(InfoSet);
    edtMachineID.Text := '$' + BufferToHex(MachineID, SizeOf(MachineID));
  except on E:Exception do
    ShowMessage(E.Message);
  end;
end;


end.