Je přítomen matematický koprocesor ?
V modulu nadeklarujte:
Const HKEY_LOCAL_MACHINE
= &H80000002
Function CheckMathProcessor() As Boolean
' Pokud existuje matematický
koprocesor, Windows si to ukládají v registrech
' pod následujícím klíčem
CheckMathProcessor =
CheckRegistryKey(HKEY_LOCAL_MACHINE, _
"HARDWARE\DESCRIPTION\System\FloatingPointProcessor")
End Function
Tato funkce požaduje zároveň deklaraci funkce CheckRegistryKey, popsanou již dříve.