Comment connaitre le modèle de processeur présent ?
Bonjour a tous
comment faire ? quelle API utiliser ? ( sous Delphi 2007 ) ?
mon code suivant semble dépassé:
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
|
function TexteProcesseur:string; // provisoire: a actualiser ?
const PROCESSOR_INTEL_386 = 386;
PROCESSOR_INTEL_486 = 486;
PROCESSOR_INTEL_PENTIUM = 586;
PROCESSOR_MIPS_R4000 = 4000;
PROCESSOR_ALPHA_21064 = 21064;
var
SysInfo: TSYSTEMINFO;
begin
GetSystemInfo(SysInfo);
case SysInfo.dwProcessorType of
{+NT} PROCESSOR_INTEL_386 : Result := 'Intel 80386';
{+NT} PROCESSOR_INTEL_486 : Result := 'Intel 80486';
{+NT} PROCESSOR_INTEL_PENTIUM : Result := 'Intel Pentium';
{+NT} PROCESSOR_MIPS_R4000 : Result := 'MIPS R4000';
{+NT} PROCESSOR_ALPHA_21064 : Result := 'ALPHA 21064';
{+NT} else Result := '?';
end;
end; |
Merci
Pascal07