修复快速启动不能显示或没有「显示桌面」项的问题
2011-05-07 12:57
696 查看
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
'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
相关文章推荐
- 桌面上的快速启动里的显示桌面图标没有了的解决办法
- 解决快速启动中显示桌面消失问题
- 桌面快速启动栏里的“显示桌面”没有的解决办法
- 如果快速启动中显示桌面图标没有了怎么办?
- ubuntu14.04登陆后只显示桌面文件,快速启动栏不显示,终端不能打开
- 修复Ubuntu分区挂载错误,Grub引导错误,ubuntu升级后不能显示桌面等问题
- 关于Android开发中启动应用但桌面不显示图标的问题
- 如何恢复快速启动栏中的“显示桌面”
- 显示桌面快速启动
- 修复MongoDB数据库,解决因Unclean Shutdown导致服务不能启动的问题
- 恢复"快速启动”栏中的“显示桌面”按钮
- 没有找到MFC80UD.DLL,,因此这个应用程序未能启动。重新安装应用程序可能会修复此问题。”
- 没有找到cxcore100.dll,因此这个应用程序未能启动,重新安装应用程序可能会修复此问题
- Windows XP系统用还原点启动后 Delphi 7代码编辑器的保留字显示问题修复
- 没有找到 framedyn.dll,因此这个应用程序未能启动。重新安装应用程序可能会修复此问题。
- 修复升级myeclipseforspring-8.6插件后不能启动的问题
- windows恢复“快速启动”栏中的“显示桌面”按钮
- 如何在快速启动项里添加“显示桌面”
- 没有找到mfc90ud.dll,因此这个应用程序未能启动.重新安装应用程序可能会修复此问题
- 显示桌面 快速启动的恢复办法(小诀窍)