F1:: ;get the path for folders/special folders/Control Panel items
WinGet, hWnd, ID, A

for oWin in ComObjCreate("Shell.Application").Windows
	if (oWin.HWND = hWnd)
	{
    try MsgBox % oWin.Document.Folder.Self.Path
	}
return

以下为2016年发布的 

ControlGetText,folder, ToolbarWindow322,ahk_class CabinetWClass
folder:=StrReplace(folder,"地址:","")
MsgBox %folder%