admin 管理员组

文章数量: 1184232


'★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★显示桌面
Const CSIDL_APPDATA = &H1A
Const MAX_PATH = 260
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Declare Function SHGetSpecialFolderPath Lib "shell32.dll" Alias _
"SHGetSpecialFolderPathA" (ByVal hwndOwner As Long, _
ByVal lpszPath As String, ByVal nFolder As Long, ByVal fCreate As Long) As Long
'声明

Dim strBuffer As String
Dim strPath As String
strBuffer = String$(MAX_PATH, 0)
SHGetSpecialFolderPath Me.hwnd, strBuffer, CSIDL_APPDATA, 0
strPath = Left$(strBuffer, InStr(1, strBuffer, Chr$(0)) - 1)
strPath = strPath & "\Microsoft\Internet Explorer\Quick Launch\显示桌面.scf"
ShellExecute Me.hwnd, "Open", strPath, "", "", 1
'启动
'★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★显示桌面

本文标签： 显示桌面 编程 的创建与

版权声明：本文标题：显示桌面快捷方式的创建与使用 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.roclinux.cn/p/1773840616a3566323.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。