|
 |
推荐文章 |
|
|
|
|
|
|
|
|
|
|
| 作者：本站收集 日期：2005-8-4 11:33:35 |
|
|
如何关闭ScreenSave功能, 改变Timeout时间
此外希望只有本次使用 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 |
|
|
|
|
|
|
特别声明： 本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。 |
|
|
|
|
|
责任编辑： 原点 |
投稿作者： 本站收集 |
|
|
信息来源： 网络 |
录入时间： 2005-8-4 11:33:35 |
|
|
|
| |
|
设为首页
加入收藏
总编信箱
投稿或申请专栏请先 [登 陆]