[*]Profan

DEF SysParameterInfo(4) ! user32,SystemParametersInfoA
Declare WX%,WY%,WL%,WB%

Proc workarea

    Declare Rect#
    Dim Rect#,16
    SysParameterInfo(48,0,Rect#,0)
    let wx%=Long(Rect#,0)
    let wy%=Long(Rect#,4)
    let wl%=Long(Rect#,8)
    let wb%=Long(Rect#,12)
    Dispose Rect#

endproc

workarea(2>)