unit1.~pas

来自「Delphi实效编程百例的随书源代码 这是其中的操作系统部分」· ~PAS 代码 · 共 45 行

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
        SysInfo: SYSTEM_INFO;
begin
        // 获取C P U信息
        GetSystemInfo(SysInfo);
        // 处理器个数
        Edit1.Text := '系统中共有' + IntToStr( SysInfo.dwNumberOfProcessors ) + '个CPU' ;
        // 处理器类型
        case SysInfo.dwProcessorType of
        386: Edit2.Text:=' CPU类型为3 8 6系列' ;
        486: Edit2.Text:=' CPU类型为4 8 6系列' ;
        586: Edit2.Text:=' CPU类型为奔腾系列' ;
        end ;
end;

end.