SMBIOS ver 1.0

2024-12-19 20:58:54 +09:00
parent a271945eae
commit ed58fc0eea
11 changed files with 9133 additions and 1 deletions
@@ -0,0 +1,62 @@
+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.