unit1.pas

得到

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    FOperatingSystem:TOperatingSystem;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  FTCPU:TCPU;
  FTDisk:TDisk;
begin
Memo1.Clear;
  memo1.Lines.Add('========================================');
  memo1.Lines.Add('CPU 信息:');
    FTCPU:=TCPU.Create;
    FTCPU.RefreshInfo;
    memo1.lines.Add('FTCPU.ProcType: '+FTCPU.ProcType);
    memo1.lines.Add('FTCPU.Version: '+FTCPU.Version);
    memo1.lines.Add('FTCPU.Freq: '+FTCPU.Freq);
    memo1.lines.Add('FTCPU.Vendor: '+FTCPU.Vendor);
    memo1.lines.Add('FTCPU.ProcessorID.text: '+FTCPU.ProcessorID.text);
    memo1.lines.Add('FTCPU.Level: '+inttostr( FTCPU.Level));
    memo1.lines.Add('FTCPU.Revision: '+inttostr( FTCPU.Revision));
    memo1.lines.Add('FTCPU.Model: '+inttostr( FTCPU.Model));
    memo1.lines.Add('FTCPU.TypeID: '+inttostr( FTCPU.TypeID));
    memo1.lines.Add('FTCPU.OEMid: '+inttostr( FTCPU.OEMid));
    memo1.lines.Add('FTCPU.Architecture: '+inttostr( FTCPU.Architecture));
    memo1.lines.Add('FTCPU.Family: '+inttostr( FTCPU.Family));
    memo1.lines.Add('FTCPU.Stepping: '+inttostr( FTCPU.Stepping));

  memo1.Lines.Add('========================================');
  memo1.Lines.Add('DISK 信息:');
  FTDisk:=TDisk.Create;
  FTDisk.RefreshInfo;
  memo1.lines.Add('FTDisk.Drive: '+FTDisk.Drive);
  memo1.lines.Add('FTDisk.SerialNumberLabel: '+FTDisk.SerialNumberLabel);
  memo1.lines.Add('FTDisk.SerialNumber: '+inttostr( FTDisk.SerialNumber));

end;

end.