Code : Tout sélectionner
#include <EditConstants.au3>
#include <GUIConstants.au3>
#include<misc.au3>
#include <WindowsConstants.au3>
Opt("GUIOnEventMode", 1)
Global $opt, $meth, $exe, $savedir, $methode
$dir = @ScriptDir & "\launcher\"
$ini = $dir & "launcher.ini"
If _IsPressed("10") Then ; Shift Save but don't play
$opt = 1
ElseIf _IsPressed("11") Then ; Ctrl
$opt = 2
Else
$opt = 0
EndIf
If Not FileExists($dir) Then
DirCreate($dir)
EndIf
If Not FileExists($ini) Then
Form()
EndIf
; Fonctions reliées au form.
Func Form()
$Form1 = GUICreate("Form1", 268, 311, 193, 125, Default, $WS_EX_ACCEPTFILES)
GUISetOnEvent($GUI_EVENT_CLOSE, "quit")
GUISetOnEvent($GUI_EVENT_DROPPED, "test")
$Label1 = GUICtrlCreateLabel("Éxécutable à surveiller", 32, 16, 137, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$exe = GUICtrlCreateInput(@ScriptDir & "\", 32, 40, 145, 21, $GUI_SS_DEFAULT_INPUT, $WS_EX_ACCEPTFILES)
GUICtrlSetState($exe, $GUI_DROPACCEPTED)
$Button1 = GUICtrlCreateButton("...", 184, 40, 41, 17, 0)
GUICtrlSetOnEvent(-1, "input_exe")
$Label2 = GUICtrlCreateLabel("Répertoire par défaut de la sauvegarde", 32, 72, 227, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$savedir = GUICtrlCreateInput("", 32, 96, 145, 21, $GUI_SS_DEFAULT_INPUT, 0x00000010)
$Button2 = GUICtrlCreateButton("...", 184, 96, 41, 17, 0)
GUICtrlSetOnEvent(-1, "input_save")
GUICtrlSetState($savedir, $GUI_DROPACCEPTED)
$Label4 = GUICtrlCreateLabel("Méthode de fonctionnement", 32, 121, 162, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$methode = GUICtrlCreateCombo("0", 32, 144, 73, 25, 0x0003)
GUICtrlSetData(-1, "1", "0")
GUICtrlSetOnEvent($methode, "methode")
$description = GUICtrlCreateLabel("0 = Récupère la sauvegarde lorsque vous" & @CRLF & "quitterez l'application." & @CRLF & @CRLF & "1 = Récupère la sauvegarde au lancement " & @CRLF & "de l'application", 32, 170)
$Button3 = GUICtrlCreateButton("Sauvergarder les modifications", 32, 264, 161, 41, 0)
GUICtrlSetOnEvent(-1, "save")
$Button4 = GUICtrlCreateButton("À propos", 208, 264, 57, 41, 0)
GUICtrlSetOnEvent(-1, "about")
GUISetState(@SW_SHOW)
While 1
Sleep(100)
WEnd
EndFunc ;==>Form
Func test()
GUICtrlSetData($savedir, @GUI_DragFile)
ConsoleWrite('-@GUI_DROPID = ' & @GUI_DropId & @CRLF)
ConsoleWrite('-@GUI_DragID = ' & @GUI_DragId & @CRLF)
ConsoleWrite('-@GUI_DragFile = ' & @GUI_DragFile & @CRLF)
EndFunc ;==>test
Func input_exe()
$fsf = FileSelectFolder("Veuillez sélectionner l'exécutable de l'application", @ScriptDir, 7)
GUICtrlSetData($exe, $fsf)
EndFunc ;==>input_exe
Func input_save()
$fsf = FileSelectFolder("Veuillez sélectionner le répertoire où l'application effectue sa sauvegarde", "", 7)
GUICtrlSetData($savedir, $fsf)
EndFunc ;==>input_save
Func methode()
$meth = GUICtrlRead($methode)
EndFunc ;==>methode
Func save()
EndFunc ;==>save
Func about()
EndFunc ;==>about
Func quit()
Exit
EndFunc ;==>quit
