//必备:const WINGDIPDLL = 'gdiplus.dll'; //引用:GDIPAPI, GDIPOBJ两个单元 { 1、TGPGraphics = class(TGdiplusBase) 2、TGPImage = class(TGdiplusBase) 3、TGdiplusBase = class public class function NewInstance: TObject; override; procedure FreeInstance; override; end; TGdiplusBase只实现GDI对象实例的简单管理 } procedure TForm1.Button1Click(Sender: TObject); var TmpG: TGPGraphics; TmpImg: TGPImage; begin //获取附属容器 TmpG := TGPGraphics.Create(Self.Canvas.Handle); { TmpImg.Create装载相应文件 1、GdipLoadImageFromFile 2、function GdipLoadImageFromFile; external WINGDIPDLL name 'GdipLoadImageFromFile'; 3、返回TStatus} TmpImg := TGPImage.Create('c:/xy.jpg'); TmpG.DrawImage(TmpImg, 0, 0, TmpImg.GetWidth, TmpImg.GetHeight); TmpG.Free; TmpImg.Free; end; 有什么好的效果么,没看出来,呵呵?