If (DirExists ( "Storage Card\Track" ))

	Rename ( "Storage Card\Tracks", "Storage Card\NoTracks" )


	If (RegKeyExists ( "HKCU","Software","Tracking" )
		RegDelete ( "HKCU","Software","Tracking" )

	Endif

	If (Question( "Zur Deaktivierung der Tracking-Funktion muß GoPal neu gestartet werden. Soll GoPal neu gestartet werden?", "Neustart erforderlich" ))
		Kill GoPal
		SleepMessage (7, "GoPal wird neu gestartet. Dies kann einen Augenblick dauern ...","Bitte warten..." )
		Run \My Flash Disk\Programme\Koordinaten\koord465.exe, Window=0 SendKey=\l|


	Else
	       	Message ( "Das Tracking wird erst beim nächsten Neustart von GoPal deaktiviert!", "Achtung!" ) 

	Endif

Else

	If(DirExists ( "Storage Card\NoTracks" )

		Rename ( "Storage Card\NoTracks", "Storage Card\Tracks" )
		Message ( "Das Tracking wurde aktiviert!", "Tracking aktiv..." )

		If (RegKeyExists ( "HKCU","Software","Tracking" )
		Else
			RegWriteString ( "HKCU","Software","Tracking" )
		Endif

	Else
		MkDir ( "Storage Card\Tracks" )
		Message ( "Das Tracking wurde aktiviert!", "Tracking aktiv..." )
		If (RegKeyExists ( "HKCU","Software","Tracking" )
		Else
			RegWriteString ( "HKCU","Software","Tracking" )
		Endif


	Endif
Endif