13 lines
254 B
AutoHotkey
13 lines
254 B
AutoHotkey
#Requires AutoHotkey v2.0
|
|
#NoTrayIcon
|
|
|
|
;Ermittelt den aktuellen Pfad
|
|
GetPath(_hwnd)
|
|
{
|
|
for w in ComObject("Shell.Application").Windows
|
|
if (w.hwnd = _hwnd)
|
|
{
|
|
path := StrReplace(w.LocationURL, "file:///")
|
|
return StrReplace(path, "%20", " ")
|
|
}
|
|
} |