Delphi如何判断Windows系统是否安装了屏保，并获取屏保名称

Question

查注册表如下图，左边列出了6个已安装的屏保
右边的 ScreenSaveActive = 1 启用屏保, 0 为禁用
ScreenSaveTimeOut = 600 等待600秒（10分钟）后运行屏保
SCRNSAVE.EXE = C:\WINDOWS\system32\ssstars.scr 屏保程序的路径和名称
SCRNSAVE.EXE 这个程序负责运行屏保文件，屏保文件的扩展名.src上面这个ssstars.scr 就是XP中的“飞越星空”，但是这个屏保名称不知如何得到，只能知道文件名
应该也有对于的API可以查出，不过俺就不费那功夫查了

Answer 1

非常感谢：sololie 
另外能否知道这个屏保是否设置了密码？

Answer 2

顾名思义
ScreenSaverIsSecure = 1 即启用了密码，0反之