XProfan

Titre de la fenêtre "SystemParametersInfo sans Headerfiles"
Font 2:randomize:Cls rnd(8^8)' qui übliche Spielerei
Déclarer RECT#:Struct RECT = Left&,Top&,Right&,Bottom&:Faible RECT#, RECT
Externe("user32.dll","SystemParametersInfoA", 48, 0,rect#, 0)
imprimer RECT#.Left&;»;RECT#.Top&;" - ";RECT#.Right&;" x ";RECT#.Bottom&

With RECT#:Fenêtre .Left&,.Top& - .Right&,.Bottom&:EndWith

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

CLS
Begin:
Déclarer wax&,way&, wah&,wab&
CreateWorkAreaWindow("WorkArea Window",24)
imprimer "\n",wax&,way&,"-",wah&,wab&
WaitInput
Fin

Proc CreateWorkAreaWindow

    parameters WinTitle$,WinStyle&
    Déclarer Rect#:Faible Rect#,16
    Titre de la fenêtre 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#
    Fenêtre wax&,way&-wah&,wab&

ENDPROC