Merci beaucoup, ça marche !
Malheureusement, dès que le nom change, le programme arrête de réagir : impossible de bouger la fenêtre, au survol les contrôles (fermer/réduire/agrandir) ne se mettent plus en surbrillance, le clic droit sur le tray AutoIT ne provoque rien, un clic sur le menu démarrer non plus - bref c'est l'explorer qui devient tout mou...
Pour fermer, il faut cliquer sur la croix puis attendre plusieurs secondes, et dès que le script est terminé tout revient dans la normale !
C'est bizarre non ?
PS : Voici le code complet :
► Afficher le texte
#region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_UseX64=n
#AutoIt3Wrapper_Res_requestedExecutionLevel=requireAdministrator
#endregion ;**** Directives created by AutoIt3Wrapper_GUI ****
#region Includes
#include <GUIConstantsEx.au3>
#include <GuiStatusBar.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <SQLite.au3>
#include <SQLite.dll.au3>
#endregion Includes
#region translation
; Nothing yet !!!
#endregion translation
Opt("GUIOnEventMode", 1)
#region Global vars
;~ $service=RegRead()
Global $service = "service"
Global $procedure
Global $iniloc = @ScriptDir & "\data\db.ini"
Global $newproc = @YEAR & "/" & @MON & @MDAY & @MIN
Global $mgt = $service & " - Localisation des balises"
#endregion Global vars
maingui()
#region ### START Koda GUI section ###############################################################################################################
Func maingui()
Global $maingui = GUICreate($mgt, 1059, 684, 172, 99)
GUISetOnEvent($GUI_EVENT_CLOSE, "On_Close") ; Call a common GUI close function
GUISetState()
Global $filemenu = GUICtrlCreateMenu("&Fichier")
Global $fmnew = GUICtrlCreateMenuItem("Nouvelle procédure", $filemenu)
Global $fmopen = GUICtrlCreateMenuItem("Ouvrir procédure", $filemenu)
Global $fmsave = GUICtrlCreateMenuItem("Enregistrer", $filemenu)
Global $fmexport = GUICtrlCreateMenu("Exportation", $filemenu)
Global $fmekml = GUICtrlCreateMenuItem("Google Earth (.kml)", $fmexport)
Global $fmeodf = GUICtrlCreateMenuItem("Tableau OpenOffice (.odf)", $fmexport)
Global $fmexls = GUICtrlCreateMenuItem("Tableau Excel (.xls)", $fmexport)
Global $fmetxt = GUICtrlCreateMenuItem("Fichier texte (.txt)", $fmexport)
Global $fmecsv = GUICtrlCreateMenuItem("Fichier CSV (.csv)", $fmexport)
Global $fmquit = GUICtrlCreateMenuItem("Quitter", $filemenu)
Global $balisemenu = GUICtrlCreateMenu("&Balise")
Global $bmloc = GUICtrlCreateMenuItem("Localiser", $balisemenu)
Global $bmtrack = GUICtrlCreateMenuItem("Commencer le tracking", $balisemenu)
Global $bmadd = GUICtrlCreateMenuItem("Ajouter balise", $balisemenu)
Global $bmparam = GUICtrlCreateMenuItem("Réglages de la balise", $balisemenu)
Global $helpmenu = GUICtrlCreateMenu("&Aide")
Global $hmhelp = GUICtrlCreateMenuItem("Aide", $helpmenu)
Global $hmabout = GUICtrlCreateMenuItem("À propos", $helpmenu)
Global $pauuuuuuuuuuuuuuuuuuuuuuuuuuuuuu = GUICtrlCreatePic("", 376, 104, 680, 540)
Global $statusbar = _GUICtrlStatusBar_Create($maingui)
Global $telemetrie = GUICtrlCreateGroup("Etat de la balise/Télémétrie", 0, 0, 1057, 105)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $histo = GUICtrlCreateGroup("Historique", 0, 456, 377, 185)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group3 = GUICtrlCreateGroup("Localisation", 0, 104, 377, 353)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $maingui_AccelTable[5][2] = [["^n", $fmnew],["^o", $fmopen],["^s", $fmsave],["!{F4}", $fmquit],["{F1}", $hmhelp]]
GUISetAccelerators($maingui_AccelTable)
Global $showTestgui = GUICtrlCreateButton("setproc", 10, 60, 80, 30)
GUICtrlSetOnEvent(-1, "setproc")
EndFunc ;==>maingui
#endregion ### END Koda GUI section ###############################################################################################################
While 1
If $procedure <> "" Then
$mgtnew = $service & " - Localisation des balises [" & $procedure & "]" ; (1)
WinSetTitle($maingui, "", $mgtnew) ; (2)
EndIf
WEnd
If Not FileExists($iniloc) Then
_FileCreate($iniloc)
EndIf
Func setproc()
$procedure="Essai"
EndFunc
Func On_Close()
Switch @GUI_WinHandle ; See which GUI sent the CLOSE message
Case $maingui
Exit ; If it was this GUI - we exit <<<<<<<<<<<<<<<
EndSwitch
EndFunc ;==>On_Close
J'ai tout prévu pour avoir plusieurs GUIs à la fois (GUI dans une fonction, de quoi vérifier quelle GUI a envoyer le message de fermeture), c'est peut-être le problème ?
