AutoHotkey Community

GuiAddResAni(mainGuiHandle, aniInstance, aniNr, posx, posy, posw, posh)
{
  global aniCtlHandle, ACM_PLAY, ACM_STOP

  WS_CHILD        = 0x40000000
  WS_VISIBLE      = 0x10000000
  ACS_AUTOPLAY    = 0x0004
  ACS_TRANSPARENT = 0x0002
  ACS_CENTER      = 0x0001
  ACM_OPEN       := 0x400 + 100
  ACM_PLAY       := 0x400 + 101
  ACM_STOP       := 0x400 + 102
  GWL_HINSTANCE := -6

  hInstance := DllCall("GetWindowLong"
      , "UInt", mainGuiHandle
      , "Int", GWL_HINSTANCE)

  aniCtlHandle := DLLCall("CreateWindowEx"
        , uint, 0                 ; Style
        , str, "SysAnimate32"     ; Class Name
        , uint, 0                 ; Window name
        , uint, WS_CHILD|WS_VISIBLE|ACS_TRANSPARENT|ACS_CENTER|ACS_AUTOPLAY ; window style
        , int, posx               ; Left
        , int, posy               ; Top
        , int, posw               ; Right
        , int, posh               ; Bottom
        , uint, mainGuiHandle     ; Handle of parent
        , int, 0                  ; Menu
        , uint, hInstance         ; hInstance
        , uint, 0)                ; User defined style

  ; http://msdn.microsoft.com/library/en-us/shellcc/platform/commctls/animation/messages/acm_open.asp
  ; wParam: Instance handle to the module from which the resource should be loaded.
  ;   Note that if the window is created by a DLL, the default value for hinst is the HINSTANCE value of the DLL, not of the application that calls the DLL.
  ; lParam: Pointer to a buffer that contains the path of the AVI file or the name of an AVI resource.
  ;   Alternatively, this parameter can consist of the AVI resource identifier in the low-order word and zero in the high-order word.
  If (aniNr != 0)
  {
    PostMessage, %ACM_OPEN%, %aniInstance%, %aniNr%, , ahk_id %aniCtlHandle%
  }
  Else
  {
    avi := A_WinDir . "\clock.avi"
    avi := A_ScriptDir . "\torch.avi"
    r := DllCall("SendMessageA"
        , "UInt", aniCtlHandle
        , "UInt", ACM_OPEN
        , "UInt", 0
        , "UInt", &avi)
  MsgBox (%ErrorLevel%) %r% %avi%
  }
}

    ; Add control
    posx = 220
    posy = 60
    posw = 300
    posh = 80