Capturing a Full Screen Image in Delphi
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 =class (TForm) Button1: TButton; procedure Button1Click (Sender: TObject); end ; var Form1: TForm1; implementation {$ R * .dfm} // Capture full screen image and save it to: c: \ temp \ Screen.bmp procedure TForm1.Button1Click (Sender: TObject); var bit: TBitmap; DC: HDC; cvs: TCanvas; begin bit: = TBitmap.Create; bit.SetSize (Screen.Width, Screen.Height); DC: = GetDC (0); cvs: = TCanvas.Create; cvs.Handle: = DC; bit.Canvas.CopyRect (Screen.DesktopRect, cvs, Screen.DesktopRect); bit.SaveToFile ('c: \ temp \ Screen.bmp'); ReleaseDC (0, DC); cvs.Free; bit.Free; end ; end .