/*
;作者:QQ1576157
;时间:2017年1月7日21:10:39
; 功能: 从注册表获取特殊路径,此方法以支持以下特殊路径,AutoHotkey虽然支持一些特殊路径但还是不全。
;原理:遍历HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders
;可获得路径包括以下特殊位置
CD Burning
PrintHood
{374DE290-123F-4565-9164-39C4925E467B}
Templates
Start Menu
Startup
SendTo
Recent
Programs
Personal
NetHood
My Video
My Pictures
My Music
Local AppData
History
Favorites
Desktop
Cookies
Cache
AppData
*/
dir:=getSpec("Desktop")
;~ dir:=getSpec("My Video")
if InStr(FileExist(dir), "D")
Run %dir%
;~ Run,%ComSpec%, %dir%
else
MsgBox 出错
return
getSpec(str)
{
Loop, Reg, HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders, KVR
{
if a_LoopRegType = key
value =
else
{
RegRead, value
if ErrorLevel
value = *error*
}
;~ MsgBox, 4, , %a_LoopRegName% = %value% (%a_LoopRegType%)`n`nContinue?
;~ IfMsgBox, NO, break
if (a_LoopRegName=str) ;桌面在注册表中为Desktop,注意加上引号
break
}
;~ dir:=ParseCmdLine(value)
;~ StringTrimRight,UserProfileDir, A_AppData, 16
;~ StringReplace, dir, value, `%USERPROFILE`%, % UserProfileDir, All
Transform,dir,Deref,%value%
return dir
}
参考:
实现当前目录下开启CMD - N3verL4nd - 博客园 http://www.cnblogs.com/lgh1992314/p/5834693.html
得到win7 win8的桌面句柄 - whatday的专栏 - 博客频道 - CSDN.NET http://blog.csdn.net/whatday/article/details/8714573