Delphi 捕捉全屏幕圖像

1. procedure SaveScreenToBmp(AFileName :TFileName);
2. var
3.   bit: TBitmap;
4.   cvs: TCanvas;
5. begin
6.   bit := TBitmap.Create;
7.   bit.SetSize(Screen.Width, Screen.Height);
9.   cvs := TCanvas.Create;
10.   cvs.Handle := GetDC(0);
12.   bit.Canvas.CopyRect(Screen.DesktopRect, cvs, Screen.DesktopRect);
13.   bit.SaveToFile(AFileName);
15.   FreeAndNil(cvs);
16.   FreeAndNil(bit);
17. end;