63 lines
1.7 KiB
ObjectPascal
63 lines
1.7 KiB
ObjectPascal
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.
|