

Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long
Const spiSetScreenSaverRunning = 97&
...
Call SystemParametersInfo(spiSetScreenSaverRunning, 1&, ByVal 0&, 0&)
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 5