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