XProfan

Window Title "SystemParametersInfo without Headerfiles"
Font 2:randomize:Cls rnd(8^8)' The übliche Spielerei
Declare RECT#:Struct RECT = Left&,Top&,Right&,Bottom&:Dim RECT#, RECT
External("user32.dll","SystemParametersInfoA", 48, 0,rect#, 0)
print RECT#.Left&;",";RECT#.Top&;" - ";RECT#.Right&;" x ";RECT#.Bottom&

With RECT#:Window .Left&,.Top& - .Right&,.Bottom&:EndWith

    Print "https://msdn.microsoft.com/en-us/library/ms724947%28v=vs.85%29.aspx"
    WaitInput :Dispose RECT#:End

CLS
Begin:
Declare wax&,way&, wah&,wab&
CreateWorkAreaWindow("WorkArea Window",24)
print "\n",wax&,way&,"-",wah&,wab&
WaitInput
End

Proc CreateWorkAreaWindow

    parameters WinTitle$,WinStyle&
    Declare Rect#:Dim Rect#,16
    Window Title WinTitle$:Windowstyle WinStyle&
    DEF SysParameterInfo(4)!"user32","SystemParametersInfoA"
    SysParameterInfo(48,0,Rect#,0)
    wax&=Long(Rect#,0)
    way&=Long(Rect#,4)
    wah&=Long(Rect#,8)
    wab&=Long(Rect#,12)
    Dispose Rect#
    Window wax&,way&-wah&,wab&

ENDPROC