Как запустить текущий 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

http://delphiworld.narod.ru/

DelphiWorld 6.0