 sInstallMenuText
      SectionKey = sClassName &amp; "\shell\add\command"
      ValueKey = ""
      pSetClassValue sExePath &amp; " /a ""%1"""
   End If
   
   If (bSupportNew) Then
      SectionKey = sClassName &amp; "\shell\new"
      ValueKey = ""
      If (sNewMenuText = "") Then sNewMenuText = "&amp;New"
      pSetClassValue sNewMenuText
      SectionKey = sClassName &amp; "\shell\new\command"
      ValueKey = ""
      pSetClassValue sExePath &amp; " /n ""%1"""
   End If
   
   If lDefaultIconIndex &g