要用到RegSaveKey:【VB声明】
  Private Declare Function RegSaveKey Lib "advapi32.dll" Alias "RegSaveKeyA" (ByVal hKey As Long, ByVal lpFile As String, lpSecurityAttributes As SECURITY_ATTRIBUTES) As Long【别名】
  RegSaveKeyA【说明】
  将一个项以及它的所有子项都保存到一个磁盘文件 【返回值】
  Long,零(ERROR_SUCCESS)表示成功。其他任何值都代表一个错误代码 【参数表】
  hKey -----------  Long,一个已打开项的句柄,或指定一个标准项名  lpFile ---------  String,要在其中保存注册表信息的一个磁盘文件的名字  lpSecurityAttributes -  SECURITY_ATTRIBUTES,为保存的信息提供的安全信息。可设为NULL,表示采用默认的安全信息(变成ByVal
  As Long,并传递零值)