修复快速启动不能显示或没有「显示桌面」项的问题

        Dim HomePath As String
    
        'WIN2K之后的系统
        If GetOStype().blnW2K Then
          HomePath = Environ("HOMEDRIVE") & Environ("HOMEPATH")
        Else
          HomePath = Environ("windir")          'Win9x
        End If
    
        '如果没有Quick Launch目录，则先创建
        If Dir$(HomePath & "/Application Data/Microsoft/Internet Explorer/Quick Launch", vbDirectory) = "" Then
      
          '如果目录不存生，则先创建
          If Dir$(HomePath & "/Application Data/Microsoft/Internet Explorer", vbDirectory) = "" Then
            MkDir HomePath & "/Application Data/Microsoft/Internet Explorer"
          End If
          MkDir HomePath & "/Application Data/Microsoft/Internet Explorer/Quick Launch"
        
        End If
    
        '如果没有「显示桌面」，则生成
        If Dir$(HomePath & "/Application Data/Microsoft/Internet Explorer/Quick Launch/显示桌面.scf") = "" Then
          Open HomePath & "/Application Data/Microsoft/Internet Explorer/Quick Launch/显示桌面.scf" For Append As #1
            Print #1, "[Shell]"
            Print #1, "Command = 2"
            Print #1, "IconFile=explorer.exe,3"
            Print #1, "[Taskbar]"
            Print #1, "Command = ToggleDesktop"
          Close #1
        End If