如何隐藏任务条上的一个程序？

ShowWindow YourHwnd, SW_HIDE

解决方案 »

  1.   

    YourHwnd= FindWindow(sTrayWindow, vbNullString)
    YourHwnd= FindWindowEx(YourHwnd, 0, sAppSwitchBar, vbNullString)
    YourHwnd= FindWindowEx(YourHwnd, 0, sAppSwitch, vbNullString)
    ShowWindow YourHwnd, SW_HIDE
      

  2.   

    http://www.wzjcw.net/vbgood/taishan/index.html
    011 HideIt 隐藏开始按扭、任务栏、写入启动、禁用桌面、重新启动......
      

  3.   

    首先在一个模块中做如下声明：Public Const SW_HIDE = 0
    Public Const GW_OWNER = 4
    Declare Function GetWindow Lib "user32" Alias "GetWindow" (ByVal hwnd As _
    Long, ByVal wCmd As Long) As Long
    Declare Function ShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd _
    As Long, ByVal nCmdShow As Long) As Long 将下面的代码添加到窗体的Load事件中：Dim rc As Long
    Dim OwnerhWnd As Long'让窗体不可见
    Me.Visible = False
    '从任务管理器列表中移除
    OwnerhWnd = GetWindow(Me.hWnd, GW_OWNER)
    rc = ShowWindow(OwnerhWnd, SW_HIDE)
    : )