uses Clipbrd;
procedure TForm1.Button1Click(Sender: TObject);
var
Abmp:Tbitmap;
begin
Image1.Picture.Metafile.Assign(ClipBoard);
Abmp := Tbitmap.Create;
Abmp.Height:=Image1.Picture.Metafile.Height;
Abmp.Width:=Image1.Picture.Metafile.Width;
Abmp.Canvas.Draw(0,0,Image1.Picture.Metafile);
Abmp.SaveToFile ('c:\abcd.bmp');
Abmp.free;
end;
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024