Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 340
  • Last Modified:

Terminate when screensaver activates

Hi, Thanks for your site..
I'm using Delphi 3
I need my application to Terminate
when the Windows Screensaver is
Activated.
Please help me...I'm stuck with this.
Thanks again
Fernandez
0
fernandez
Asked:
fernandez
1 Solution
 
DValeryCommented:
You can use API function:

SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, FALSE, 0, 0)


0
 
SeregaCommented:
You can send any mouse message (WM_MBUTTONDOWN) to screensaver window. It handle you can find by using WindowFromPoint() function at any point of the screen.
0
 
craig_capelCommented:
unit Unit1;

 interface

 uses
   Windows, Messages, SysUtils, Classes,
   Graphics, Controls, Forms, Dialogs;

 type
   TForm1 = class(TForm)
   private
     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
   //trap the message and set its result to -1
   if (Msg.CmdType = SC_SCREENSAVE) then
 begin
    // Msg.Result := -1
    Close; //Close Down Program!
end
   else
     inherited;
 end;

 end.

This will close your delphi program down when the screen saver activates... exactly how you asked.... :)

Craig C.
0
 
fernandezAuthor Commented:
Thanks a lot
Your just saved my day
steven :)
0

Featured Post

Concerto's Cloud Advisory Services

Want to avoid the missteps to gaining all the benefits of the cloud? Learn more about the different assessment options from our Cloud Advisory team.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now