XProfan

Título de la ventana "SystemParametersInfo sin Headerfiles"
Font 2:randomize:Cls rnd(8^8)' El übliche Spielerei
Declarar RECT#:Struct RECT = Left&,Top&,Right&,Bottom&:Dim RECT#, RECT
Externo("user32.dll","SystemParametersInfoA", 48, 0,rect#, 0)
imprimir RECT#.Left&;",";RECT#.Top&;" - ";RECT#.Right&;" x ";RECT#.Bottom&

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

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

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

Proc CreateWorkAreaWindow

    parámetros WinTitle$,WinStyle&
    Declarar Rect#:Dim Rect#,16
    Título de la ventana WinTitle$:Windowstyle WinStyle&
    DEF SysParameterInfo(4)!"user32","SystemParametersInfoA"
    SysParameterInfo(48,0,Rect#,0)
    wax&=Largo(Rect#,0)
    way&=Largo(Rect#,4)
    wah&=Largo(Rect#,8)
    wab&=Largo(Rect#,12)
    Disponer Rect#
    Ventana wax&,way&-wah&,wab&

ENDPROC