Deactivate Screensaver/Power States while game is running

[tux]

Client Requires: Windows Vista, Windows XP, or Windows 2000 Professional.
Server Requires: Windows Server "Longhorn", Windows Server 2003, or Windows 2000 Server.

from http://msdn2.microsoft.com/en-us/library/aa373208.aspx

[Grendelus]

The SetThreadExecutionState function cannot be used to prevent the user from putting the computer in standby mode. Applications should respect that the user expects a certain behavior when they close the lid on their laptop or press the power button.

This function does not stop the screen saver from executing either.

Uh, I tried the above code, but it seems it indeed doesn't prevent the screensaver from popping in.

[czar]

Did u try my code?

I have never had any problems with it.

[Clootie]

The SetThreadExecutionState function cannot be used to prevent the user from putting the computer in standby mode. Applications should respect that the user expects a certain behavior when they close the lid on their laptop or press the power button.

This function does not stop the screen saver from executing either.

Uh, I tried the above code, but it seems it indeed doesn't prevent the screensaver from popping in.

Are you sure that you are not misinterpretting documentation?

Multimedia applications, such as video players and presentation applications, must use ES_DISPLAY_REQUIRED when they display video for long periods of time without user input.

[Grendelus]

[pascal]library setthread;

uses
Windows,
Messages;

type
EXECUTION_STATE = DWORD;

const
ES_SYSTEM_REQUIRED = DWORD($00000001);
ES_DISPLAY_REQUIRED = DWORD($00000002);
ES_USER_PRESENT = DWORD($00000004);
ES_CONTINUOUS = DWORD($80000000);

function SetThreadExecutionState(esFlags: EXECUTION_STATE): EXECUTION_STATE; stdcall; external kernel32;

function Xclusive : pchar; stdcall;
begin
SetThreadExecutionState(ES_DISPLAY_REQUIRED or ES_CONTINUOUS);
end;

exports Xclusive;
begin end.[/pascal]

When I tried to implement into a dll it does not work.
I MUST be doing something wrong here.

[Grendelus]

Has anyone got any workarounds to this?

[Sly]

Did you try czar's code? Every application that is currently running gets notified when the screen saver is about to become active, or power save is about to be enabled, and the application has a chance to stop it.

Use czar's code along with Clootie's code and you should be covered from all angles.

[Grendelus]

Problem is that I want it implemented in a dll, and don't know what are equivalents for TForm1, Msg etc...

EDIT: I found this while googling, looks a lot like czar's code.

Disabling screen saver temporarily
If you want to turn off the screen saver while your program is running, you don't have to disable the Windows screen saver at all. Just define the following method to handle the appropriate Windows message:

procedure TForm1.AppMessage (var Msg: TMsg; var Handled: boolean);
begin
  if (Msg.Message = WM_SYSCOMMAND) and (Msg.wParam = SC_SCREENSAVE) then
    Handled := true;
end;

{On the form's OnCreate event, assign}

Application.OnMessage := AppMessage;

Problem again is that I don't know how I am supposed to substitute Application.OnMessage and the like in the dll...

*is it me or the pascal tags do not work?[/code]