中台 - 98-2 物件導向程式設計 - 抓取螢幕的方法

使用Delphi做出如PrintScreen鍵的效果，
程式碼參考如下：

procedure getScreen();
var

  DesktopBitmap   : TBitmap;
begin

  //存放螢幕圖 (bitmap)
  DesktopBitmap := TBitmap.Create;
  with DesktopBitmap do begin
    Width := Screen.Width;
    Height := Screen.Height;
  end;

  //呼叫windows函式，取出圖後放入bitmap
  BitBlt(DesktopBitmap.Canvas.Handle,
         0,0,Screen.Width,Screen.Height,
         GetDC(GetDesktopWindow),0,0,SrcCopy);

  //把Bitmap放到image中
  Image1.Picture.Bitmap := DesktopBitmap;


end;

這樣就可以抓取了。