tester si un fichier est une video flv

Réponse acceptée !
Voici un petit exemple :

Const FLVSignature = $1564C46;

Procedure TForm1.Button1Click(Sender: TObject);
Var MS : TMemoryStream;
    Sign : Longint;
Begin
  With TMemoryStream.Create Do
  Try
    LoadFromFile('test.flv');
    ReadBuffer(Sign, SizeOf(Sign));
    If Sign = FLVSignature Then ShowMessage('Fichier Flash');
  Finally
    Free;
  End;
End;


 
@+
Cirec

---