Mam taki kod:
procedure TForm1.WMSYSCommand(var M : TMessage);
begin
if (M.WParam and $fff0) = SC_SCREENSAVE then
if (M.wParam and $fff0) = SC_MONITORPOWER then
end;
lecz po minimalizacji aplikacji bądz wrzuceniu do traya nie...
Zależy mi na tray bo aplikacja ma blokować wygaszacz...