Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Trucos (https://www.clubdelphi.com/foros/forumdisplay.php?f=52)
-   -   Activar / Desactivar el salvapantallas de Windows (https://www.clubdelphi.com/foros/showthread.php?t=80409)

dec 07-06-2006 20:24:44

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;


La franja horaria es GMT +2. Ahora son las 20:51:03.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi