暗黑三卡顿:xp下如何彻底隐藏任务栏

来源:百度文库 编辑:高考问答 时间:2024/04/29 11:23:59
我是要让任务栏一直保持隐藏,开机就自动彻底隐藏
不是那种要点热键之类的

自已写代码吧,这里有VB代码,供你参考!
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Const SWP_HIDEWINDOW = &H80 '隐藏视窗
Const SWP_SHOWWINDOW = &H40 '显示视窗

'在程序中若要隐藏任务栏

Private Sub Command1_Click()
Dim Thwnd As Long
Thwnd = FindWindow("Shell_traywnd", "")
Call SetWindowPos(Thwnd, 0, 0, 0, 0, 0, SWP_HIDEWINDOW)
End Sub

'在程序中若要再显示任务栏

Private Sub Command2_Click()
Dim Thwnd As Long
Thwnd = FindWindow("Shell_traywnd", "")
Call SetWindowPos(Thwnd, 0, 0, 0, 0, 0, SWP_SHOWWINDOW)
End Sub

你是什么操作系统啊,是XP的话在任务栏上点属性 ,选择自动隐藏任务栏,只要你的鼠标不放在任务栏上 就可以隐藏了哈!~~~~~~~~~~~~~~~~`