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:

{Screen-Shot des im Vordergrund befindlichen Fensters erstellen}
procedure ScreenCaptureForeGroundWindow;
var H: THandle;
    DC: HDC;
    Canvas: TCanvas;
    AImage: TImage;
    ARect: TRect;
    AWidth, AHeight: integer;
begin
 H := GetForegroundWindow;
 DC := GetWindowDC(H);

 Windows.GetWindowRect(H, ARect);

 AWidth := ARect.Right-ARect.Left;
 AHeight := ARect.Bottom-ARect.Top;

 ARect := Rect(0, 0, AWidth, AHeight);

 AImage :=  TImage.Create(Application);
 Canvas := TCanvas.Create;
 try
  Canvas.Handle := DC;

  AImage.Width := AWidth;
  AImage.Height := AHeight;
  AImage.Canvas.CopyRect(ARect, Canvas, ARect);

  ClipBoard.Assign(AImage.Picture.Bitmap);

 finally
  Canvas.Free;
  AImage.Free;
  ReleaseDC(H, DC);
 end;
end;