[admin]

В Delphi делается вот так

PHP код:

procedure TForm1.WMPowerBroadcast(var MyMessage: TMessage);
begin
   if MyMessage.WParam = PBT_APMSUSPEND  then .............

end; 


Подробности здесь