Как отключить хранитель экрана

Встречаются два юзера. Один другому:
- Что-то лицо мне ваше знакомо, вы в скринсейверах не снимались?

procedure TForm1.Button1Click(Sender: TObject);
begin
  {Turn it off}
  SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, 0, nil, 0);

  {Turn it on}
  SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, 1, nil, 0);
end;

Обсудить статью на форуме

Если Вас заинтересовала или понравилась информация по разработке на Delph - "Как отключить хранитель экрана", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!