Как запустить текущий ScreenSaver

SendMessage(Application.Handle, WM_SYSCOMMAND, SC_SCREENSAVE, 0);

Взято с http://delphiworld.narod.ru

Сначала мы проверяем, установлен ли Screen Saver, если нет - возвращаемся с отрицательным ответом, в противном случае - запускаем его и возвращаем true.

function RunScreenSaver: bool;

var

 b: boolean;

begin

 result := false;

 if SystemParametersInfo(SPI_GETSCREENSAVEACTIVE, 0, @b, 0) <> true then

  exit;

 if not b then

  exit;

 PostMessage(GetDesktopWindow, WM_SYSCOMMAND, SC_SCREENSAVE, 0);

 result := true;

end;


DelphiWorld 6.0

Отправить комментарий

Проверка
Антиспам проверка
Image CAPTCHA
...