Как запустить текущий ScreenSaver |
Previous Top Next |
SendMessage(Application.Handle, WM_SYSCOMMAND, SC_SCREENSAVE, 0);
©Drkb::02378
Взято с http://delphiworld.narod.ru
Сначала мы проверяем, установлен ли Screen Saver, если нет - возвращаемся с отрицательным ответом, в противном случае - запускаем его и возвращаем true.
Code: |
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; |
©Drkb::02379
DelphiWorld 6.0