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;