Voici comment controler qu'une image GIF est animee ou standard, suite a ce tuto et ce post
http://silkyroad.developpez.com/VBA/...geAcquisition/
http://www.developpez.net/forums/d74...rahie-windows/
Le code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
// #include <utilcls.h> // <---------ne pas oublier
 
void __fastcall TForm1::Button12Click(TObject *Sender)
{
// controle Format Image GIF
 
Variant vMSWIAImageFile;
 
// Création conteneur pour l'image à manipuler
vMSWIAImageFile = Variant::CreateObject("WIA.ImageFile");
 
// chargement de l'image
vMSWIAImageFile.OleFunction("LoadFile", "C:\\Documents and Settings\\blondelle\\Mes documents\\Mes images\\YourBmpHere1.gif");
 
if(vMSWIAImageFile.OlePropertyGet("IsAnimated"))
        {
        ShowMessage("Gif anime");
        }
else
        {
        ShowMessage("Gif standard");
        }
}