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?

:angle:, sCrAPt

[alcaeus]

Soviel ich weiß wird die Maus bei einem Screenshot nie mitkopiert, z.B. auch nicht beim Drücken der Druck-Taste. Das Problem mit den Kontextmenüs kenn ich auch nicht, ist das Kontextmenü in deinem Programm? Wie löst du denn den Screenshot aus?

[Meflin]

doch, bei der druck taste ist die maus drauf (leider, wie ich meine)

[S2B]

Also bei mir nicht... :gruebel:

Edit: Also Corel Capture zeichnet den Cursor manuell dazu, da man sogar einen anderen Cursor auswählen kann!

[S2B]

Ich habs gefunden! Klick

[sCrAPt]

Gut, aber dann hab ich noch das Kontextmenü-Problem.
Wenn ich (in XP) z.B. auf Start>Alle Programme gehe und ein Screenshot mache, dann hab ich die Liste der Programme nicht drauf, weil die (soweit ich weiß) auch nur ein "Kontextmenü" (oder halt abgeleitet davon) ist.

:angle:, sCrAPt