|
Neben vielen anderen Informationen über ein Grafik-Gerät
liefert die API-Funktion GetDeviceCaps die aktuell eingestellte
Farbtiefe des Bildschirms in Bits pro Pixel. Den Geräte-Kontext
(DC) des Bildschirms, den die Funktion als ersten Parameter
erwartet, erhalten Sie über die API-Funktion GetDC, der Sie als
Parameter statt eines bestimmten Fenster-Handles den Wert 0
übergeben.
Public Declare Function GetDeviceCaps Lib "gdi32" _
(ByVal hdc As Long, ByVal nIndex As Long) As Long
Private Declare Function GetDC Lib "user32" _
(ByVal hwnd As Long) As Long
Private Const BITSPIXEL = 12
Die Hilfs-Funktion ScreenResolution fasst die beiden Aufrufe
bündig zusammen:
Public Function ScreenResolution() As Integer
ScreenResolution = GetDeviceCaps(GetDC(0), BITSPIXEL)
End Function
|