unit MainForm;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
  Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Menus,

  { DevExpress}
  cxGraphics, dxUIAClasses, cxControls, cxLookAndFeels, cxLookAndFeelPainters,
  dxSkinsCore, dxSkinWXI, dxLayoutControlAdapters, dxLayoutcxEditAdapters, cxContainer,
  cxEdit, dxLayoutContainer, cxTextEdit,  cxButtons, cxClasses, dxLayoutControl,
  dxCore, dxSkinsForm, dxLayoutLookAndFeels, cxMemo;

type
  TfrmMain = class(TForm)
    lgRoot: TdxLayoutGroup;
    lcMain: TdxLayoutControl;
    btnGetSn: TcxButton;
    dxLayoutItem1: TdxLayoutItem;
    teCpuSerialNum: TcxTextEdit;
    dxLayoutItem2: TdxLayoutItem;
    teMbSerialNum: TcxTextEdit;
    dxLayoutItem3: TdxLayoutItem;
    teHddSerialNum: TcxTextEdit;
    dxLayoutItem4: TdxLayoutItem;
    dxLayoutLabeledItem1: TdxLayoutLabeledItem;
    dxLayoutEmptySpaceItem1: TdxLayoutEmptySpaceItem;
    teNetworkMac: TcxTextEdit;
    dxLayoutItem5: TdxLayoutItem;
    dxLayoutLookAndFeelList: TdxLayoutLookAndFeelList;
    dxLayoutSkinLookAndFeel1: TdxLayoutSkinLookAndFeel;
    scMain: TdxSkinController;
    mmLog: TcxMemo;
    dxLayoutItem6: TdxLayoutItem;
    procedure btnGetSnClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmMain: TfrmMain;

implementation

{$R *.dfm}

uses
  GO2.SMBios;

procedure TfrmMain.btnGetSnClick(Sender: TObject);
begin
  teCpuSerialNum.Text:= GetCPUSerialNumber;
  teMbSerialNum.Text:= GetMainboardSerialNumber;
  teHddSerialNum.Text:= GetHDDSerialNumber;
  teNetworkMac.Text:= GetNetworkAdapterSerialNumber;
  mmLog.Text:= GetHardwareInformation;
end;

end.