XProfan

 $H Windows.ph
Var Nums& = 1
CLS
Externo("User32.dll","EnumDisplayMonitors",~GetDC(0),0,ProcAddr("MonitorProc",4),0)
waitinput
end

Proc MonitorProc

    parámetros hMonitor&,hdcMonitor&,lprcMonitor&,dwData&
    Imprimir "Monitor : "+Str$(Nums&)
    Imprimir Largo(lprcMonitor&,0)
    Imprimir Largo(lprcMonitor&,4)
    Imprimir Largo(lprcMonitor&,8)
    Imprimir Largo(lprcMonitor&,12)
    Imprimir
    Inc Nums&
    ENDPROC$H Windows.ph
    Var Nums& = 1
    CLS
    Externo("User32.dll","EnumDisplayMonitors",~GetDC(0),0,ProcAddr("MonitorProc",4),0)
    waitinput
    end

    Proc MonitorProc

        parámetros hMonitor&,hdcMonitor&,lprcMonitor&,dwData&
        Imprimir "Monitor : "+Str$(Nums&)
        Imprimir Largo(lprcMonitor&,0)
        Imprimir Largo(lprcMonitor&,4)
        Imprimir Largo(lprcMonitor&,8)
        Imprimir Largo(lprcMonitor&,12)
        Imprimir
        Inc Nums&

    ENDPROC