Экранная заставка

← →
ElectriC © (2007-08-29 15:47) [0]

Как проверить, программно, включена ли экранная заставка?

← →
ElectriC © (2007-08-29 16:19) [1]

А всё разобрался! Ветку можно закрыть.

← →
Denis_ © (2007-08-29 17:02) [2]

Удалено модератором
Примечание: Оффтоп...

← →
TStas © (2007-08-29 23:22) [3]

Ну раз разобрались, то напишите, мне интересно стало.

← →
Юрий Зотов © (2007-08-30 07:57) [4]

Кроме старых версий (NT и 95):
function IsScreenSaverRunning: boolean; begin SystemParametersInfo(SPI_GETSCREENSAVERRUNNING, 0, @Result, 0) end;» Юрий Зотов:» Поправка: тип результата BOOL, а не boolean.

← →
ElectriC © (2007-08-31 15:58) [5]

Чет я не совсем пойму.
Запускаю заставку так: PostMessage(GetDesktopWindow, WM_SYSCOMMAND, SC_SCREENSAVE, 0);
Останавливаю заставку (кликаю или двигаю курсором мыши).
Затем проверяю:
function ScreenSaver : Boolean;
var Status : Bool;
begin
SystemParametersInfo(SPI_GETSCREENSAVEACTIVE, 0, @Status, 0);
Result := Status = True;
end;
Функция ScreenSaver говорит, что заставка отключена. Смотрю в настройки
экранной заставка, заставка включена(т.б. допустим у меня установлена "Объёмный текст"). Пытаюсь запустить программно - ничего не выходит.
Вопрос решается, когда заново выбрать заставку и нажать OK.
Не подскажите в чём дело?

Проверьте, что в коде именно SPI_GETSCREENSAVEACTIVE, а не SPI_SETSCREENSAVEACTIVE

Проверил! В коде SPI_GETSCREENSAVEACTIVE. Всё равно тоже [5].

Экранная заставка Найти похожие ветки