Visual Basic FAQ

Как скрыть панель задач?

Option Explicit

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
Dim hPanel As Long

Private Sub Command1_Click()
hPanel = FindWindow("Shell_traywnd", "")
Call SetWindowPos(hPanel, 0, 0, 0, 0, 0, SWP_HIDEWINDOW)
End Sub

Private Sub Command2_Click()
hPanel = FindWindow("Shell_traywnd", "")
Call SetWindowPos(hPanel, 0, 0, 0, 0, 0, SWP_SHOWWINDOW)
End Sub

Запись опубликована on 29.10.2008 at 10:00 и размещена в рубрике: Windows. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.