#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=Keyboard.ico
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_Res_Description=Gestion du bouton CLAVIER
#AutoIt3Wrapper_Res_Fileversion=1.0.0.0
#AutoIt3Wrapper_Res_LegalCopyright=Ethneldryt
#AutoIt3Wrapper_Res_Language=1036
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

#NoTrayIcon

If $CmdLine[0] == 1 Then
	If $CmdLine[1] == "-start" Then
		$key = "0"
		IniWrite(@AppDataDir & "\ArchosKey.ini","ArchosKey","Start","1")
		HotKeySet("{SCROLLLOCK}","_Clic")
		While 1
			If IniRead(@AppDataDir & "\ArchosKey.ini","ArchosKey","Stop","0") == "1" Then
				IniWrite(@AppDataDir & "\ArchosKey.ini","ArchosKey","Stop","0")
				IniWrite(@AppDataDir & "\ArchosKey.ini","ArchosKey","Start","0")
				Exit
			EndIf
			Sleep(1000)
		WEnd
	EndIf
Else
	$guiname = "Configuration ArchosKey"
	$gui = GUICreate($guiname,300,80)
	GUICtrlCreateLabel("Configuration",5,5,290,30,0x01)
	GUICtrlSetFont(-1,15,400,4)
	$startup = GUICtrlCreateCheckbox("Lancer au démarrage",5,40,140,25)
	If FileExists(@StartupCommonDir & "\ArchosKey.lnk") Then
		ControlCommand($guiname,"",$startup,"check","")
	EndIf
	$off = GUICtrlCreateButton("Démarrer le service",155,40,140,25)
	$on = GUICtrlCreateButton("Arreter le service",155,40,140,25)
	If IniRead(@AppDataDir & "\ArchosKey.ini","ArchosKey","Start","0") == 1 Then
		ControlHide($gui,"",$off)
	Else
		ControlHide($gui,"",$on)
	EndIf
	GUISetState()
	While 1
		$msg = GUIGetMsg()
		Select
			Case $msg = -3
				Exit
			Case $msg = $off
				ControlShow($gui,"",$on)
				ControlHide($gui,"",$off)
				ShellExecute(@ScriptFullPath,"-start",@ScriptDir)
			Case $msg = $on
				ControlShow($gui,"",$off)
				ControlHide($gui,"",$on)
				IniWrite(@AppDataDir & "\ArchosKey.ini","ArchosKey","Stop","1")
			Case $msg = $startup
				_Startup()
		EndSelect
	WEnd
EndIf
Func _Clic()
	If $key == "0" Then
		Run("osk.exe")
		$key = "1"
	Else
		ProcessClose("osk.exe")
		ProcessClose("msswchx.exe")
		$key = "0"
	EndIf
EndFunc
Func _Startup()
	If FileExists(@StartupCommonDir & "\ArchosKey.lnk") Then
		FileDelete(@StartupCommonDir & "\ArchosKey.lnk")
	Else
		FileCreateShortcut(@ScriptFullPath,@StartupCommonDir & "\ArchosKey.lnk",@ScriptDir,"-start")
	EndIf
EndFunc