FUNCTION Disable_Ctrl_Esc(SPI_SCREENSAVERUNNING) SPI_SCREENSAVESTATUS=SPI_SCREENSAVERUNNING DECLARE LONG SystemParametersInfo IN WIN32API LONG, LONG, LONG, LONG =SystemParametersInfo( 97,SPI_SCREENSAVESTATUS, 1, 0) RETURN ENDFUNC
FUNCTION HideTaskBar(TaskBarHidden) TaskBarStatus=TaskBarHidden #DEFINE SW_NORMAL 1 #DEFINE SW_HIDE 0 DECLARE LONG ShowWindow IN WIN32API LONG , LONG DECLARE LONG FindWindow IN WIN32API STRING, STRING hWnd=FindWindow("Shell_TrayWnd","") IF hWnd=0 RETURN ELSE lngState=IIF(TaskBarStatus, SW_HIDE, SW_NORMAL) =ShowWindow(hWnd,lngState) ENDIF ENDFUNC