Auf Ein/Aus-Schalter reagieren

[himitsu]

da ham die doch nich schonwieder was ausgebaut

na dann bleibt wohl doch nur noch der Tastaturhook.

und hast du's schonmal über WM_POWERBROADCAST versucht?


z.B. etwa so:

Delphi-Quellcode:

Type TMainForm = Class(TForm)
    ...
  Private
    Procedure WMPowerBroadcast(Var Msg: TMessage); Message WM_POWERBROADCAST;
  End;


Procedure TMainForm.WMPowerBroadcast(Var Msg: TMessage);
  Begin
    If Msg.WParam in [PBT_APMQUERYSUSPEND, PBT_APMQUERYSTANDBY] Then 
      Msg.Result := BROADCAST_QUERY_DENY
    Else Inherited;
  End;

ach, und dat hab'sch grad über Google gefunden:
http://www.delphipraxis.net/internal...ct.php?t=17958