Bonjour a tous
comment faire ? quelle API utiliser ? ( sous Delphi 2007 ) ?
mon code suivant semble dépassé:
Merci
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;
Pascal07
Partager