Bildschirmsperre verhindern?

[HolgerX]

Hmm..

Zitat von 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;

Das mag (vielleicht) den ScreenSaver aufhalten, jedoch nicht die Benutzerabmeldung!