Private 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' блокировка ONCall SystemParametersInfo)SPI_SCREENSAVERRUNNING, True, "1", 0: ' блокировка OFFCall SystemParametersInfo)SPI_SCREENSAVERRUNNING, False, "1", 0: