Есть Video UDF (см. аттач),
хотя странно что работает оно только используя внешний проигрыватель:
Код:
#include <Video.au3>
$sVideo = "E:\Downloads\2012.2009.D.DVDRip.avi"
$hWnd = GUICreate("_Video_GUI_Handler_") ;WinGetHandle("[CLASS:Winamp v1.x; TITLE:" & StringRegExpReplace($sVideo, "^.*\\", "") & "]")
$sDevice = "AVIVideo"
$hVideo = _Video_Open($sVideo, $hWnd)
$Dimns = _Video_Dimension($sVideo)
$FrameRate = _Video_FrameRate($hVideo)
$Length = _Video_Length($hVideo, 0)
$sVideo_Info = StringFormat("Dimensions:\nWidth: %s, Height: %s\n\nFrames Rate:\n%s\n\nLength:\n%s", _
$Dimns[0], $Dimns[1], $FrameRate, $Length)
MsgBox(4096, "Video Info", $sVideo_Info)
_Video_Close($hVideo)
Это пример для открытого видео в KMPlayer.
В архиве есть также пример создания собственного плеера
.
