Je přítomen matematický koprocesor ?

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.

Zpět