类型：转载 责任编辑：asp.net 日期：2007/05/23
热门软件下载：
我在论坛最近发了一遍关于如何调用屏保的问题,也有高人也帮我解决了 但是高人太厉害了 我有点不是很明白 还请大家在给点意见哦
调用系统屏保：
定义实例变量
String li_active,li_Screen,li_Security
在Idle事件中：
RegisTryGet("Hkey_Current_user\control Panel\Desktop","ScreenSaveActive",RegString!,li_Active)
RegisTryGet("Hkey_Current_user\control Panel\Desktop","SCRNSAVE.EXE",RegString!,li_Screen)
RegisTryGet("Hkey_Current_user\control Panel\Desktop","ScreenSaverIsSecure",RegString!,li_security)
RegisTrySet("Hkey_Current_user\control Panel\Desktop","ScreenSaveActive",RegString!,1) // 是否起用屏保 1为启用，‘0’为不启用
RegisTrySet("Hkey_Current_user\control Panel\Desktop","ScreenSaverIsSecure",RegString!,1) //是否启用密码 ‘0’为否，‘1’为是
send(handle(w_main),274,61760,0) //发出命令调用屏保
//按你软件中的设置修改注册表并调用屏幕保护程序
在 Close 事件中：
RegisTrySet("Hkey_Current_user\control Panel\Desktop","ScreenSaveActive",RegString!,li_Active)
RegisTrySet("Hkey_Current_user\control Panel\Desktop","SCRNSAVE.EXE",RegString!,li_Screen) RegisTrySet("Hkey_Current_user\control Panel\Desktop","ScreenSaverIsSecure",RegString!,li_security)
//恢复系统原始设置
这样写就可以吗？谢谢！
网友回答：