Fjerna program fra task bar i runtime

[Richard87]

hvordan kan jeg fjerne et programm fra task baren(fjerne knappen for vinduet mitt på siden av start-menyen) i runtime?

[aadnk]

Du kan benytte følgende kode:

 

Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Const WS_EX_APPWINDOW As Long = &H40000
Private Const SW_SHOW = 5
Private Const SW_HIDE = 0
Private Const GWL_EXSTYLE = (-20)
Private Const WS_EX_TOOLWINDOW = &H80&

Public Sub SetShowInTaskbar(Visible As Boolean, hwnd As Long)

   ' Først, skjul vinduet
   ShowWindow hwnd, SW_HIDE
   DoEvents
   
   ' Dernest, sett egenskapene til vinduet
   SetWindowLong hwnd, GWL_EXSTYLE, IIf(Visible, WS_EX_APPWINDOW, WS_EX_TOOLWINDOW)
   DoEvents
   
   ' Vis vinduet atter igjen
   ShowWindow hwnd, SW_SHOW

End Sub

 

Du kaller den således:

 

SetShowInTaskbar False, Me.hwnd