; V�rifie si le script est d�j� en cours d'ex�cution
; Remarque: L'approche recommand�e est d'utiliser _Singleton de Misc.au3

#include <MsgBoxConstants.au3>

Local $sMyAutoItTitle = "ThisIsSomeUniqueStringThatOtherWindowsWontHave"

If WinExists($sMyAutoItTitle) Then
    ; Le script est d�j� en cours d'ex�cution

    MsgBox($MB_SYSTEMMODAL, Default, "Le script est d�j� en ex�cution." & @CRLF & @CRLF & _
            "Son PID est: " & WinGetProcess($sMyAutoItTitle))
Else
    ; Il sagit de la premi�re instance du script.

    ;D�finit le titre de la fen�tre AutoIt
    AutoItWinSetTitle($sMyAutoItTitle)

    ; Ex�cute de nouveau ce script.
    If @Compiled Then
        Run('"'& @ScriptFullPath & '"')
    Else
        Run('"'& @AutoItExe & '" "'& @ScriptFullPath & '"')
    EndIf

    MsgBox($MB_SYSTEMMODAL, Default, "Ceci est la premi�re instance." & @CRLF & @CRLF & _
            "Mon PID est: " & @AutoItPID)
EndIf

#include <GUIConstantsEx.au3>

Example()

Func Example()
    ; D�finit le titre de la fen�tre cach�e AutoIt.
    AutoItWinSetTitle("My AutoIt Window")

    ; Affiche la fen�tre cach�e de AutoIt.
    AutoItWinShow()

    Do
    Until GUIGetMsg() = $GUI_EVENT_CLOSE
EndFunc   ;==>Example

; Affiche la fen�tre cach�e de AutoIt. Retourne le handle de la fen�tre.
Func AutoItWinShow()
    ; Obtient le handle de la fen�tre cach�e AutoIt � partir du titre de la fen�tre cach�e AutoIt.
    Local $hWnd = WinGetHandle(AutoItWinGetTitle())

    ; D�place la fen�tre cach�e AutoIt et la redimensionne pour une meilleure vue.
    WinMove($hWnd, "", (@DesktopWidth / 2) - 250, (@DesktopHeight / 2) - 250, 500, 500)

    ; Montre la fen�tre cach�e de AutoIt, normalement elle est cach�e, mais dans l'int�r�t de cet exemple, je la montre.
    WinSetState($hWnd, "", @SW_SHOW)

    Return $hWnd
EndFunc   ;==>AutoItWinShow