XProfan

Window 0 , 0 - %MaxX , %MaxY

Window 0 , 0 - %MaxX , (%MaxY-1)

Window 0 , 0 - %MaxX , (%MaxY-30)

Def SHTaskbarheight(2) !SHELL32,SHAppBarMessage

Proc GetTaskbarHeight

    Declare result&,Taskbar#
    Dim Taskbar#,36
    Clear Taskbar#
    Long Taskbar#,0=36
    SHTaskbarheight(5,Taskbar#)
    Let result&=Long(Taskbar#,28)
    Let result&=result& - Long(Taskbar#,20)
    Dispose Taskbar#
    Return result&

EndProc

Beispiel:
cls
Print GetTaskBarHeight()
KompilierenMarkierenSeparieren
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()

Gruss aus  Bangkok

Dieter