如何讓別的應用不在任務欄顯示呢？？
xp和win7
uj5u.com熱心網友回復：
主視窗屬性里面有ShowInTaskBar設為Falseuj5u.com熱心網友回復：
Option Explicit
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 Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
Private Const SW_SHOW = 5
Private Const SW_HIDE = 0
Private Const GWL_EXSTYLE = (-20)
Private Const WS_EX_APPWINDOW = &H40000
Private Const WS_EX_TOOLWINDOW = &H80
Public Sub ShownInTaskBar(ByVal hWnd As Long, Optional bShow As Boolean = True)
Dim lExStyles As Long
lExStyles = GetWindowLong(hWnd, GWL_EXSTYLE)
ShowWindow hWnd, SW_HIDE
SetWindowLong hWnd, GWL_EXSTYLE, IIf(bShow, lExStyles And WS_EX_APPWINDOW, lExStyles Xor WS_EX_TOOLWINDOW)
ShowWindow hWnd, SW_SHOW
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/95292.html
標籤：API
上一篇：誰有vb的實體給我共享一下吧
下一篇：VBA使用WMI得到計算機的資訊