1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

uses
  System.Drawing.Imaging;

{...}

  var thisScreen := Screen.PrimaryScreen; //Ich nehme den Primärbildschirm, kannst aber auch andere nehmen
    
  var screenBmp := new Bitmap(thisScreen.Bounds.Width, thisScreen.Bounds.Height, PixelFormat.Format32bppRgb); //Bitmap ausreichender Größe
  
  using grScreenBmp := Graphics.FromImage(screenBmp) do //Graphics-Objekt zum Bitmap
    grScreenBmp.CopyFromScreen(thisScreen.Bounds.X, thisScreen.Bounds.Y, 0,0, thisScreen.Bounds.Size, CopyPixelOperation.SourceCopy); //Bildschirmanzeige ins Bitmap kopieren
      
  pictureBox1.Image := screenBmp;  //in einer PictureBox anzeigen					

1:
2:
3:

  using grScreenBmp := Graphics.FromImage(screenBmp) do //Graphics-Objekt zum Bitmap
  
    grScreenBmp.CopyFromScreen(thisScreen.Bounds.X, thisScreen.Bounds.Y, 0,0, thisScreen.Bounds.Size, CopyPixelOperation.SourceCopy); //Bildschirmanzeige ins Bitmap kopieren					

1:
2:
3:
4:
5:
6:

grScreenBmp := Graphics.FromImage(screenBmp);
try
  grScreenBmp.CopyFromScreen(thisScreen.Bounds.X, thisScreen.Bounds.Y, 0,0, thisScreen.Bounds.Size, CopyPixelOperation.SourceCopy);
finally
  grScreenBmp.Dispose;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:

//  NET 1.1 - copy the control's graphics using Windows GDI
[DllImport("gdi32.dll")]
private static extern long BitBlt(
      IntPtr hdcDest,
      int xDest,
      int yDest,
      int nWidth,
      int nHeight,
      IntPtr hdcSource,
      int xSrc,
      int ySrc,
      Int32 dwRop);

const int SRCCOPY=13369376;

private Bitmap GetBitmap(Control Ctrl) {

  //  create the source graphics and the required bitmap
  Graphics grCtrl = Graphics.FromHwnd(Ctrl.Handle);
  Bitmap Result = new Bitmap(Ctrl.Width, Ctrl.Height, grCtrl);

  //  we need handles to copy graphics
  IntPtr   hdcCtrl = grCtrl.GetHdc();
  Graphics grDest  = Graphics.FromImage(Result);
  IntPtr   hdcDest = grDest.GetHdc();

  //  copy the image from source hdcCtrl to destination hdcDest
  //  using BitBlt (bit block transfer) of Windows GDI
  //  note:  a form is normally printed without title or menu bar;
  //        therefore, one has to move the graphics
  int SourceX, SourceY;
  if (Ctrl is Form) {
    SourceX = Ctrl.ClientSize.Width  - Ctrl.Width  + 4;
    SourceY = Ctrl.ClientSize.Height - Ctrl.Height + 4;
  } else {
    SourceX = 0;
    SourceY = 0;
  }
  BitBlt(hdcDest, 0, 0, Ctrl.Width, Ctrl.Height, hdcCtrl, SourceX, SourceY, SRCCOPY);

  //  free the used objects
  grCtrl.ReleaseHdc(hdcCtrl);
  grDest.ReleaseHdc(hdcDest);

  //  that's all work for the bmp using NET 1.1 instructions
  return Result;
}					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:

unit uScreencopy;

interface

uses
  System.Drawing,
  System.Windows.Forms,
  System.Drawing.Imaging;

function CopyScreen : Image;

implementation

uses windows;

var g2      : Graphics;
    img     : Image;

function CopyScreen : Image;
var dc1     : HDC;
    dc2     : IntPtr;

begin
  // Kopieren der Fenster-Bitmap in die eigene Bitmap:
  dc1 := GetDC(0);
  dc2 := g2.GetHdc();

  BitBlt(HDC(dc2), 0, 0, Screen.PrimaryScreen.WorkingArea.Width, Screen.PrimaryScreen.WorkingArea.Height, dc1, 0, 0, 13369376);
  ReleaseDC(0,dc1);
  g2.ReleaseHdc(dc2);

  Result := img;
end;

  //  Erzeugen einer neuen Bitmap mit den Maßen und der Farbtiefe des aktuellen Fensters:
begin
  img := system.Drawing.Bitmap.Create(Screen.PrimaryScreen.WorkingArea.Width, Screen.PrimaryScreen.WorkingArea.Height);
  g2  := Graphics.FromImage(img);
end.					

1:
2:
3:
4:
5:

  //  Erzeugen einer neuen Bitmap mit den Maßen und der Farbtiefe des aktuellen Fensters: 
begin 
  img := system.Drawing.Bitmap.Create(Screen.PrimaryScreen.WorkingArea.Width, Screen.PrimaryScreen.WorkingArea.Height); 
  g2  := Graphics.FromImage(img); 
end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

function CopyScreen : Image; 
var dc1     : HDC; 
    dc2     : IntPtr; 

begin 
  // Kopieren der Fenster-Bitmap in die eigene Bitmap: 
  dc1 := GetDC(0); 
  dc2 := g2.GetHdc(); 

  BitBlt(HDC(dc2), 0, 0, Screen.PrimaryScreen.WorkingArea.Width, Screen.PrimaryScreen.WorkingArea.Height, dc1, 0, 0, 13369376); 
  ReleaseDC(0,dc1); 
  g2.ReleaseHdc(dc2); 

  Result := img; 
end;