Shutdown and restart your program or visit a webpage

This code has been declared by its author to be Public Domain code.

Shutdown and restart your program or visit a webpage by Zethrax

2015

*** Blitz3D Code ***

Code shows how to do a shutdown and restart of your program to apply graphics changes, visit a webpage or shell execute a program on exit, etc. Also shows how to get the executable path, including the exe filename.

*** To test this code, compile it as an executable. ***

This code shows how to restart a program executable. This can be useful to apply graphics changes that require a program restart (assuming the preference settings for those changes have been saved and will be loaded and applied on restart).

The code also shows how to open a web-page URL in the user's default browser on shutdown. This can be useful if you want to give the user the option to visit the home-page for your program, or if your game contains advertising that the user can click on to shutdown the program and go to the ad's web-page.

REQUIRES:-
Userlib 'kernel32.decls' decls file for 'Kernel32.dll' - http://www.blitzbasic.com/codearcs/codearcs.php?code=1180




; *** To test this code, compile it as an executable. ***



; This code shows how to restart a program executable. This can be useful to apply graphics changes that require a program restart (assuming the preference settings for those changes have been saved and will be loaded and applied on restart).

; The code also shows how to open a web-page URL in the user's default browser on shutdown. This can be useful if you want to give the user the option to visit the home-page for your program, or if your game contains advertising that the user can click on to shutdown the program and go to the ad's web-page.



Function GetAppFilepath$()
	; Gets and returns the absolute filepath of the Blitz program executable enclosed in quotes.
	; Note that 'api_GetCommandLine' appears to reliably return the filepath of the executable enclosed in quote marks.	

	; REQUIRES:-
	; - Userlib 'kernel32.decls' decls file for 'Kernel32.dll' - <a href="http://www.blitzbasic.com/codearcs/codearcs.php?code=1180" target="_blank">http://www.blitzbasic.com/codearcs/codearcs.php?code=1180</a>

	value$ = api_GetCommandLine()
	If Len( value$ ) < 3 Then Return "" ; If there's not at least two characters in there for some reason then our code could have problems, so return with an empty string.
	
	s = Instr( value$, Chr( 34 ), 1 )
	l = ( Instr( value$, Chr( 34 ), s + 1 ) - s ) + 1
	
	Return Mid( value$, s, l )
End Function



Function EndProgram( value$ = "" )
	; Ends the program.	
	; If 'value$' is not an empty string then the function will call 'EndGraphics' and then shell execute the string value before ending the program. Note that if the string value contains any spaces then it should be wrapped in quote marks 'Chr( 34 )'.
	; Note that 'EndGraphics' is necessary in the code below as fullscreen mode and windowed modes 6 and 7 will auto-suspend the program when it loses focus, which will prevent it from shutting down.
	; Any code required to save game-state, preferences, etc should go before the ';==========' line.


	; Do all necessary save and other pre-shutdown operations here.
	
	; At this point everything that needs to be done before the shutdown is carried out should have been done.


	;==========

	; If 'value$' is not an empty string then call 'EndGraphics' (prevents auto-suspend on loss of focus from causing issues) and then shell execute the string value. Note that if the string value contains any spaces then it should be wrapped in quote marks 'Chr( 34 )'.
	If value$ <> ""		
			EndGraphics
			ExecFile value$
	EndIf
	
	End ; End the program.
End Function



; === EXAMPLE USAGE ===


Print "Press the 'Backspace' key to restart the program."
Print
Print "Press the 'Enter' key to open 'BlitzBasic.Com'"
Print "in your browser."
Print
Print "Press the 'Escape' key to quit the program."
Print
Print

Repeat
	If KeyHit( 14 )
		Print "Restarting in five seconds."
		Delay 1000
		Print "Restarting in four seconds."
		Delay 1000
		Print "Restarting in three seconds."
		Delay 1000
		Print "Restarting in two seconds."
		Delay 1000
		Print "Restarting in one second."
		Delay 1000
		EndProgram GetAppFilepath$()
	EndIf

	If KeyHit( 28 )
		EndProgram "http://www.blitzbasic.com/"
	EndIf
	
	Delay 20
Until KeyHit( 1 )

EndProgram

The code can be found at: http://www.blitzbasic.com/codearcs/codearcs.php?code=3185

Comments

Guy Fawkes

2015

Nice, but for me, it just counts down to 0 & closes when trying to restart. :/

BlitzSupport

2015

Did you build as executable?

Works well here!

Guy Fawkes

2015

Works now! Thanks, @Blitz!

dna

2015

Hello.

I get the error:
api_GetCommandLine() not found for some reason.

** I see. I forgot the kernel32.decls file.

*** I hate to seem like an Idiot but I'm using B3D. Does this only work with B2D?

Zethrax

2015

I haven't tested it with BlitzPlus but it would likely work with that. It's pretty simple code so you should be able to adapt it to work with other Windows based languages.

Code Archives Forum