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()
KompilierenMarcaSeparación
DEF SysParameterInfo(4) ! user32,SystemParametersInfoA
Declarar WX%,WY%,WL%,WB%

Proc workarea

    Declarar Rect#
    Dim Rect#,16
    SysParameterInfo(48,0,Rect#,0)
    let wx%=Largo(Rect#,0)
    let wy%=Largo(Rect#,4)
    let wl%=Largo(Rect#,8)
    let wb%=Largo(Rect#,12)
    Disponer Rect#

ENDPROC

workarea()

Gruss de  Bangkok

Dieter