Получение уровня процессора
Falk0ner, вс, 06/07/2008 - 15:34.
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;
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;
Отправить комментарий