procedure TForm1.Button1Click(Sender: TObject);
Var FileName: String;
FileHandle, AVIWidth, AVIHeight: Integer;
begin
FileName:='c:\test.avi'; //Chemin complet du fichier
FileHandle:=FileOpen(FileName, fmOpenRead);

//Largeur
FileSeek(FileHandle,64,0);
FileRead(FileHandle,AVIWidth, 4);

//Hauteur
FileSeek(FileHandle,68,0);
FileRead(FileHandle,AVIHeight, 4);

Label1.Caption:=IntToStr(AVIWidth); //Affiche la largeur en pixels
Label2.Caption:=IntToStr(AVIHeight); //Affiche la hauteur en pixels
FileClose(FileHandle);
end;