Получение уровня процессора

Previous  Top  Next

    
 

 

 

Code:

function GettingProcLevel: string//Win95 or later and NT3.1 or later

var

Struc:    _SYSTEM_INFO;

begin

GetSystemInfo(Struc);

Case Struc.wProcessorLevel of

   3:  Result:='Intel 80386';

   4:  Result:='Intel 80486';

   5:  Result:='Intel Pentium';

   6:  Result:='Intel Pentium II or better';

end;

end;

©Drkb::01434