1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:

type TSignChunk = record 
 SignOp : string[5]; 
 Data   : Array of TPoint; 
end; 

var 
  Form1: TForm1; 
  SignChunk: TSignChunk; 
  SignArray: Array of TSignChunk; 

implementation 

{$R *.dfm} 

function MyEnhMetafileProc(DC: HDC; lpHTable: PHandleTable; lpEMFR: pEnhMetaRecord; nObj: Integer; TheForm:TForm1):Integer; stdcall; 
var p: PEMRPolyline16; 
 rec: TENHMetaRecord; 
 i: Integer; 
 nb: Integer; 
begin 
 PlayEnhMetafileRecord(dc, lpHTable^, lpEMFR^,nObj); 
case lpEMFR^.iType of 
 EMR_Polyline16 : begin 
                   p := PEMRPolyLine16(@rec); 
                   nb := p.cpts; 
                   SetLength(SignArray, Length(SignArray) + 1); 
                   SignArray[High(SignArray)].SignOp := 'Pl'; 
                   SetLength(SignArray[High(SignArray)].Data, nb); 
                   For I := 0 to nb -1 do 
                    begin 
                     SignArray[High(SignArray)].Data[I] := Point(p.apts[I].X, p.apts[I].y); 
                    end; 
                  end; 
 end; 
 result := 1; 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
var 
MyMetafile: TMetafile; 
begin 
 MyMetafile := TMetafile.Create; 
 MyMetafile.LoadFromFile('sample.emf'); 
 SignArray := nil; 
 EnumEnhMetafile(Canvas.Handle, MyMetafile.Handle, @MyEnhMetafileProc, self, rect(0, 0, MyMetafile.Width,MyMetafile.Height)); 
 MyMetafile.Free; 
end;