精确的CPU识别delphi代码

时间:2010-01-27 09:04:08  来源:第二电脑网  作者:第二电脑网

  第二电脑网导读:nteger; Stepping:integer; L1DCache:word; L1ICache:word; L2Cache:word; end; TCpuType = (cpu8086, cpu286, cpu386, cpu486, cpuPentium); TCpuData=object function GetCPUIDSupport:Boolean; function GetVendorString:string; function GetCPUFrequency:word; procedure GetFMS(var Family,Model,Stepping:byte...
  正文:

unit CPUId;
interface
uses Windows, Mmsystem, Sysutils, Math, Dialogs;
type
TCpuRec=record
Name:string[128];
Vendor:string[12];
Frequency:word;
Family:integer;
Model:integer;
Stepping:integer;
L1DCache:word;
L1ICache:word;
L2Cache:word;
end;
TCpuType = (cpu8086, cpu286, cpu386, cpu486, cpuPentium);
TCpuData=object
function GetCPUIDSupport:Boolean;
function GetVendorString:string;
function GetCPUFrequency:word;
procedure GetFMS(var Family,Model,Stepping:byte);
function GetMaxCpuId:dword;
function CheckFPU:Boolean;
function CheckTSC:Boolean;
function CheckMSR:Boolean;
function CheckMphotoshop/ target=_blank class=infotextkey>ps:Boolean;
function GetNoCpus:cardinal;
function CheckPN:Boolean;
function CheckCMPXCHG8B:Boolean;
function CheckCMOVe:Boolean;
function CheckSelfSnoop:Boolean;
function CheckDebugTraceStore:Boolean;
function CheckFXSAVEFXRSTOR:Boolean;
function CheckMMX:Boolean;
function CheckMMXplus:Boolean;
function CheckSSE:Boolean;
function CheckSSE2:Boolean;
function CheckAMD3DNow:Boolean;
function CheckAMD3DNowPlus:Boolean;
function GetMaxExtendedFunctions:dword;
procedure GetExtendedFMS(var Family,Model,Stepping:byte);
function GetExtendedCpuName:string;
function GetExtendedL1DCache:word;
function GetExtendedL1ICache:word;
function GetExtendedL2Cache:word;

function CheckCeleron:Boolean;
function CheckPentiumIII:Boolean;
function CheckXeon:Boolean;
function CheckPentium4:Boolean;
function CheckIthanium:Boolean;

//****Aici am conrectat****
      function IntelP5N:string;
function IntelP6N:string;
//****Pana aici****
      function AMDK5N:string;
function Cyrix686N:string;
function GenericCpuN:string;
function P5CacheL1DI:word;
function P6CacheL1DI:word;
function P6CacheL2:word;

function AuthenticAMD:TCpuRec;

function GenuineIntel:TCpuRec;
function CyrixInstead:TCpuRec;
function GenericCPU:TCpuRec;
end;
const
Intel486:array[0..8] of string=
(''Intel 486 DX'',
''Intel 486 DX'',
''Intel 486 SX'',
''Intel 486 DX2'',
''Intel 486 SL'',
''Intel 486 SX2'',
''Intel 486 DX2'',
''Intel 486 DX4'',
''Intel 486 DX4'');
UMC486:array[0..1] of string=
(''UMC U5D'',
''UMC U5S'');
AMD486:array[0..5] of string=
(''AMD 486 DX2'',
''AMD 486 DX2'',
''AMD 486 DX4'',
''AMD 486 DX4'',
''AMD 5x86'',
''AMD 5x86'');
IntelP5:array[0..6] of string=
(''Intel Pentium P5 A-Step'',
''Intel Pentium P5'',
''Intel Pentium P54C'',
''Intel Pentium P24T Overdrive'',
''Intel Pentium MMX P55C'',
''Intel Pentium P54C'',
''Intel Pentium MMX P55C'');
NexGenNx586=''NexGen Nx586'';
Cyrix4x86=''VIA Cyrix 4x86'';
Cyrix5x86=''VIA Cyrix 5x86'';
CyrixMediaGX=''VIA Cyrix Media GX'';
CyrixM1=''VIA Cyrix 6x86'';
CyrixM2=''VIA Cyrix 6x86MX'';
CyrixIII=''VIA Cyrix III'';
AMDK5:array[0..3] of string=
(''AMD SSA5 (PR75/PR90/PR100)'',
   ''AMD 5k86 (PR120/PR133)'',
   ''AMD 5k86 (PR166)'',
''AMD 5k86 (PR200)'');
AMDK6:array[0..4] of string=
(''AMD K6 (166~233)'',
''AMD K6 (266~300)'',
''AMD K6-2'',
''AMD K6-III'',
''AMD K6-2+ or K6-III+'');
Centaur:array[0..2] of string=
(''Centaur C6'',
''Centaur C2'',
''Centaur C3'');
Rise:array[0..1] of string=
"精确的CPU识别delphi代码"由第二电脑网原创提供,转载请注明:http://www.002pc.com/master/College/Language/Delphi/2010-01-27/12455.html

 1/14    1 2 3 4 5 6 下一页 尾页


关键字:

关于《精确的CPU识别delphi代码》文章的评论

站内搜索: 高级搜索

热门搜索: Windows style 系统 tr IP QQ CPU 安装 function 注册 if td