Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Hiding the system tray
Message
General information
Forum:
Visual FoxPro
Category:
Windows API functions
Miscellaneous
Thread ID:
00727967
Message ID:
00728229
Views:
10
This functions could help
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
By two common phrases in his vocabulary, we know Hercule Poirot was a great Developer: his use of "the little grey cells" and "order and method".
Previous
Reply
Map
View

Click here to load this message in the networking platform