OF_SHARE_DENY_WRITE est un entier = 0x20
AVIFILEINFO est une structure
	dwMaxBytesPerSec est un entier
	dwFlags est un entier
	dwCaps est un entier
	dwStreams est un entier
	dwSuggestedBufferSize est un entier
	dwWidth est un entier
	dwHeight est un entier
	dwScale est un entier
	dwRate est un entier
	dwLength est un entier
	dwEditCount est un entier
	szFileType est une chaîne fixe sur 64
FIN
hFile est un entier
AviInfo est un AVIFILEINFO
sFile est une chaîne = ComplèteRep(fRepExe())+"\BLUR24.AVI"

//Initialize the AVIFile library
API("avifil32","AVIFileInit")

//create a handle to the AVI file
SI API("avifil32","AVIFileOpen",&hFile, &sFile, OF_SHARE_DENY_WRITE, 0) = 0 ALORS
	//retrieve the AVI information
	SI API("avifil32","AVIFileInfo",hFile, &AviInfo, Dimension(AviInfo)) = 0 ALORS
		Info("AVI dimensions: " + (AviInfo:dwWidth) + "x" + (AviInfo:dwHeight))
	SINON
		Info("Error while retrieving AVI information... :(")	
	FIN
	//release the file handle
	API("avifil32","AVIFileRelease", hFile)
SINON
	Info("Error while opening the AVI file... :(")	
FIN
//exit the AVIFile library and decrement the reference count for the library
API("avifil32", "AVIFileExit")