Скрытие и востановление панели задачИсточник: o-stchat
Option Compare Database Option Explicit ' скрытие и востановление панели задач Private Declare Function SetWindowPos Lib "user32" _ Private Const SWP_HIDEWINDOW = &H80 Public Function HideTaskBar() As Boolean IRet = FindWindow("Shell_traywnd", "") IRet = SetWindowPos(IRet, 0, 0, 0, 0, 0, SWP_HIDEWINDOW) Public Function ShowTaskBar() As Boolean IRet = FindWindow("Shell_traywnd", "") IRet = SetWindowPos(IRet, 0, 0, 0, 0, 0, SWP_SHOWWINDOW) ShowTaskBar = IRet > 0
' HideTaskBar Call HideTaskBar ' ShowTaskBar |