Activar / Desactivar el salvapantallas de Windows

[dec]

Por medio del siguiente procedimiento es posible activar el "Salva pantallas" (configurado por el usuario) y también desactivarlo:

Código Delphi [-]
uses
  Windows, Messages;

procedure SalvaPantallas(const activar: boolean);
begin
  if activar then
    SendMessage(GetDesktopWindow,
      WM_SYSCOMMAND,SC_SCREENSAVE,0)
  else
    keybd_event(VK_ESCAPE,0,0,0);
end;