Fixed the problem where the "show desktop" item cannot be displayed or not displayed during quick start.

Dim HomePath As String

'Win2k later Systems
If GetOStype (). blnW2K Then
HomePath = Environ ("HOMEDRIVE") & Environ ("HOMEPATH ")
Else
HomePath = Environ ("windir") 'win9x
End If

'If there is no Quick Launch directory, create
If Dir $ (HomePath & "/Application Data/Microsoft/Internet Explorer/Quick Launch", vbDirectory) = "" Then

'If the directory is not saved, create
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 no desktop is displayed, generate
If Dir $ (HomePath & "/Application Data/Microsoft/Internet Explorer/Quick Launch/display desktop. scf") = "" Then
Open HomePath & "/Application Data/Microsoft/Internet Explorer/Quick Launch/display desktop. scf" For Append As #1
Print #1, "[Shell]"
Print #1, "Command = 2"
Print #1, "iconfilepolicer.exe, 3"
Print #1, "[Taskbar]"
Print #1, "Command = ToggleDesktop"
Close #1
End if