减小字体
增大字体- ·上一篇文章：取得Window, System, Temp所在目录
- ·下一篇文章：如何取得与设定、删除Registry内的值
如何关闭ScreenSave功能, Timeout时间
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
喜欢这些内容嘛，请告诉你身边的朋友，易下载中心－QQ资源－itnetcn.com一起享受这份乐趣，本站内容来源互联网
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
喜欢这些内容嘛，请告诉你身边的朋友，易下载中心－QQ资源－itnetcn.com一起享受这份乐趣，本站内容来源互联网
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
如何关闭ScreenSave功能, Timeout时间
作者: cww
此外希望只有本次使用 Windows 时改变(下次开机时还原原状)， 则
最後叁数改为 SPIF_SENDWININICHANGE (没有SPIF_UPDATEINIFILE)
Const SPI_SETSCREENSAVEACTIVE = 17
Const SPI_SETSCREENSAVETIMEOUT = 15
Const SPIF_SENDWININICHANGE = &H2
Const SPIF_UPDATEINIFILE = &H1
Private Declare Function SystemParametersInfo Lib "user32" Alias _
"SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, _
ByVal lpvParam As Long, ByVal fuWinIni As Long) As Long
Private Sub SetScreenSaveTimeout(ByVal BySecond As Long)
Call SystemParametersInfo(SPI_SETSCREENSAVETIMEOUT, BySecond, 0, _
SPIF_UPDATEINIFILE + SPIF_SENDWININICHANGE)
End Sub
Private Sub EnableScreenSave()
Call SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, 1, 0, _
SPIF_UPDATEINIFILE + SPIF_SENDWININICHANGE)
End Sub
Private Sub DisableScreenSave()
Call SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, 0, 0, _
SPIF_UPDATEINIFILE + SPIF_SENDWININICHANGE)
End Sub
-
