用代码打开屏幕保护

下面的函数检测屏幕保护器是否可用，是的话就把它打开：
源代码网推荐
源代码网推荐 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;