AutoHotkey 设置在当前文件夹打开TotalCommander

CapsLock & .:: ; total commander
folder := GetActiveExplorerPath()
script := """D:\ProgramFiles\totalcmd\totalcmd.exe"" /R=""" . folder . """"
Run, % script, % folder , Max , ; without folder
Return

GetActiveExplorerPath()
{
	explorerHwnd := WinActive("A")
  if (explorerHwnd)
	{
		for window in ComObjCreate("Shell.Application").Windows
		{
			if (window.hwnd==explorerHwnd)
			{
        folder := window.Document.Folder.Self.Path
				return folder
			}
		}
	}
}