Системщику на день рождения подарили чемодан. Ну он спрашивает:
- Зачем?
- Ну как, - говорят, - ты же в командировки там всякие ездишь, системки отлаживать?
- Ну...
- Так вот, сюда трусики положишь, сюда носочки, сюда...
- Стоп, стоп, ребята! А в чем же я сам поеду?
В отличие от общепринятого мнения не всее клоны 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);
beginif HasCoProcesser then
ShowMessage('Has CoProcessor')
else
ShowMessage('No CoProcessor - Windows Emulation Mode');
end;
Статья Как определить наличие сопроцессора раздела ОС и Железо Процессор может быть полезна для разработчиков на Delphi и FreePascal.
