高分求救,在任务栏里怎么隐藏我的应用程序图标?

Question

除了把窗口的ＳhowInTaskBar的属性设为false,还有什么办法可以在任务栏里隐藏我的应用程序图标啊，急啊～～～～～～

Answer 1

任务栏??Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex 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 LongPrivate Const GWL_EXSTYLE As Long = (-20)
Private Const WS_EX_APPWINDOW As Long = &H40000Private Sub Form_Click() '点击窗体时看效果
   Static ShowFlags As Boolean
    Dim TempLng As Long
    
    Me.Hide
    
    TempLng = GetWindowLong(Me.hwnd, GWL_EXSTYLE)
    If ShowFlags Then
        TempLng = TempLng Or WS_EX_APPWINDOW
    Else
        TempLng = TempLng And Not WS_EX_APPWINDOW
    End If
    Call SetWindowLong(Me.hwnd, GWL_EXSTYLE, TempLng)
    
    ShowFlags = Not ShowFlags
    
    Me.Show
    
End Sub