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