AutoHotkey Community

; Written by A.N.Suresh Kumar AKA "Goyyah", 23-Nov-2006
; Post: http://www.autohotkey.com/forum/viewtopic.php?p=91036#91036

Loop, %A_WinDir%\*.AVI {

AviFileInfo := AviFileInfo(A_LoopFileLongPath)
StringSplit, Field, AviFileInfo, |

FPS      := (Field8/Field7) ;  FPS is dwRate / dwScale
Duration := FormatSeconds(Round(Field9/FPS,0)) ; Duration is dwLength / FPS

MsgBox, 0, Properties :: %A_LoopFileName%,
(
FileFullPath     `t: %A_LoopFileLongPath%
FileSize         `t: %A_LoopFileSizeKB% KB

MaxBytesPerSec   `t: %Field1%
Flags            `t: %Field2%
Caps             `t: %Field3%
No Of Streams    `t: %Field4%
Sugg. BufferSize `t: %Field5%
Video Size       `t: %Field6%
Frames per second`t: %FPS%
Duration         `t: %Duration%
Scale            `t: %Field7%
Rate             `t: %Field8%
Frames           `t: %Field9%
Edit Count       `t: %Field10%
File Type        `t: %Field11%
)
}
Return

AviFileInfo(AviFile) {
VarSetCapacity( av, 108, 0 )                           ; av = AVIFILEINFO structure
DllCall( "avifil32.dll\AVIFileInit" )
DllCall( "avifil32.dll\AVIFileOpenA", Intp,hFile, Str,AVIFile , Int,0, Int,0 )
DllCall( "avifil32.dll\AVIFileInfoA", Int,hFile, Int,&av, Int,108 )
DllCall( "avifil32.dll\AVIFileRelease", Int,hFile )
mb := (*(&av+ 0))+(*(&av+ 1)<<8)+(*(&av+ 2)<<16)+(*(&av+ 3)<<24) ; dwMaxBytesPerSec
fl := (*(&av+ 4))+(*(&av+ 5)<<8)+(*(&av+ 6)<<16)+(*(&av+ 7)<<24) ; dwFlags
ca := (*(&av+ 8))+(*(&av+ 9)<<8)+(*(&av+10)<<16)+(*(&av+11)<<24) ; dwCaps
st := (*(&av+12))+(*(&av+13)<<8)+(*(&av+14)<<16)+(*(&av+15)<<24) ; dwStreams
sb := (*(&av+16))+(*(&av+17)<<8)+(*(&av+18)<<16)+(*(&av+19)<<24) ; dwSuggBufferSize
wi := (*(&av+20))+(*(&av+21)<<8)+(*(&av+22)<<16)+(*(&av+23)<<24) ; dwWidth
he := (*(&av+24))+(*(&av+25)<<8)+(*(&av+26)<<16)+(*(&av+27)<<24) ; dwHeight
sc := (*(&av+28))+(*(&av+29)<<8)+(*(&av+30)<<16)+(*(&av+31)<<24) ; dwScale
ra := (*(&av+32))+(*(&av+33)<<8)+(*(&av+34)<<16)+(*(&av+35)<<24) ; dwRate
le := (*(&av+36))+(*(&av+37)<<8)+(*(&av+38)<<16)+(*(&av+39)<<24) ; dwLength
ec := (*(&av+40))+(*(&av+41)<<8)+(*(&av+42)<<16)+(*(&av+43)<<24) ; dwEditCount
Loop, 64                                                         
         ft := ft . Chr( *(&av+43+(A_Index)) )                   ; szFileType[64]
Return mb "|" fl "|" ca "|" st "|" sb "|" wi "x" he "|" sc "|" ra "|" le "|" ec "|" ft
}

FormatSeconds(NumberOfSeconds)  { ; Taken from AHK Documentation ( FormatTime )
    time = 19990101  ; *Midnight* of an arbitrary date.
    time += %NumberOfSeconds%, seconds
    FormatTime, mmss, %time%, mm:ss
    return NumberOfSeconds//3600 ":" mmss 
}

AviFileInfo(AviFile) {
VarSetCapacity( av, 108, 0 )                           ; av = AVIFILEINFO structure
DllCall( "avifil32.dll\AVIFileInit" )
DllCall( "avifil32.dll\AVIFileOpenA", Intp,hFile, Str,AVIFile , Int,0, Int,0 )
DllCall( "avifil32.dll\AVIFileInfoA", Int,hFile, Int,&av, Int,108 )
DllCall( "avifil32.dll\AVIFileRelease", Int,hFile )
wi := (*(&av+20))+(*(&av+21)<<8)+(*(&av+22)<<16)+(*(&av+23)<<24) ; dwWidth
he := (*(&av+24))+(*(&av+25)<<8)+(*(&av+26)<<16)+(*(&av+27)<<24) ; dwHeight
Return wi "x" he ; only the video size
}

FreeSpace     := DriveSpace("C:\", 1)
DiskCapacity  := DriveSpace("C:\", 2)
MsgBox, 64,Drive C:, % "FreeSpace`t: " FreeSpace "`nDrive Capacity`t: " DiskCapacity
Return

DriveSpace(Drv="", Free=1) {
DriveGet, Drives, List
StringLeft, Drv, Drv, 1
If (!InStr(Drives,%Drv%))
    Return -1
Drv := Drv . ":\"
VarSetCapacity(SPC, 30, 0)  ; Sectors Per Cluster
VarSetCapacity(BPS, 30, 0)  ; Bytes Per Sector
VarSetCapacity(FC , 30, 0)  ; Free Clusters
VarSetCapacity(TC , 30, 0)  ; Total Clusters
DllCall("GetDiskFreeSpaceA", Str,Drv, UIntp,SPC
                , UIntp,BPS, UIntp,FC, UIntp,TC)
Return Free=1 ? (SPC*BPS*FC) : (SPC*BPS*TC) ; Ternary Operator requires 1.0.46+
}