DruckenMister WongFacebook

Feststellen, ob eine Maus verfügbar ist

System Win9x, WinNT, Win2000, WinXP, Vista, Win7
Ab Delphi-Version Delphi 1
Letzte Änderung 28.09.2010

Folgende Funktion ermittelt, ob eine Maus im System installiert ist:


function MouseExists: Boolean;
begin
  Result:= GetSystemMetrics(SM_MOUSEPRESENT) <> 0
end;
 

Die Funktion basiert auf dem Aufruf von GetSystemMetrics. Dieser API-Funktion liefert je nach Konstante, die ihr übergeben wird, unterschiedliche Systemparameter. Alternativ könnte man ihr auch SM_MOUSEWHEELPRESENT übergeben, um festzustellen, ob ein Mausrad verfügbar ist bzw. SM_CMOUSEBUTTONS um die Anzahl der Maustasten zu ermitteln.