Hallo in die Runde
ich möchte gern während mein Programm läuft verhindern, dass sich der Bildschirmschoner aktiviert. Ziel ist es, ein 'Anzeigetool zu programmieren, welches auf Rechnern läuft, welche via Vorgabe von IT-Secure nach 15 Minuten Inaktivität gespertt werden (Bildschirmschonersperre mit Passworteingabe).
Ich habe nach langer Suche immer wieder die gleiche Lösung gefunden, aber die funktioniert leider nicht
Delphi-Quellcode:
procedure THF.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);
begin
if (msg.message = WM_SYSCOMMAND) and (msg.wparam = SC_SCREENSAVE) then
begin
Msg.wParam := 0;
Msg.message := sc_Move;
Handled := true;
end;
end;
Die Message kommt zwar an und es wird auch in die Routine gesprungen, allerdings sperrt sich der Bildschirm trotzdem.
Betriebssystem ist Windows 7