Visual Basic FAQ

Как определить число цветов дисплея?

Private Declare Function GetDeviceCaps Lib "gdi32" _

(ByVal hDC As Long, ByVal nIndex As Long) As Long

Private Declare Function GetDesktopWindow Lib "user32" () As Long

Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long

Private Declare Function ReleaseDC Lib "user32" _

(ByVal hwnd As Long, ByVal hDC As Long) As Long

Private Const HORZRES = 8

Private Const VERTRES = 10

Private Const BITSPIXEL = 12

Private Sub Command1_Click()

Dim Deskhwnd As Long

Dim DeskDc As Long

Dim Width As Long

Dim Height As Long

Dim Depth As Long

' Получаем описатель рабочего стола

Deskhwnd = GetDesktopWindow

' Получаем контекст устройства рабочего стола

DeskDc = GetDC(Deskhwnd)

' Получаем ширину экрана

Width = GetDeviceCaps(hDC, HORZRES)

' Получаем высоту экрана

Height = GetDeviceCaps(hDC, VERTRES)

' Получаем цветовую палитру

' (число бит на пиксель)

Depth = GetDeviceCaps(hDC, BITSPIXEL)

' Освобождаем ресурсы

ReleaseDC GetDesktopWindow(), hDC

End Sub

Запись опубликована on 28.10.2009 at 9:00 и размещена в рубрике: Мультимедиа. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.