用API的RegSaveKey导出注册表的 Reg 文件用RegRestoreKey怎么导回注册表?
用RegSaveKey 导出注册表 Reg文件用 RegRestoreKey 可以导加注册表吗?
我用下面的代码保存和和恢复注册表,可是在恢复的时候会出错,提示只能在Win32模式下使用?
怎么办,还有其它办法导回用RegSaveKey导出的注册表文件吗?
Private Sub Command1_Click()
Dim hKey As Long
Dim ret As Long
Dim Buffer As String
ret = RegOpenKey(HKEY_CURRENT_USER, "Software\VB and VBA Program Settings\MySoft", hKey)
If ret <> 0 Then GoTo PROC_EXIT
ret = RegSaveKey(hKey, "C:\abc.reg", ByVal 0&)
If ret <> 0 Then GoTo PROC_EXIT
PROC_EXIT:
If ret <> 0 Then
Buffer = Space$(200)
Call FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM, ByVal 0&, ret, LANG_NEUTRAL, Buffer, 200, ByVal 0&)
Call MsgBox(Buffer, vbCritical, "ERROR")
End If
If hKey <> 0 Then Call RegCloseKey(hKey)
End Sub
Private Sub Command2_Click()
Dim hKey As Long
Dim ret As Long
Dim Buffer As String
ret = RegOpenKey(HKEY_CURRENT_USER, "Software\VB and VBA Program Settings\", hkey)
If ret <> 0 Then GoTo PROC_EXIT
ret = RegRestoreKey(hkey, "C:\abc.reg", ByVal 0&)
'ret = RegRestoreKey(HKEY_CURRENT_USER, "D:\abc.reg", 0&)
If ret <> 0 Then GoTo PROC_EXIT
PROC_EXIT:
If ret <> 0 Then
Buffer = Space$(200)
Call FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM, ByVal 0&, ret, LANG_NEUTRAL, Buffer, 200, ByVal 0&)
Call MsgBox(Buffer, vbCritical, "ERROR")
End If
If hKey <> 0 Then Call RegCloseKey(hKey)
End Sub