Bildschirmsperre verhindern?

[news2swen]

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