Verificare se c’è il mouse

Per verificare la presenza del mouse è necessario usare la seguente dichiarazione API:

Declare Function GetSystemMetrics Lib "user32" Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long

con la seguente costante:

Const SM_MOUSEPRESENT = 19

La funzione GetSystemMetrics restituisce (in base all’indice usato nella chiamata) informazioni sul sistema e sulla sua configurazione. Utilizzandola, come in questo caso, per determinare la presenza del mouse, è necessario richiamarla impostando come indice (nIndex) la costante SM_MOUSEPRESENT.

L’esempio di codice seguente, mostra come richiamare la funzione:

Function MouseInstallato() As Boolean
MouseInstallato = GetSystemMetrics(SM_MOUSEPRESENT) = 1
End Function

La funzione, MouseInstallato, restituirà True (vero) se il mouse è installato, oppure False (falso), se non ci sono mouse installati nel sistema.

Both comments and pings are currently closed.

Comments are closed.