Как получить сведения про видео файл ?

Ковыряюсь в НЕТЕ и не могу понять неужели людей интерисует только как проиграть МР3 или WAV открыть закрыть CDROM, накаждом сайте етой бональшины навалом и нет ничег серьёзного по MCI.
К примеру мне необходимо получить сведения про видео файл но ниодного примера или намека на то как ето сделать нет! Зато есть способы работы только с AVI файлами, а мне к примеру нужно DAT и WMA а вот тут то и приходится использовать
функции mci к примеру mciSendString на Microsoft MSDN прочитал кучу полезного и бесполезного нашол текстовую команду "info" пробовал использовать так:

Declare Function mciSendString Lib "winmm" Alias "mciSendStringA" _
(ByVal lpstrCommand As String, ByVal lpstrReturnString As String, _
ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Sub PlayAVIPictureBox(FileName As String, ByVal Window As PictureBox, m As Integer)
Dim RetVal As Long
Dim CommandString As String
Dim ShortFileName As String * 260
Dim deviceIsOpen As Boolean

'Retrieve short file name format
RetVal = GetShortPathName(FileName, ShortFileName, Len(ShortFileName))
FileName = Left$(ShortFileName, RetVal)

'Open the device
CommandString = "Open " & FileName & " type mpegVideo alias video parent " _
& CStr(Window.hWnd) & " style " & CStr(WS_CHILD)
RetVal = mciSendString(CommandString, vbNullString, 0, 0&)
If RetVal Then GoTo error

'remember that the device is now open
deviceIsOpen = True

'Resize the movie to PictureBox size
CommandString = "put video window at 0 0 " & CStr(Window.ScaleWidth / _
Screen.TwipsPerPixelX) & " " & CStr(Window.ScaleHeight / _
Screen.TwipsPerPixelY)
RetVal = mciSendString(CommandString, vbNullString, 0, 0&)
If RetVal <> 0 Then GoTo error

'Play the file
CommandString = "Play video"
RetVal = mciSendString(CommandString, vbNullString, 0, 0&)
If RetVal <> 0 Then GoTo error
'Close the device
'CommandString = "Close video"
'RetVal = mciSendString(CommandString, vbNullString, 0, 0&)
'If RetVal <> 0 Then GoTo error
Exit Sub

error:
'An error occurred.
'Get the error description
Dim ErrorString As String
ErrorString = Space$(256)
mciGetErrorString RetVal, ErrorString, Len(ErrorString)
ErrorString = Left$(ErrorString, InStr(ErrorString, vbNullChar) - 1)

'close the device if necessary
If deviceIsOpen Then
CommandString = "Close video"
mciSendString CommandString, vbNullString, 0, 0&
End If

'raise a custom error, with the proper description
Err.Raise 999, , ErrorString
End Sub

Private Sub Command1_Click()
Dim FileName As String
FileName = "D:Net_TEMPBla Bla Bla.avi"
Command2_Click
Call PlayAVIPictureBox(FileName, Picture1, 1)
End Sub

Private Sub Command2_Click()
Dim mssg As String * 255
'CommandString = "info video product" результат есть
'CommandString = "info video file" результат есть
'CommandString = "info video version" результат есть
'CommandString = "info video window text" результат есть
CommandString = "info video algorithm" результата нет
RetVal = mciSendString(CommandString, mssg, 255, 0)
MsgBox mssg
End Sub

так вот как видите
все просто что нихрена не работает тут:

CommandString = "info video algorithm" результата нет
RetVal = mciSendString(CommandString, mssg, 255, 0)
MsgBox mssg

если знаеть как решить проблему ПОМОГИТЕ
надеюсь на вашу помошь

0