Функция EnumDisplayDevices

Declare Function EnumDisplayDevices Lib "user32" Alias "EnumDisplayDevicesA" ( _
    Unused As Any, _
    ByVal iDevNum As Long, _
    lpDisplayDevice As DISPLAY_DEVICE, _
    ByVal dwFlags As Long) As Boolean

EnumDisplayDevices позволяет получить информацию об устройствах отображения в системе.

Возвращаемое значение

В успешном случае возвращается ненулевое значение. В случае ошибки возвращается 0

Параметры

Unused

Не используется. Установите в 0

iDevNum

Индексное значение, которое определяет устройство отображения, представляющее интерес. Операционная система идентифицирует каждое устройство отображения индексным значением, начиная с 0

lpDisplayDevice

Указатель на структуру DISPLAY_DEVICE, которая принимает информацию об устройстве отображения, заданном параметром iDevNum

dwFlags

Не используется. Установите в 0

Пример

Dim OldX As Long, OldY As Long, T As Long

Private Sub Form_Load()
    Dim DD As DISPLAY_DEVICE
    DD.cb = Len(DD)
    OldX = Screen.Width / Screen.TwipsPerPixelX
    OldY = Screen.Height / Screen.TwipsPerPixelY
    ' Извлекаем информацию об устройствах отображения
    If EnumDisplayDevices(ByVal 0&, 0, DD, ByVal 0&) Then
        Me.AutoRedraw = True
        Me.Print "Device String:" + Left$(DD.DeviceString, InStr(1, DD.DeviceString, Chr$(0)) - 1)
        Me.Print "Device Name:" + Left$(DD.DeviceName, InStr(1, DD.DeviceName, Chr$(0)) - 1)
        Me.Print "Device Key:" + Left$(DD.DeviceKey, InStr(1, DD.DeviceKey, Chr$(0)) - 1)
        Me.Print "Device ID:" + Left$(DD.DeviceID, InStr(1, DD.DeviceID, Chr$(0)) - 1)
    Else
        Me.Print "Ошибка при получении информации"
    End If
End Sub

Смотри также

EnumDisplaySettings

Категория

Устройства