显示、隐藏win95任务栏

显示、隐藏win95任务栏2009-10-06

Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
 （ByVal lpClassName As String, ByVal lpWindowName As String） As Long
Declare Function ShowWindow Lib "user32" Alias "ShowWindow" _
 （ByVal hwnd As Long, ByVal nCmdShow As Long） As Long
Public Const SW_SHOW = 5
Public Const SW_HIDE = 0
Private hwnd5 as Long
hwnd5 = FindWindow（"Shell_traywnd",""）
Call ShowWindow（hwnd5, SW_HIDE） "隐藏任务栏
Call ShowWindow（hwnd5, SW_SHOW） "显示任务栏

这不是一个好的方式，如果您将任务栏隐藏了，但没有将之显示，那我们只有重新开机才能使之重新出现，当使用者发现叫不出任务栏时，他可能会很生气。