Código
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);
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009