Как узнать каким кодаком (FourCC) зажат фильм

[Bankir]

хочу написать прогу с помощью которой можно узнать каким кодаком зажат фильм причем не только AVI любой из виндовых медиа файлов по простому фильмов
помогите с кодом или хотябы где искать, но только не MSDN там был, потому как уже знаю как проигрывать файлы через mciSendString а как узнать кодак не знаю
зарание спасибо!!!

[hCORe]

Ну, например, вот так:

Код: Выделить всё

Dim lFile As Long, aFourCC(3) As Byte
lFile = FreeFile
Open "имя_твоего_файла.avi" For Binary As #lFile
Get #lFile, 113, aFourCC
MsgBox CStr(StrConv(aFourCC, vbUnicode))
Close #lFile

[hCORe]

В общем случае - разбирать формат видеофайла, считывать необходимые значения.