Bildschirmsperre verhindern?

[t.roller]

Neuer Versuch (funktioniert mit WIN8.1)

Delphi-Quellcode:

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
if  (msg.wparam = SC_SCREENSAVE) then
    begin
        Msg.wParam := 0;
        keybd_event(0,0,0,0); // simuliert Tastendruck
        Panel1.Color:= clRed; //nur Anzeige, dass Routine durchlaufen wird
        Handled := true;
    end;
end;