Solved

How do you stop the computers Monitor/Screensaver turning on?

Posted on 2010-09-08
6
524 Views
Last Modified: 2012-05-10
Hi, when my computer is turned on, and I stop moving the mouse after a set amount of time, the monitor would turn off, and then I move the mouse it turns back on, how do I stop the monitor turning on while I'm doing something.

needs to be programmable.

so its toggles on/off.
0
Comment
Question by:eNarc
6 Comments
 
LVL 65

Assisted Solution

by:rockiroads
rockiroads earned 125 total points
ID: 33632486
I dont have delphi environment running but hoping something below helos

this is not disabling or enabling screensaver, but a kind of workaround http://delphi.about.com/cs/adptips2001/a/bltip0901_5.htm

tweaking it the registry way http://delphi.about.com/od/windowsshellapi/a/tregistry.htm

this one talks about disabling http://www.delphicorner.f9.co.uk/articles/wapi11.htm
0
 
LVL 5

Expert Comment

by:Iekos
ID: 33632507
What version of Windows?
0
 
LVL 14

Expert Comment

by:systan
ID: 33632717
>>how do I stop the monitor turning on while I'm doing something.
Well don't touch the mouse or keyboard

If you really want to do that, use the "System Standby"
set your screen saver to 1 minute
set your turn off monitor for 2 minutes
set your system standby for 3 minutes
With that, nothing to worry, pressing the power again would start the computer again
And use also the hibernate.

There's no need to programmatically do that,  unless your building for other users for an application with that option.
0
Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

 
LVL 37

Assisted Solution

by:Geert Gruwez
Geert Gruwez earned 125 total points
ID: 33634078
just disable power saving in windows
and switch off the screen saver

right click on desktop > properties > power management

after the screen saver kicks in, it will switch on the monitor
you can switch it back off with this:

http://www.codeproject.com/KB/cs/Monitor_management_guide.aspx

Turn the monitor OFF, using:
SendMessage(ValidHWND, WM_SYSCOMMAND, SC_MONITORPOWER, MONITOR_OFF);

Put the monitor to STAND BY, using:
SendMessage(ValidHWND, WM_SYSCOMMAND, SC_MONITORPOWER, MONITOR_STANDBY);
0
 
LVL 19

Accepted Solution

by:
MerijnB earned 125 total points
ID: 33635411
Some code snippets:

 fScreenSaverActive: boolean;



 // store current setting

 SystemParametersInfo(SPI_GETSCREENSAVEACTIVE, 0, @fScreenSaverActive, 0);



 // disable screensaver

 SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, 0, nil, 0);



 // restore saved setting

 SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, cardinal(fScreenSaverActive), nil, 0);

Open in new window

0
 
LVL 14

Assisted Solution

by:systan
systan earned 125 total points
ID: 33635416
Well he doesn't want to disable it, he wants to disable the turnning back ON of the monitor,
in other words?,  he doesn't want the monitor to TURN-ON back, he always wants the monitor OFF.
What's that? a virus application? sorry for that, but it's unusual.

Here's the code;
unit Unit1;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, ExtCtrls;



const

MONITOR_OFF = 2;

MONITOR_ON = $FFFFFFFF;

MONITOR_STANDBY = 1;



type

  TForm1 = class(TForm)

    Timer1: TTimer;

    procedure FormCreate(Sender: TObject);

    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);

    procedure Timer1Timer(Sender: TObject);

  private

    { Private declarations }

  procedure WMSysCommand (var Msg: TWMSysCommand) ;

  message WM_SYSCOMMAND;



  public

    { Public declarations }

  end;



var

  Form1: TForm1;



implementation



{$R *.dfm}



procedure TForm1.WMSysCommand(var Msg: TWMSysCommand) ;

 begin

   if Msg.CmdType = SC_MONITORPOWER then

   begin

   timer1.Enabled := true;

   end;

   DefaultHandler(Msg) ;

 end;



procedure TForm1.FormCreate(Sender: TObject);

begin

timer1.Interval :=1;

timer1.Enabled :=false;

end;



procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);

begin

timer1.Enabled :=false;

SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, MONITOR_ON);

end;



procedure TForm1.Timer1Timer(Sender: TObject);

begin

SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, MONITOR_OFF);

end;



end.

Open in new window

0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Have you ever had your Delphi form/application just hanging while waiting for data to load? This is the article to read if you want to learn some things about adding threads for data loading in the background. First, I'll setup a general applica…
Hello everybody This Article will show you how to validate number with TEdit control, What's the TEdit control? TEdit is a standard Windows edit control on a form, it allows to user to write, read and copy/paste single line of text. Usua…
This Micro Tutorial will give you a basic overview how to record your screen with Microsoft Expression Encoder. This program is still free and open for the public to download. This will be demonstrated using Microsoft Expression Encoder 4.
This is used to tweak the memory usage for your computer, it is used for servers more so than workstations but just be careful editing registry settings as it may cause irreversible results. I hold no responsibility for anything you do to the regist…

920 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

18 Experts available now in Live!

Get 1:1 Help Now