Thema: Delphi Monitor einschalten

Einzelnen Beitrag anzeigen

Benutzerbild von blawen
blawen

Registriert seit: 30. Nov 2003
Ort: Luterbach (CH)
730 Beiträge
 
Delphi 13 Florence
 
#11

AW: Monitor einschalten

  Alt 14. Okt 2025, 16:18
Manuell funktioniert es ja weiterhin, also Touch, Tastatur und Maus,
aber es muß doch auch möglich sein, das via Software zu erledigen.
Und wenn Du den Mausklick, bzw. deren Bewegung einfach softwareseitig simulierst?

Delphi-Quellcode:
procedure WakeUpMonitor;
var
  Input: TInput;
begin
  // Maus minimal bewegen, um Aktivität zu simulieren
  ZeroMemory(@Input, SizeOf(Input));
  Input.Itype := INPUT_MOUSE;
  Input.mi.dx := 0;
  Input.mi.dy := 1;
  Input.mi.dwFlags := MOUSEEVENTF_MOVE;
  SendInput(1, Input, SizeOf(Input));

  // Wieder zurückbewegen, damit Cursorposition gleich bleibt
  ZeroMemory(@Input, SizeOf(Input));
  Input.Itype := INPUT_MOUSE;
  Input.mi.dx := 0;
  Input.mi.dy := -1;
  Input.mi.dwFlags := MOUSEEVENTF_MOVE;
  SendInput(1, Input, SizeOf(Input));
end;
Roland
  Mit Zitat antworten Zitat