Bild aus Zwischenablage speichern

[hboy]

alternativ ginge auch

Delphi-Quellcode:

Procedure Bild_Speichern;
Var
    img: TPicture;
    clip: TClipboard;
Begin
  Clip := Clipboard;
  if clip.HasFormat(CF_BITMAP) then
  begin
    img := TPicture.create;
    img.LoadFromClipboardFormat(CF_Bitmap,clip.GetAsHandle(CF_Bitmap),0);
    img.savetofile('clip_pic.bmp');
    clip.clear;
    img.Free;
  end;
End;