Delphi JEDI ScreenShot 擷取螢幕畫面到剪貼簿

// 在 Form 上放入一個 Button 並加入 onclick 事件

uses
  JclGraphics, Clipbrd;

procedure TForm1.Button1Click(Sender: TObject);
var
  Bitmap: TBitmap;
  AFormat: Word;
  AData: THandle;
  APalette: HPALETTE;
begin
   Bitmap := TBitmap.Create;
   try
     // Left, Top, Width, Height, HWND_DESKTOP
     ScreenShot(Bitmap, 0,0, 300, 200, HWND_DESKTOP);
     Bitmap.SaveToClipboardFormat(AFormat, AData, APalette);
     ClipBoard.SetAsHandle(AFormat, AData);
   finally
     Bitmap.Free;
   end;
end;