Как из программы запустить Screen Saver в Delphi?

function TurnScreenSaverOn : bool; 
var
  b : bool; 
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;
1 Звезда2 Звезды3 Звезды4 Звезды5 Звезд (14 оценок, среднее: 4,79 из 5)
Загрузка...
Добавить комментарий