Ver Mensaje Individual
  #1  
Antiguo 07-06-2006
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.119
Reputación: 34
dec Tiene un aura espectaculardec Tiene un aura espectacular
Activar / Desactivar el salvapantallas de Windows

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;
Responder Con Cita