Windows taskbar width+height:
SuperStrict
Const ABM_GETTASKBARPOS:Int = $5
Type APPBARDATA
Field cbSize:Int
Field hwnd:Int
Field uCallbackMessage:Int
Field uEdge:Int
Field _left:Int 'RECT
Field _top:Int
Field _right:Int
Field _bottom:Int
Field lParam:Int
End Type
Extern "win32"
Function SHAppBarMessage:Int(dwMessage:Int , pData:Byte Ptr)
End Extern
Local a:APPBARDATA=New APPBARDATA
SHAppBarMessage(ABM_GETTASKBARPOS , a)
Print "Width: " + (a._right - a._left)
Print "Height: " + (a._bottom - a._top)
|