#include <GuiAVI.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

Global $g_idMemo

Example()

Func Example()
    Local $sWow64 = ""
    If @AutoItX64 Then $sWow64 = "\Wow6432Node"
    Local $hGUI, $hAVI, $sFile = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE" & $sWow64 & "\AutoIt v3\AutoIt", "InstallDir") & "\Examples\GUI\SampleAVI.avi"
    Local $id_StartStop

    ; Crée une GUI
    $hGUI = GUICreate("(External) AVI Open", 300, 200)
    $hAVI = _GUICtrlAVI_Create($hGUI, "", -1, 10, 10)
    $id_StartStop = GUICtrlCreateButton("Start", 50, 10, 75, 25)
    $g_idMemo = GUICtrlCreateEdit("", 10, 50, 276, 144, $WS_VSCROLL)
    GUICtrlSetFont($g_idMemo, 9, 400, 0, "Courier New")
    GUISetState(@SW_SHOW)

    ; Joue l'exemple AutoIt AVI
    _GUICtrlAVI_Open($hAVI, $sFile)

    ; Boucle jusqu'à ce que l'utilisateur quitte.
    Local $iMsg
    Do
        $iMsg = GUIGetMsg()
        If $iMsg = $id_StartStop Then
            If GUICtrlRead($id_StartStop) = "Start" Then
                _GUICtrlAVI_Play($hAVI)
                GUICtrlSetData($id_StartStop, "Stop")
            Else
                _GUICtrlAVI_Stop($hAVI)
                GUICtrlSetData($id_StartStop, "Start")
            EndIf
            MemoWrite("Is Playing: " & _GUICtrlAVI_IsPlaying($hAVI))
        EndIf
    Until $iMsg = $GUI_EVENT_CLOSE

    ; Ferme le clip AVI
    _GUICtrlAVI_Close($hAVI)

    GUIDelete()
EndFunc   ;==>Example

; Écrit une ligne dans le contrôle mémo
Func MemoWrite($sMessage)
    GUICtrlSetData($g_idMemo, $sMessage & @CRLF, 1)
EndFunc   ;==>MemoWrite