Как спрятать панель задач Windows

Cпрятать панель задач Windows можно следующим образом:

loc:ClassName  SCtring( 100 )
loc:Null       SCtring( 1 )     
HideTaskBar  ROUTINE  ! Спрятать панель задач
!==========================================================
  loc:ClassName = 'Shell_TrayWnd'
  loc:Null = ''
  r# = ShowWindow( FindWindow(loc:ClassName, loc:Null), SW_HIDE )  ! делаем невидимым
  exit

ShowTaskBar  ROUTINE
!==========================================================
  loc:ClassName = 'Shell_TrayWnd'
  loc:Null = ''
  r# = ShowWindow( FindWindow(loc:ClassName, loc:Null), SW_SHOW )   ! делаем видимым
  exit

В точку вставки 'After Global INCLUDEs'  надо включить объявления:
! Команды  ShowWindow
SW_HIDE             Equate(0)
SW_SHOWNORMAL       Equate(1)
SW_NORMAL           Equate(1)
SW_SHOWMINIMIZED    Equate(2)
SW_SHOWMAXIMIZED    Equate(3)
SW_MAXIMIZE         Equate(3)
SW_SHOWNOACTIVATE   Equate(4)
SW_SHOW             Equate(5)
SW_MINIMIZE         Equate(6)
SW_SHOWMINNOACTIVE  Equate(7)
SW_SHOWNA           Equate(8)
SW_RESTORE          Equate(9)
SW_SHOWDEFAULT      Equate(10)
SW_FORCEMINIMIZE    Equate(11)
SW_MAX              Equate(11)

В точку вставки 'Inside Global Map'  включаем объявления функций:
Module('WinApi32')
  ! Прототипы для HideTaskBar
  ShowWindow(UNSIGNED,SIGNED),SIGNED,PASCAL
  FindWindow( *CSTRING lpClassName, *CSTRING lpWindowName ), HANDLE, RAW, Pascal, Name('FindWindowA')
End

Hosted by uCoz