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

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