screen saver
Como faço para desligar um screen saver através de código sem precisar teclar ou mexer o mouse ? Carreguei um .SCR do próprio Windows com o comando ShellExecute. Obrigado
Anonymous
Curtidas 0
Respostas
Anonymous
07/02/2003
Talvez isso lhe ajude :
Ele primeiro verifica se o protetor de tela está em execução
Function IsScreensaverRunning: Boolean;
var
old: Bool;
begin
SystemParametersInfo( SPI_SCREENSAVERRUNNING, 0, @old, 0 );
Result := old;
If old Then
Begin
SystemParametersInfo( SPI_SCREENSAVERRUNNING, 1, @old, 0 );
End; { If }
end;
Se estiver em execução simule o pressionamento de uma tecla
keybd_event( VK_SPACE, MapVirtualkey( VK_SPACE, 0 ), 0, 0);
keybd_event( VK_SPACE, MapVirtualkey( VK_SPACE, 0 ), KEYEVENTF_KEYUP, 0);
Espero ter ajudado.
Ele primeiro verifica se o protetor de tela está em execução
Function IsScreensaverRunning: Boolean;
var
old: Bool;
begin
SystemParametersInfo( SPI_SCREENSAVERRUNNING, 0, @old, 0 );
Result := old;
If old Then
Begin
SystemParametersInfo( SPI_SCREENSAVERRUNNING, 1, @old, 0 );
End; { If }
end;
Se estiver em execução simule o pressionamento de uma tecla
keybd_event( VK_SPACE, MapVirtualkey( VK_SPACE, 0 ), 0, 0);
keybd_event( VK_SPACE, MapVirtualkey( VK_SPACE, 0 ), KEYEVENTF_KEYUP, 0);
Espero ter ajudado.
GOSTEI 0