TaskBar - Taskbar Messages

Category: Controls - .Techniques

Date: 03-28-2012

Return to Index


 
 
'Credit Semem Matusovski  http://www.powerbasic.com/support/pbforums/showthread.php?t=22744&highlight=Shell_TrayWnd
 
'Compilable Example:
#Compiler PBWin 9, PBWin 10
#Compile EXE
#Register None
#Dim All
#Include "Win32Api.Inc"
 
%TASKBAR_MIN_ALL = 419
%TASKBAR_MIN_ALL_UNDO = 416
%TASKBAR_HIDE = 128
%TASKBAR_UNHIDE = 64
 
Function PBMain
   TaskBar %TASKBAR_HIDE: Sleep 2000
   TaskBar %TASKBAR_UNHIDE: Sleep 2000
   TaskBar %TASKBAR_MIN_ALL : Sleep 2000
   TaskBar %TASKBAR_MIN_ALL_UNDO : Sleep 2000
End Function
 
Sub Taskbar(Op As Long)
   Dim hWnd As Long
   hWnd = FindWindow("Shell_TrayWnd", "")
   If hWnd > 0 Then
      Select Case Op
         Case %TASKBAR_HIDE, %TASKBAR_UNHIDE
            SetWindowPos hWnd, 0, 0, 0, 0, 0, Op
         Case %TASKBAR_MIN_ALL, %TASKBAR_MIN_ALL_UNDO
            SendMessage hWnd, %WM_Command, Op, 0
      End Select
   End If
End Sub
 
'gbs_00810
'Date: 03-10-2012


created by gbSnippets
http://www.garybeene.com/sw/gbsnippets.htm