E语言 开启或关闭屏保代码

开启或关闭屏保代码
利用user32.dll的SystemParametersInfoA并规定4个参数来控制屏幕保护

dll命令代码:
.版本 2

.DLL命令 SystemParametersInfo, 整数型, "user32", "SystemParametersInfoA"
    .参数 uAction, 整数型
    .参数 uParam, 整数型
    .参数 lpvParam, 整数型, , Any型,根据需要可以设置成不同的类型
    .参数 fuWinIni, 整数型

程序代码:
.版本 2

.子程序 _按钮1_被单击

SystemParametersInfo (15, 1, 0, 2)  ' 第二个参数是几秒后开始屏保

.子程序 _按钮2_被单击

SystemParametersInfo (17, 0, 0, 2)