Code : Tout sélectionner
;
; adapté depuis winapi library
; http://www.rsbasic.de
; raysiegl[at.]@gmail.com
; par case.
;
SHAppBarMessage_(#ABM_GETTASKBARPOS,Taskbar.APPBARDATA)
SystemParametersInfo_(#SPI_GETWORKAREA,0,@DesktopWorkArea.RECT,0)
Select Taskbar\uEdge
Case #ABE_BOTTOM
Debug "taskbar en bas (" + Str(GetSystemMetrics_(#SM_CYSCREEN) - DesktopWorkArea\bottom)+" pixels de haut)"
Case #ABE_LEFT
Debug "taskbar a gauche (" + Str(DesktopWorkArea\left )+" pixels de large)"
Case #ABE_RIGHT
Debug "taskbar a droite (" + Str(GetSystemMetrics_(#SM_CXSCREEN) - DesktopWorkArea\right )+" pixels de large)"
Case #ABE_TOP
Debug "taskbar en haut (" + Str(DesktopWorkArea\top)+" pixels de haut)"
EndSelect