Как определить наличие сопроцессора
|
Системщику на день рождения подарили чемодан. Ну он спрашивает:
- Зачем?
- Ну как, - говорят, - ты же в командировки там всякие ездишь, системки отлаживать?
- Ну...
- Так вот, сюда трусики положишь, сюда носочки, сюда...
- Стоп, стоп, ребята! А в чем же я сам поеду?
|
В отличие от общепринятого мнения не всее клоны 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;
|
|
