Posted on 2007-03-17
Medium Priority
Last Modified: 2008-01-09
Hi experts.
I need to intercept the power button press. Searching in msdn...I found that WM_POWERBROADCAST is responsable for this shutdown operation.
Can anyone help me use it?
Thanks a lot.
Question by:A. Cristian Csiki
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
LVL 28

Accepted Solution

2266180 earned 2000 total points
ID: 18742997
it's actually pretty straitforward:

unit Unit1;


  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    { Private declarations }
    procedure WMPowerBroadcast(var Msg: TMessage); message WM_POWERBROADCAST;
    { Public declarations }

  Form1: TForm1;


{$R *.dfm}

procedure TForm1.WMPowerBroadcast(var Msg: TMessage);
  showmessage('good night ');


with this code, you will get a "good night" message before the system goes into suspend and anotehr "good night" message when it returns.
LVL 28

Expert Comment

ID: 18743008
remove the
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
(it was a rip from another project and I forgot to remove those lines :D )
LVL 11

Author Comment

by:A. Cristian Csiki
ID: 18744229
Hi ciuly.
Glad once again you help me. I tried checking your code, but nothing happens. I tried even to put a memo and save the WMPowerBroadcast msg in a log file from that procedure but still nothing.
One more thing. If I press the power button or I go Start-SHutdown-SHutdown is the same msg that receives WMPowerBroadcast?

Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!


Expert Comment

ID: 18746869
LVL 28

Expert Comment

ID: 18746911
if you don't get that message, the first thing that gets into my mind is the following quote from MSDN: "Client      Requires Windows Vista, Windows XP, Windows 2000 Professional, or Windows NT Workstation 4.0." (from here: http://msdn2.microsoft.com/en-us/library/aa373247.aspx)
are you running from one of these?

"If I press the power button or I go Start-SHutdown-SHutdown is the same msg that receives WMPowerBroadcast?"
no. that message is WM_EndSession.
LVL 21

Expert Comment

ID: 18747288
>>WM_POWERBROADCAST is responsable for this shutdown operation

WM_QUERYENDSESSION and WM_ENDSESSION are sent when shutting down
according to MSDN:
"The WM_POWERBROADCAST message is broadcast to an application to notify it of power-management events" if you look at possible wParam values you'll see that this message is sent when computer is about to resume/suspend or is switching from battery power to A/C.

LVL 11

Author Comment

by:A. Cristian Csiki
ID: 18750861
HI all.
Got the point with  WM_QUERYENDSESSION and WM_POWERBROADCAST. I'm running win xp sp2 with delphi 7 pro. Still can't trap the power button press, or the shutdown caused by it.

I even trieded a component found on www.CTVNet.ch, but not working. I don't know what I miss....

Any ideas?

Featured Post

What does it mean to be "Always On"?

Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.

Question has a verified solution.

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

Objective: - This article will help user in how to convert their numeric value become words. How to use 1. You can copy this code in your Unit as function 2. than you can perform your function by type this code The Code   (CODE) The Im…
In my programming career I have only very rarely run into situations where operator overloading would be of any use in my work.  Normally those situations involved math with either overly large numbers (hundreds of thousands of digits or accuracy re…
This is my first video review of Microsoft Bookings, I will be doing a part two with a bit more information, but wanted to get this out to you folks.
Visualize your data even better in Access queries. Given a date and a value, this lesson shows how to compare that value with the previous value, calculate the difference, and display a circle if the value is the same, an up triangle if it increased…
Suggested Courses
Course of the Month11 days, 16 hours left to enroll

752 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