ich möchte gern während mein Programm läuft verhindern, dass sich der Bildschirmschoner aktiviert.
Betriebssystem ist Windows 7
Seit Windows 7 funktionieren die alten Methoden nicht mehr. Nur eines tut's noch: Regelmäßiges Simulieren einer Mausbewegung durch
SendInput
Delphi-Quellcode:
procedure JiggleMouse;
var
Inpt: TInput;
begin
Inpt.Itype := INPUT_MOUSE;
Inpt.mi.dx := 0;
Inpt.mi.dy := 0;
Inpt.mi.mouseData := 0;
Inpt.mi.dwFlags := MOUSEEVENTF_MOVE;
Inpt.mi.Time := 0;
Inpt.mi.dwExtraInfo := 0;
SendInput(1, Inpt, SizeOf(Inpt));
end;
(Code aus
u_dzOsUtils)