Our Blog

Определяем расширение экрана с помощью WinAPI

Сегодня я покажу как определить разрешение экрана с помощью WinAPI

Для этого у вас должна быть активирована утилита WinAPI Viewer (для исполнения исходника не обязательно, но если планируете использовать WinAPI то подключите)

Определяем расширение экрана с помощью WinAPI:

Option Explicit
Private Declare Function GetDesktopWindow Lib "user32" () As Long                         'Подключаем библиотеку пользовательского интерфейса
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long                'Определяем параметры
Private Type RECT
        Left As Long          'Переменные для значений (лево)
        Top As Long          '(верх)
        Right As Long        '(право)
        Bottom As Long     '(низ)
End Type

Создаем управляющий элемент (кнопка) и Label(надпись)

Private Sub Command1_Click()
Dim ddd As Long
Dim SizeScreen As RECT
ddd = GetWindowRect(GetDesktopWindow(), SizeScreen)
Label1 = "Разрешение " & SizeScreen.Right & " x " & SizeScreen.Bottom
End Sub
Comments ( 0 )
    -->