MetaFile ist nur Schwarz

[toms]

vielleicht so? (ungetestet)

Delphi-Quellcode:

var
 img : TMetafile;
begin
  Clipboard.Open;
  try
    if IsClipboardFormatAvailable(CF_ENHMETAFILE) then
    begin
      img := TMetafile.Create();
      try
        img.LoadFromClipboardFormat(CF_ENHMETAFILE, Clipboard.GetAsHandle(CF_ENHMETAFILE), 0);
        img.SaveToFile(sFileName);
      finally
        img.Free;
      end;
    end;
  finally
    Clipboard.close;
  end;
end;