Ruhezustand mit WindowsDienst abfangen oder abfragen

[JacK_Silent]

heyaaa =D

Ich hab einen Windows Dienst programmiert (mit der von Delphi gegeben Komponente "Service-Anwendung").
Allerdings lässt sich damit der Ruhezustand nicht abfragen!

Folgender Code funktioniert bei einer normalen Form1:

Delphi-Quellcode:

unit Unit1;  

 
interface  

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

 
type  
  TForm1 = class(TForm)  
  private  
    { Private-Deklarationen }  
  public  
    { Public-Deklarationen }  
    procedure WMPowerBroadcast(var Msg: TMessage); message WM_POWERBROADCAST;  
  end;  

 
const  
PBT_APMQUERYSUSPEND = $0000;   
PBT_APMQUERYSTANDBY = $0001;   

 
PBT_APMQUERYSUSPENDFAILED = $0002;  
PBT_APMQUERYSTANDBYFAILED = $0003;   

 
PBT_APMSUSPEND = $0004;   
PBT_APMSTANDBY = $0005;  

 
PBT_APMRESUMECRITICAL = $0006;   
PBT_APMRESUMESUSPEND = $0007;   
PBT_APMRESUMESTANDBY = $0008;   

 
PBTF_APMRESUMEFROMFAILURE = $00000001;   

 
PBT_APMBATTERYLOW = $0009;   
PBT_APMPOWERSTATUSCHANGE = $000A;   

 
PBT_APMOEMEVENT = $000B;   
PBT_APMRESUMEAUTOMATIC = $0012;  

 
var  
  Form1: TForm1;  

 
implementation  

 
{$R *.dfm}  

 
procedure TForm1.WMPowerBroadcast(var Msg: TMessage);  
begin  
   showmessage('PowerBroadcast erhalten');  
    if (Msg.WParam = PBT_APMSUSPEND) or  
       (Msg.WParam = PBT_APMSTANDBY)  
    then begin   
      // windows want to go into standby or hibernation mode   
      // Hier hin, was getan werden muss, bevor Windows in den Standby darf,   
      // z.B. Netzwerk- oder Datenbankverbindungen trennen, Timer abstellen, etc.  
      showmessage('Standby/Ruhezustand');  
      Msg.Result := 1; // allow standby/hibernation  
      //Msg.Result := BROADCAST_QUERY_DENY; // deny standby/hibernation  
 
    end else if (Msg.WParam = PBT_APMRESUMECRITICAL) or  
                (Msg.WParam = PBT_APMRESUMESUSPEND) or  
                (Msg.WParam = PBT_APMRESUMESTANDBY)  
    then begin  
      // windows returns from standby or hibernation  
      // Hier z.B. Verbindungen wiederherstellen  
      showmessage('Rückkehr aus Standby/Ruhezustand');  
    end;   
  end;   
  //inherited WndProc(MyMessage);  
 

 
end.

Allerdings nicht in der Service Komponente! Er bringt zwar beim kompilieren keinen Fehler. Allerdings bekommt er auch nicht mit, dass der PC in den Ruhezustand geht.