Получение уровня процессора
Материал из DRKB
Получение уровня процессора[править | править код]
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;
ID: 01434