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

// Capture the entire screen
// Screenshot des gesamten Bildschirms
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;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

//-- EDIT: Druck
keybd_event(VK_SNAPSHOT , 0, 0, 0);
keybd_event(VK_SNAPSHOT , 0, KEYEVENTF_KEYUP, 0);


//-- EDIT: Alt + Druck
keybd_event(VK_MENU , 0, 0, 0);
keybd_event(VK_SNAPSHOT , 0, 0, 0);
keybd_event(VK_SNAPSHOT , 0, KEYEVENTF_KEYUP, 0);
keybd_event(VK_MENU , 0, KEYEVENTF_KEYUP, 0);