Обновлено: 01 декабря, 2018

Как из программы запустить 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;

(14 оценок, среднее: 4,79 из 5)

Загрузка...