[Nim] Multi-Monitor-Auswahl

#include <Array.au3>
#include <WinAPIGdi.au3>

Global $aData = _CheckMonitor(), $iX = -1, $iY = -1
If @error Then Exit
_ArrayDisplay($aData, '_WinAPI_EnumDisplayMonitors')
;~ For $i = 1 To $aData[0][0]
;~     If $aData[$i][3] >= 1920 And $aData[$i][4] >= 1080 Then
;~         $iX = $aData[$i][1]
;~         $iY = $aData[$i][2]
;~         ExitLoop
;~     EndIf
;~ Next
;~ If $iX = -1 Then Exit
;~ ConsoleWrite(StringFormat('X: %i   Y: %i\n', $iX, $iY))

Func _CheckMonitor()
    Local $aPos, $aData = _WinAPI_EnumDisplayMonitors()
    If IsArray($aData) Then
        ReDim $aData[$aData[0][0] + 1][5]
        For $i = 1 To $aData[0][0]
            $aPos = _WinAPI_GetPosFromRect($aData[$i][1])
            For $j = 0 To 3
                $aData[$i][$j + 1] = $aPos[$j]
            Next
        Next
        Return SetError(0, 0, $aData)
    Else
        Return SetError(1, 0, 0)
    EndIf
EndFunc

include winim/[inc\winuser]

var
  aRect: array[0..3, array[0..3, int]]
  iCount: int = 0

proc MyInfoEnumProc(hMonitor: HMONITOR,hDC: HDC,rect: LPRECT,lparam: LPARAM): WINBOOL {.stdcall.} =
  aRect[iCount][0] = rect.left
  aRect[iCount][1] = rect.top
  aRect[iCount][2] = rect.right
  aRect[iCount][3] = rect.bottom
  iCount += 1
  return TRUE

var 
  lpfnenum = MyInfoEnumProc        # callbackfunktion
  data: LPARAM
let 
  dcScreen = GetDC(0)              # DC Desktop

EnumDisplayMonitors(dcScreen, nil, lpfnenum, data)

ReleaseDC(0, dcScreen)

for i in 0..iCount - 1:
  echo "Display " & $i
  echo aRect[i][0]
  echo aRect[i][1]
  echo aRect[i][2]
  echo aRect[i][3]

include winim/[inc\winuser]
import strutils

# globale Variablen, um die Werte zu speichern
var
    aDispInfo: array[0..5, array[0..6, int]] # 0..5 = max. 6 Monitore
    iDispCount: int

# Callback-Funktion (wird einmal pro angeschlossenen Monitor aufgerufen)
proc MyEnumProc(hMonitor: HMONITOR,hDC: HDC,rect: LPRECT,lparam: LPARAM): WINBOOL {.stdcall.} =
    if iDispCount >= aDispInfo.len - 1: return FALSE # damit kein "out of bounds" auftritt
    aDispInfo[iDispCount][0] = hMonitor
    aDispInfo[iDispCount][1] = rect.left
    aDispInfo[iDispCount][2] = rect.top
    aDispInfo[iDispCount][3] = rect.right
    aDispInfo[iDispCount][4] = rect.bottom
    aDispInfo[iDispCount][5] = rect.right - rect.left # = width
    aDispInfo[iDispCount][6] = rect.bottom - rect.top # = height
    inc(iDispCount)
    return TRUE

iDispCount = 0
EnumDisplayMonitors(0, nil, MyEnumProc, 0)

# Debugausgabe:
for i in 0..iDispCount - 1:
    echo "Display: " & $i
    echo "Handle: 0x" & toHex(aDispInfo[i][0])
    echo "Left: " & $aDispInfo[i][1]
    echo "Top: " & $aDispInfo[i][2]
    echo "Right: " & $aDispInfo[i][3]
    echo "Bottom: " & $aDispInfo[i][4]
    echo "Resolution: " & $aDispInfo[i][5] & " x " & $aDispInfo[i][6]

include winim/[inc\winuser]

# Monitor-Objekt definieren (zum speichern der Werte)
type oMonitor = object
  hMon: HMONITOR
  pos: (int, int)
  size: (int, int)

# Eine Sequenz (var. Array), um die Monitor-Objekte zu speichern
var aDispInfo = newSeq[oMonitor]()

# Callback-Funktion (wird einmal pro angeschlossenen Monitor aufgerufen)
proc myEnumProc(hMonitor: HMONITOR,hDC: HDC,rect: LPRECT,lparam: LPARAM): WINBOOL {.stdcall.} =
  aDispInfo.add(
    oMonitor(hMon: hMonitor,
            pos: (int(rect.left), int(rect.top)),
            size: (int(rect.right - rect.left), 
                   int(rect.bottom - rect.top))
            ))
  return TRUE

# Hiermit werden die Monitordaten geholt
EnumDisplayMonitors(0, nil, myEnumProc, 0)

# Debugausgabe von allen angeschlossenen Monitoren
for i, oDisp in aDispInfo:
  echo "Display: " & $i
  echo oDisp