untgethardinfos.pas

可获取cpuid 速率 硬盘序列号等硬件相关信息

unit UntGetHardInfos;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TFrmGetHardInfos = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    BtnGetInfos: TButton;
    BtnClose: TButton;
    Edit5: TEdit;
    Label5: TLabel;
    Edit6: TEdit;
    Label6: TLabel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure BtnCloseClick(Sender: TObject);
    procedure BtnGetInfosClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmGetHardInfos: TFrmGetHardInfos;

implementation

uses HardInfo;

{$R *.dfm}

procedure TFrmGetHardInfos.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
   Action:=caFree;
end;

procedure TFrmGetHardInfos.FormDestroy(Sender: TObject);
begin
   FrmGetHardInfos:=nil;
end;

procedure TFrmGetHardInfos.BtnCloseClick(Sender: TObject);
begin
   FrmGetHardInfos.Close;
end;

procedure TFrmGetHardInfos.BtnGetInfosClick(Sender: TObject);
begin
   EDIT1.Text:=HardInfo.GetCPUInfo;
   EDIT2.Text:=FloatToStr(HardInfo.GetCPUSpeed)+' MHz';
   EDIT3.Text:=StrPas(HardInfo.GetIdeSerialNumber);
   EDIT4.Text:=HardInfo.GetAdapterMac(0);
   EDIT5.Text:=HardInfo.GetCPUVendor;
   EDIT6.TEXT:=IntToStr(GetDisplayFrequency)+' Hz';
end;

end.