高分求救,在任务栏里怎么隐藏我的应用程序图标?
除了把窗口的ＳhowInTaskBar的属性设为false,还有什么办法可以在任务栏里隐藏我的应用程序图标啊，急啊～～～～～～ 问题点数：100、回复次数：1Top
1 楼wxy_xiaoyu（猪是的看来过倒）回复于 2003-08-01 17:12:18 得分 100
任务栏??
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 Long
Private Const GWL_EXSTYLE As Long = (-20)
Private Const WS_EX_APPWINDOW As Long = &H40000
Private 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 SubTop
