screenshot mit mauszeiger...

[ake]

hallo,

mit dem code kann ich einen screenshot erstellen:
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;

aber ich möchte einen screenshot mit mauszeiger, hat jemand eine idee wie ich den zeiger auch noch auf die grafik bekomme?
mfg
ake

[Robert Marquardt]

Mal ihn doch einfach hinterher rein