Bonjour a tous

comment faire ? quelle API utiliser ? ( sous Delphi 2007 ) ?

mon code suivant semble dépassé:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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