Screensaver parameters

BlitzMax Forums/BlitzMax Programming/Screensaver parameters

Yan
 #1
"/c", "-c" or ""...
If appargs.length = 1
	AppArgs = AppArgs[..2]
	AppArgs[1] = "/c"
EndIf

Select AppArgs[1].ToLower()[..2]
	Case "/s", "-s"
		Local oldState ' (Win9x only)
		SystemParametersInfo(SPI_SETSCREENSAVERRUNNING, True, oldState, 0) ' (Win9x only)
		If oldstate Then Return ' (Win9x only) untested
						
		DoFullScreen()
				
		SystemParametersInfo(SPI_SETSCREENSAVERRUNNING, False, oldState, 0) ' (Win9x only)
				
	Case "/c", "-c"
		DoConfig()
		
	Case "/a", "-a"
		'Start password verification (Win9x only)
				
	Case "/p", "-p", "/l", "-l"
		DoPreviewWindow()
				
End Select