Page 1 of 1
TaskBar Information straight forward [Windows]
Posted: Mon Jan 06, 2020 4:08 pm
by RASHAD
Hi guys
I do not want to hijack Tenaja thread
Code: Select all
info.APPBARDATA
info\cbSize = SizeOf(info)
autoHide = SHAppBarMessage_(#ABM_GETSTATE,@info)
If autoHide = 1
Debug "AutoHide : Active"
Else
Debug "AutoHide : Not Active"
EndIf
SHAppBarMessage_(#ABM_GETTASKBARPOS,@info)
Debug "Left : "+Str(info\rc\left)
Debug "Right : "+Str(info\rc\right)
Debug "Top : "+Str(info\rc\top)
Debug "Bottom : "+Str(info\rc\bottom)
align = info\uEdge
Select align
Case 0
Debug "Aligned : Left"
Case 1
Debug "Aligned : Top"
Case 2
Debug "Aligned : Right"
Case 3
Debug "Aligned : Bottom"
EndSelect
If autoHide = 1
autoHideHandle = SHAppBarMessage_(#ABM_GETAUTOHIDEBAR,@info)
Debug autoHideHandle
EndIf
Re: TaskBar Information straight forward [Windows]
Posted: Tue Jan 07, 2020 11:32 am
by Kwai chang caine
Works nice here
Thanks for sharing RASHAD
Re: TaskBar Information straight forward [Windows]
Posted: Fri Jan 10, 2020 6:29 pm
by Tenaja
RASHAD wrote:Hi guys
I do not want to hijack Tenaja thread
Code: Select all
info.APPBARDATA
info\cbSize = SizeOf(info)
autoHide = SHAppBarMessage_(#ABM_GETSTATE,@info)
If autoHide = 1
Debug "AutoHide : Active"
Else
Debug "AutoHide : Not Active"
EndIf
SHAppBarMessage_(#ABM_GETTASKBARPOS,@info)
Debug "Left : "+Str(info\rc\left)
Debug "Right : "+Str(info\rc\right)
Debug "Top : "+Str(info\rc\top)
Debug "Bottom : "+Str(info\rc\bottom)
align = info\uEdge
Select align
Case 0
Debug "Aligned : Left"
Case 1
Debug "Aligned : Top"
Case 2
Debug "Aligned : Right"
Case 3
Debug "Aligned : Bottom"
EndSelect
If autoHide = 1
autoHideHandle = SHAppBarMessage_(#ABM_GETAUTOHIDEBAR,@info)
Debug autoHideHandle
EndIf
Thanks for sharing updates!