main.pas

改进的Hardware检测代码

unit main;

interface

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

type
    TfrmMain = class(TForm)
        cmdGetInfo: TButton;
        mmoInfo: TMemo;
        cmdClose: TButton;
        lblTitle: TLabel;
    cmdSave: TButton;
    SaveDialog: TSaveDialog;
        procedure cmdGetInfoClick(Sender: TObject);
        procedure cmdCloseClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure cmdSaveClick(Sender: TObject);
    private
        { Private declarations }
        HostName:String;
    public
        { Public declarations }
    end;

var
    frmMain: TfrmMain;

implementation

uses HDDSerial, CPUInfo, NetWork;

{$R *.dfm}

procedure TfrmMain.cmdGetInfoClick(Sender: TObject);
begin

    mmoInfo.Clear;
    mmoInfo.Lines.Add('CPU ID：' + GetCPUID);
    mmoInfo.Lines.Add('');
    mmoInfo.Lines.Add('CPU Vendor：' + GetCPUVendor);
    mmoInfo.Lines.Add('');
    mmoInfo.Lines.Add('CPU Speed:' + GetCPUSpeed);
    mmoInfo.Lines.Add('');
    mmoInfo.Lines.Add('Hard Disk Serial Number:' + GetHddSerialNumber);
    mmoInfo.Lines.Add('');
    mmoInfo.Lines.Add('');
    mmoInfo.Lines.Add('Host Name :' + GetHostName);
    mmoInfo.Lines.Add('');
    mmoInfo.Lines.Add('Host IP :' + GetHostIP);
    mmoInfo.Lines.Add('');
    mmoInfo.Lines.Add('Current User Name:' + GetUserName);
    mmoInfo.Lines.Add('');
    mmoInfo.Lines.Add('The First NetCard MAC:' + GetAdapterMac(0));
end;

procedure TfrmMain.cmdCloseClick(Sender: TObject);
begin
    close;
end;

procedure TfrmMain.FormCreate(Sender: TObject);
begin
    HostName := GetHostName;
    lblTitle.Caption :='获取计算机 '+HostName+' 的硬件信息';
    lblTitle.Left:=(Width-Self.Canvas.TextWidth(lblTitle.Caption)) div 2;
    cmdGetInfo.Click;
end;

procedure TfrmMain.cmdSaveClick(Sender: TObject);
begin
    SaveDialog.FileName := HostName;
    if SaveDialog.Execute then
        mmoInfo.Lines.SaveToFile(SaveDialog.FileName);
end;

end.