#NoTrayIcon
Local $hDLL, $aMediaInfo, $aMediaInfoGet, $Tmp, $aTmp, $i, $iC = 0
If $CmdLine[0] <> 1 Then Exit
$hDLL = DllOpen(@ScriptDir & '\MediaInfo.dll')
$aMediaInfo = DllCall($hDLL, 'ptr', 'MediaInfo_New')
DllCall($hDLL, 'dword', 'MediaInfo_Open', 'ptr', $aMediaInfo[0], 'wstr', $CmdLine[1])
DllCall($hDLL, 'wstr', 'MediaInfo_Option', 'ptr', 0, 'wstr', 'Inform', 'wstr', 'General;%Title%')
$aMediaInfoGet = DllCall($hDLL, 'wstr', 'MediaInfo_Inform', 'ptr', $aMediaInfo[0], 'int', 0)
DllCall($hDLL, 'none', 'MediaInfo_Close', 'ptr', $aMediaInfo[0])
DllClose($hDLL)
$Tmp = StringToBinary($aMediaInfoGet[0], 2)
$aTmp = StringRegExp(StringTrimLeft($Tmp, 2), '(?s).{4}', 3)
$Tmp = ''
For $i = 0 To UBound($aTmp) - 1
If StringRight($aTmp[$i], 2) == '00' Then
$Tmp &= StringLeft($aTmp[$i], 2)
Else
$iC = 1
ExitLoop
EndIf
Next
If $iC = 1 Then
MsgBox(4096, 'Test', $aMediaInfoGet[0])
Else
MsgBox(4096, 'Test', $aMediaInfoGet[0] & ': ' & @CRLF & BinaryToString('0x' & $Tmp, 1))
EndIf |