| Вопрос: Свойства экрана | Добавлено: 09.01.06 15:47 |
Автор вопроса:  Mihalыch | ICQ: 373-509-101 |
| Ответы | Всего ответов: 17 |
|
Номер ответа: 16 Автор ответа:  Mihalыch ICQ: 373-509-101 Вопросов: 56 Ответов: 330 |
Профиль | | #16 | Добавлено: 16.01.06 13:54 |
| 2LOL, большое спасибо! | ||
|
Номер ответа: 17 Автор ответа: Страшный СонВопросов: 46 Ответов: 848 |
Профиль | | #17 | Добавлено: 16.01.06 20:14 |
|
Я делаю так:
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 Public Sub GetVideoMode(ByRef Width As Long, ByRef Height As Long, ByRef Depth As Long, ByRef freq As Long) Dim hDC As Long hDC = GetDC(GetDesktopWindow()) Width = GetDeviceCaps(hDC, HORZRES) Height = GetDeviceCaps(hDC, VERTRES)  epth = GetDeviceCaps(hDC, BITSPIXEL)
freq = GetDeviceCaps(hDC, FREQUENCY) ReleaseDC GetDesktopWindow(), hDC End Sub |
||