如何取得屏保的名称?

sunsley 2005-11-20 02:11:06

请问使用API在VB中可以取得现在屏保的名称吗?
如何取得?

...全文

172 3 打赏收藏转发到动态举报

写回复

用AI写文章

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

sunsley 2005-11-20

打赏
举报

谢谢狼行天下,这个问题解决了!

northwolves 2005-11-20

打赏
举报

屏保的名称及其他信息：

'先引用Registry Access Functions (RegTOOL5.dll)]:

Private Sub Command1_Click() ' get screensaver
Dim myReg As New Registry, ScreenSaveActive As String, savername As String, ScreenSaveTimeOut As String, ScreenSaverIsSecure As String, msg As String
myReg.GetKeyValue HKEY_CURRENT_USER, "Control Panel\Desktop", "ScreenSaveActive", ScreenSaveActive
myReg.GetKeyValue HKEY_CURRENT_USER, "Control Panel\Desktop", "ScreenSaverIsSecure", ScreenSaverIsSecure
myReg.GetKeyValue HKEY_CURRENT_USER, "Control Panel\Desktop", "ScreenSaveTimeOut", ScreenSaveTimeOut
myReg.GetKeyValue HKEY_CURRENT_USER, "Control Panel\Desktop", "SCRNSAVE.EXE", savername

msg = "savername" & vbTab & savername
msg = msg & vbCrLf & "ScreenSaveActive" & vbTab & CBool(ScreenSaveActive)
msg = msg & vbCrLf & "ScreenSaverIsSecure" & vbTab & CBool(ScreenSaverIsSecure)
msg = msg & vbCrLf & "ScreenSaveTimeOut " & vbTab & ScreenSaveTimeOut & " s"
MsgBox msg
End Sub

sunsley 2005-11-20