Delphi-PRAXiS - Delphi Mauszeiger immer anzeigen [flackert]?

Hallo,

ich habe eine kleine App gebastelt, die mir ständig screenshots erstellt. Das funktioniert sehr schön.
Das Problem ist jetzt aber, daß Windows offenbar beim Erstellen des Screenshots den Mauszeiger kurz ausblendet (ich weiß, wie ich ihn in den Screenshot wieder reinbringe). Dadurch flackert er ständig, solange meine App läuft.

Gibts eine Möglichkeit, daß der Mauszeiger immer angezeigt wird (auch wenn er trotzdem nicht im Screenshot abgebildet wird)?

Wie ich den Screenshot mache (quelle //https://www.tek-tips.com/viewthread.cfm?qid=1661178 ), vielleicht ist das Verhalten ja auch Teil dieses Codes:

Delphi-Quellcode:

			function TakeScreenshot(var bmp: TBitmap; MonitorNumber: Integer): Boolean;

const

  CAPTUREBLT = $40000000;

var

  DesktopCanvas: TCanvas;

  DC: HDC;

  Left, Top: Integer;

begin

  Result := False;

  if (MonitorNumber > Screen.MonitorCount) then

  Exit;

  DC:= GetDC(0);

  try

    if (DC = 0) then

    Exit;

    if (MonitorNumber = 0) then begin

      Bmp.Width := Screen.DesktopWidth;

      Bmp.Height := Screen.DesktopHeight;

      Left := Screen.DesktopLeft;

      Top := Screen.DesktopTop;

    end else begin

      Bmp.Width := Screen.Monitors[MonitorNumber-1].Width;

      Bmp.Height := Screen.Monitors[MonitorNumber-1].Height;

      Left := Screen.Monitors[MonitorNumber-1].Left;

      Top := Screen.Monitors[MonitorNumber-1].Top;

    end;

    DesktopCanvas := TCanvas.Create;

    try

      DesktopCanvas.Handle := DC;

      Result := BitBlt(

        Bmp.Canvas.Handle,

        0,

        0,

        Bmp.Width,

        Bmp.Height,

        DesktopCanvas.Handle,

        Left,

        Top,

        SRCCOPY or CAPTUREBLT

      );

      Result:= True;

    finally

      DesktopCanvas.Free;

    end;

  finally

    if (DC <> 0) then

    ReleaseDC(0, DC);

  end;

end;