screen saver
07/02/2003
0
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
Curtir tópico
+ 0
Responder
Posts
07/02/2003
Anonymous
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.
Responder
Clique aqui para fazer login e interagir na Comunidade :)