Антиэкранная заставка

[Veiron]

Есть плеер, как его заставить отменить в системе экранную заставку и прочую нечесть связанную со временем отклика пользователя на время проигрывания плеера? Сейчас банально используется TWindowsMediaPlayer.

[Greblin]

SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, 0, nil, 0); 
//включение заставки 
SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, 1, nil, 0);
//отключение заставки

[mutabor]

Симулируй время от времени активность мыши или клавы, вроде так это в плеерах делается.

[Veiron]

Наврятли это так делается в плеерах в том же WinMediaPlayer например, да и по описанию "Симулировать время от времени активность мыши или клавы" по моему будет сложнее в реализации.

[eoln]

Но следует учесть, что функция SystemParametersInfo не просто отключает заставку, а изменяет настройки системы, и после отключения заставки, она уже никогда не включится, пока снова её не включишь програмно или в свойствах экрана.
Нужно будет проверять была ли заставка или нет, а при выходе восстанавливать параметры системы. А если сбой? То пользователь так и останется без своеё любимой экранной заставки

[Veiron]

Сообщение от eoln

Но следует учесть, что функция SystemParametersInfo не просто отключает заставку, а изменяет настройки системы, и после отключения заставки, она уже никогда не включится, пока снова её не включишь програмно или в свойствах экрана.
Нужно будет проверять была ли заставка или нет, а при выходе восстанавливать параметры системы. А если сбой? То пользователь так и останется без своеё любимой экранной заставки

Мало того эта процедура почему то не работает в смысле не отключает заставку, в чем может быть проблема?

mutabor

Можно пример симуляции мыши или клавиатуры?

[mutabor]

Никогда не делал, пробуй сначала самое простое:
<компонент>.MouseMove(параметры);

[WOLFak]

на 1 раз схватает я проверил

procedure TForm1.Button1Click(Sender: TObject);
begin
 ShowCursor(false);
 form1.Timer1.Enabled:=true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 randomize;
 setcursorpos(random(400),random(400));
 ShowCursor(true);
 form1.Timer1.Enabled:=false;
end;

[WOLFak]

нужно только запомнить позицию старую и потом вернуть)))