Bildschirmsperre verhindern?

[dummzeuch]

Zitat von news2swen:

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)