发信人: fishy()
整理人: (2000-07-16 11:30:07), 站内信件
|
【 在 crazy__man (疯狂男人) 的大作中提到: 】
: 各位,谢谢了!请说详细一点!!!
API声明:
Public Declare Function SystemParametersInfo Lib "user32" Alias "Syste mParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As Any, ByVal fuWinIni As Long) As Long
Public Const SPI_SCREENSAVERRUNNING = 97
禁用Ctrl+ESC等:
SystemParametersInfo SPI_SCREENSAVERRUNNING, 1, 0, 0
恢复:
SystemParametersInfo SPI_SCREENSAVERRUNNING, 0, 0, 0
-- Dim fishy As Friend
回复时请打勾
------------
欢迎大家访问酷码工作室:http://comma.my163.net
※ 来源:.月光软件站 http://www.moon-soft.com.[FROM: 202.103.37.14]
|
|