Konwersja obrazka BMP do WMF (lub EMF)

Aby po kliknięciu przycisku Button1 dokonać konwersji obrazka w formacie BMP do obrazka w formacie WMF (lub EMF):

Unit1.cpp

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   TMetafile *WMF = new TMetafile();
   Graphics::TBitmap *BMP = new Graphics::TBitmap();

   BMP->LoadFromFile("plik.bmp");

   WMF->Height = BMP->Height;
   WMF->Width = BMP->Width;
   TMetafileCanvas *WMFCanvas = new TMetafileCanvas(WMF, 0);
   WMFCanvas->Draw(0, 0, BMP);

   WMFCanvas->Free();
   BMP->Free();
   WMF->SaveToFile("plik.wmf");
   WMF->Free();
}