dec
07-06-2006, 19:24:44
Por medio del siguiente procedimiento es posible activar el "Salva pantallas" (configurado por el usuario) y también desactivarlo:
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;
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;