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

[Fritzew]

MSDN :

Zitat:

If password protection is enabled by policy, the screen saver is started regardless of what an application does with the SC_SCREENSAVE notification

Wenn es eine Vorgabe der / des Admins ist hast Du verloren

[t.roller]

Delphi-Quellcode:

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

Oder so:

Delphi-Quellcode:

  private
    { Private-Deklarationen }
    procedure WMSysCommand(var Msg: TMessage); message WM_SYSCOMMAND;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.WMSysCommand(var Msg: TMessage);
begin
Panel1.Color:= clRed; //nur Anzeige, dass Routine durchlaufen wird
  if Msg.wParam = SC_SCREENSAVE then
    Msg.Result := 1
  else
    inherited;
end;

[Der schöne Günther]

Bildschirmsperre ≠ Bildschirmschoner.

Was du verhindern könntest wäre der evtl. eintretende Standby/Ruhezustand nach x Minuten Leerlauf aber nicht die Systemvorgabe die Session nach einer bestimmten Leerlaufzeit zu sperren.

[dummzeuch]

Zitat:

Zitat von news2swen (Beitrag 1370350)

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)

[Der schöne Günther]

Alter Schwede, das ist aber wirklich ... fies 8-) :twisted:

[HolgerX]

Hmm..

Die Geschichten mit WMSysCommand( oder (msg.wparam = SC_SCREENSAVE) funktionieren nicht mehr wirklich.

Gerade wenn in ner Domaine per GruppenRichtline die Bildschirmsperre aktiviert wird.


Ab Windows 7 geht dass nur noch mit

PowerCreateRequest
PowerSetRequest
PowerClearRequest

richtig.

Bei Windows XP/2003 gab es

SetThreadExecutionState


Mit beiden Wegen wird dem Betriebssystem mitgeteilt, das hier ein Process/Thread läuft, der nicht unterbrochen werden darf.
Als Parameter kann da neben dem Ruhezustand auch Display-Sperre u.ä. angegeben und verhindert werden.

Hatte da mal eine Unit erstellt, welche die für einen kleinen Videoplayer benutzt hat.
(Nichts ist schlimmer als beim Video schauen immer wieder die Maus zu bewegen.

Alternativ geht das über SentInput, indem du so eine Tastatur-Betätigung simulierst.
Dieses muss dann per Timer immer wieder erfolgen.

[himitsu]

Zitat:

Zitat von news2swen (Beitrag 1370350)

Delphi-Quellcode:

    if (msg.message = WM_SYSCOMMAND) and (msg.wparam = SC_SCREENSAVE) then
    begin
       Msg.wParam := 0;
        Msg.message := sc_Move;
        Handled := true;
    end;

Das soll jemals funktioniert haben?

Was Interessiert es Windows, ob dein Programm diese Message anders verarbeitet?
Wenn, dann kann und wird Windows maximal auf das Result achten.

[Metschu]

Hilft das hier eventuell weiter?

*klick*

[HolgerX]

Hmm...

Zitat:

Zitat von Metschu (Beitrag 1370428)

Hilft das hier eventuell weiter?

*klick*

Wieso ein externes Tool verwenden, wenn es über die API auch direkt richtig geht und dafür seitens Microsoft auch so vorgesehen ist? ;)

Such mal hier im Forum nach

PowerCreateRequest
PowerSetRequest
PowerClearRequest

SetThreadExecutionState

Es sind bereits in Vergangenheit genau diese Punkte bereits besprochen worden...