Как определить наличие сопроцессора

Delphi , ОС и Железо , Процессор

В отличие от общепринятого мнения не всее клоны 486/586/686/ и Pentium имеют сопроцессор для вычислений с плавающей запятой. В примере определяется наличие сопроцессора и под Win16 и под Win32.

{$IFDEF WIN32}
uses
  Registry;
{$ENDIF}
function HasCoProcesser : bool;
{$IFDEF WIN32}
var
  TheKey : hKey;
{$ENDIF}
begin
  Result := true;
  {$IFNDEF WIN32}
  if GetWinFlags and Wf_80x87 = 0 then
    Result := false;
  {$ELSE}
  if RegOpenKeyEx(HKEY_LOCAL_MACHINE, 'HARDWARE\DESCRIPTION\System\FloatingPointProcessor',
  0, KEY_EXECUTE, TheKey) ERROR_SUCCESS then
    result := false;
  RegCloseKey(TheKey);
  {$ENDIF}
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if HasCoProcesser then
    ShowMessage('Has CoProcessor')
  else
    ShowMessage('No CoProcessor - Windows Emulation Mode');
end;

Программа на Delphi, которая определяет наличие в системе ко-процессора (т.е., x87-единицы для выполнения операций с плавающей запятой) или нет. Функция HasCoProcesser возвращает булевое значение, указывающее на присутствие ко-процессора.

Работает она следующим образом:

1. Под Windows 32-бит (Win32), функция использует реестр Windows для поиска ключа, связанного с процессором для выполнения операций с плавающей запятой.
2. Если ключ не найден, то это означает, что в системе нет x87-единицы для выполнения операций с плавающей запятой, поэтому функция возвращает false.
3. Под Windows 16-бит (Win16), функция проверяет наличие x87-единицы для выполнения операций с плавающей запятой, examining значение GetWinFlags и проверяет, включен ли флаг Wf_80x87.
4. Если флаг не установлен, то это означает, что в системе нет x87-единицы для выполнения операций с плавающей запятой, поэтому функция возвращает false.

В процедуре Button1Click, когда пользователь нажимает кнопку, программа вызывает функцию HasCoProcesser и отображает сообщение об ошибке, указывающее на присутствие или отсутствие ко-процессора.

Обратите внимание, что код использует директивы компиляции ({$IFDEF WIN32} ... {$ENDIF}) для разделения логики для Windows 16-бит (Win16) и Windows 32-бит (Win32).

В целом, это простой способ определить, есть ли в системе ко-процессор или нет, что может быть полезно в различных ситуациях, таких как разработка приложений, требующих конкретных возможностей hardware.

Определение наличия сопроцессора в системе для выполнения вычислений с плавающей запятой под управлением Windows 16 и 32.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Процессор ::