Convert IcoToJpeg

Implementation

………………….

Uses Jpeg ;

………………….

Procedure TForm1.Button1Click ( Sender : TObject ) ;

Var

   Icon       : TIcon ;

   Bitmap      : TBitmap ;

   Jpeg        : TJpeg../Image ;

Begin

   Icon := TIcon.create ;

   Bitmap := TBitmap.create ;

   Jpeg := TJpeg../Image.Create ;

   Icon.LoadFromFile ( 'YourIco.ico' ) ;

   Bitmap.Height := Icon.Height ;

   Bitmap.Width := Icon.Width ;

   Bitmap.Canvas.Draw ( 0 , 0 , Icon ) ;

   Jpeg.Assign ( Bitmap ) ;

   Jpeg.SaveToFile ( 'YourJpeg.Jpg' ) ;

   Icon.Free ;

   Bitmap.Free ;

   Jpeg.Free ;

End ;