用 GDI 操作 EMF 文件[2]: PlayEnhMetaFile、DeleteEnhMetaFile

创建 EMF 文件, 并同时绘制在窗体.

---

unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 = class(TForm)Button1: TButton;procedure Button1Click(Sender: TObject);end;varForm1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
constPath = 'C:\Temp\MyMetaFile.emf';
varMetaFileDC: HDC;         {EMF 画布句柄}HMetaFile: HENHMETAFILE; {EMF 文件句柄}
beginMetaFileDC := CreateEnhMetaFile(0, PChar(Path), nil, nil);Ellipse(MetaFileDC, 10, 10, 100, 60);HMetaFile := CloseEnhMetaFile(MetaFileDC);{在窗体上按原始大小绘制 EMF}PlayEnhMetaFile(Canvas.Handle, HMetaFile, Rect(10,10,100,60));DeleteObject(MetaFileDC);DeleteEnhMetaFile(HMetaFile);
end;end.