加载GIF

TGIFImage *gif=new TGIFImage()

TBitmap *bmp=new TBitmap()



gif->LoadFromFile("Demo.gif")

Image1->Picture->Assign(gif)

TGIFImageList *list=gif->Images

int count=list->Count



for (int i = 0 i < count i++)

{

　　bmp->Assign(list->Items[i])

　　bmp->SaveToFile(ExtractFilePath(Application->ExeName)+IntToStr(i)+".bmp")

}-Load GIF



　TGIFImage*gif=new TGIFImage()

　TBitmap*bmp=new TBitmap()



　gif->LoadFromFile("Demo.gif")

　Image1->Picture->Assign(gif)

　TGIFImageList*list=gif->Images

　int count=list->Count



　for (int i = 0　i < count　i++)

　{

　　bmp->Assign(list->Items[i])

　　bmp->SaveToFile(ExtractFilePath(Application->ExeName)+IntToStr(i)+".bmp")

　}