Einzelnen Beitrag anzeigen

SearchBot

Registriert seit: 27. Jun 2004
Ort: N-W vom Bodensee
232 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#1

Mauszeiger immer anzeigen [flackert]?

  Alt 25. Sep 2018, 01:29
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;
  Mit Zitat antworten Zitat