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:

procedure ScreenShot(Bild: TBitMap);
var
  c : TCanvas;
  r : TRect;
begin
  c:= TCanvas.Create;
  c.Handle := GetWindowDC (GetDesktopWindow);
  try
    r := Rect(0,0,screen.width,screen.height);
    Bild.Width := screen.Width;
    Bild.Height := screen.Height;
    Bild.Canvas.CopyRect(r, c, r);
  finally
    ReleaseDC(0,c.handle);
    c.Free;
  end;
end;

procedure ScreenShotActiveWindow(Bild: TBitMap);
var
  c : TCanvas;
  r, t : TRect;
  h : THandle;
begin
  c := TCanvas.Create;
  c.Handle := GetWindowDC(GetDesktopWindow);
  h := GetForeGroundWindow;
  if h<>0 then
    GetWindowRect(h, t);
  try
    r := Rect(0,0,t.Right-t.left, t.Bottom-t.Top);
    Bild.Width := t.Right-t.left;
    Bild.Height := t.Bottom-t.Top;
    Bild.Canvas.CopyRect(r, c, t);
  finally
    ReleaseDC(0, c.handle);
    c.Free;
  end;
end;