Screenshot mit Maus und Kontextmenüs machen

[sCrAPt]

HiHo
Wenn ich mit folgendem Code ein Screenshot mache ist nie die Maus und Kontextmenüs mit drauf

Delphi-Quellcode:

procedure ScreenShot(var OurImage:TBitmap);
var DCPuffer, DC: HDC;
  Puffer: HBitmap;
  x, y: integer;
begin
  DC:=CreateDC('DISPLAY', nil, nil, nil);
  x:=screen.Width;
  y:=screen.height;
  DCPuffer:=CreateCompatibleDC(DC);
  Puffer:=CreateCompatibleBitmap(DC, x, y);
  SelectObject(DCPuffer,Puffer);
  BitBlt(DCPuffer, 0, 0, x, y, dc, 0, 0, srccopy);
  OurImage.Width:=x;
  OurImage.Height:=y;
  BitBlt(OurImage.canvas.Handle, 0, 0, x, y, DCPuffer, 0, 0, srcCopy);
  DeleteDC(DCPuffer);
  DeleteDC(DC);
end;

Wie kann ich das ändern?

, sCrAPt