Declare Function ScreenList ( ByVal depth As Integer = 0 ) As Integer

result = ScreenList( [ depth ] )

depth

возвращает 0, когда нет более читаемых разрешений.

Это работает как функция Dir: первый вызов функции требует параметр depth для указания, он возвращает низкое поддерживаемое разрешение для запрашиваемой глубины. Дальнейшие вызовы ScreenList без аргументов возвращают следующие разрешения. Когда разрешения более не доступны, ScreenList вернет 0.

Результат ScreenList кодируется в значение Integer : ширина экрана в High Word(старшее слово) , а высота в Low Word(младшее слово).

Поддерживаемые разрешения возвращаются от низшего к высшему.

Можно с уверенностью вызывать эту функцию перед установкой любого графического режима.

Dim As Integer mode, w, h

Print "Resolutions supported at 8 bits per pixel:"

mode = ScreenList(8)
While (mode <> 0)
    w = HiWord(mode)
    h = LoWord(mode)
    Print w & "x" & h
    mode = ScreenList()
Wend

• Не доступно в диалекте -lang qb , но есть псевдоним __Screenlist.
  
  

• New to FreeBASIC
  
  

• Screen
  
• ScreenRes