All pastes #897331 Raw Edit

Anonymous

public text v1 · immutable
·published 2008-02-09 13:50 UTC
rendered paste body
#include <GUIConstants.au3>
#NoTrayIcon
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Language", 410, 242, 303, 219, BitOR($WS_CAPTION,$WS_BORDER,$WS_CLIPSIBLINGS))
$Button1 = GUICtrlCreateButton("English", 8, 80, 393, 33, 0)
$Button2 = GUICtrlCreateButton("François", 8, 120, 393, 33, 0)
$Button3 = GUICtrlCreateButton("Deutsch", 8, 160, 393, 33, 0)
$Button4 = GUICtrlCreateButton("Exit/Sortie/Ausgang", 250, 200, 150, 33, 0)
$Label1 = GUICtrlCreateLabel("http://www.creaturesdisk.net.ms", 8, 216, 159, 17)
$Label2 = GUICtrlCreateLabel("Creatures Community Disk v2.0", 8, 200, 180, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Pic1 = GUICtrlCreatePic("langbanner.bmp", 0, 0, 410, 73, BitOR($SS_NOTIFY,$WS_GROUP))
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Button1
			Run("english.exe")
			Exit
		Case $Button2
			Run("french.exe")
			Exit
		Case $Button3
			Run("german.exe")
			Exit
		Case $Button4
			Exit
	EndSwitch
WEnd