procedure TForm1.Timer1Timer(Sender：TObject)；//抓取屏幕，并保存到Image控件中
var
　Fullscreen：Tbitmap；
　FullscreenCanvas：TCanvas；
　dc：HDC；
begin
　Fullscreen：=TBitmap.Create； 
　//創建一個BITMAP來存放圖象
　Fullscreen.Width：=screen.width；
　Fullscreen.Height：=screen.Height；
　DC：=GetDC(0)； //取得屏幕的DC，參數0指的是屏幕
　FullscreenCanvas：=TCanvas.Create； 
　//創建一個CANVAS對象
　FullscreenCanvas.Handle：=DC；
　Fullscreen.Canvas.CopyRect(Rect(0，0，screen.Width，screen.Height)，
　fullscreenCanvas，Rect(0，0，Screen.Width，Screen.Height))； 
　//把整個屏幕復制到BITMAP中
　FullscreenCanvas.Free； 
　//釋放CANVAS對象
　ReleaseDC(0，DC)； //釋放DC
　//*******************************
　image1.picture.Bitmap：=fullscreen； //拷貝下的圖象賦給IMAGE對象
　image1.Width：=fullscreen.Width；
　image1.Height：=fullscreen.Height；
　fullscreen.free； //釋放bitmap
　form1.WindowState：=wsNormal； //復原窗口狀態
　form1.show； //顯示窗口
　messagebeep(1)； //BEEP叫一聲，報告圖象已經截取好了。
end；