Convert WmfToBmp

Procedure WmfToBmp ( Wmf , Bmp : String ) ;

Var

   MetaFile    : TMetafile ;

   BmpFile     : TBitmap ;

Begin

   Metafile := TMetaFile.create ;

   BmpFile := TBitmap.create ;

   MetaFile.LoadFromFile ( Wmf ) ;

   With BmpFile Do

   Begin

      Height := Metafile.Height ;

      Width := Metafile.Width ;

      Canvas.Draw ( 0 , 0 , MetaFile ) ;

      SaveToFile ( Bmp ) ;

      Free ;

   End ;

   MetaFile.Free ;

End ;

            Example :

                WmfToBmp ( 'YourWmf.wmf' , 'YourBmp.bmp' ) ;