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

Системщику на день рождения подарили чемодан. Ну он спрашивает:
- Зачем?
- Ну как, - говорят, - ты же в командировки там всякие ездишь, системки отлаживать?
- Ну...
- Так вот, сюда трусики положишь, сюда носочки, сюда...
- Стоп, стоп, ребята! А в чем же я сам поеду?

В отличие от общепринятого мнения не всее клоны 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;

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 4 458 • TDictionary Custom Sort 6 499 • Fast Watermark Sources 6 289 • 3D Designer 9 232 • Sik Screen Capture 6 621 • Patch Maker 7 000 • Айболит (remote control) 7 007 • ListBox Drag & Drop 5 874 • Доска для игры Реверси 97 098 • Графические эффекты 7 203 • Рисование по маске 6 507 • Перетаскивание изображений 5 374 • Canvas Drawing 5 746 • Рисование Луны 5 456 • Поворот изображения 4 985 • Рисование стержней 3 539 • Paint on Shape 2 806 • Генератор кроссвордов 3 678 • Головоломка Paletto 2 963 • Теорема Монжа об окружностях 3 766 • Пазл Numbrix 2 484 • Заборы и коммивояжеры 3 168 • Игра HIP 2 136 • Игра Go (Го) 2 071 • Симулятор лифта 2 441 • Программа укладки плитки 2 116 • Генератор лабиринта 2 590 • Проверка числового ввода 2 265 • HEX View 2 594 • Физический маятник 2 206