35 lines
683 B
AutoHotkey
35 lines
683 B
AutoHotkey
#Requires AutoHotkey v2.0
|
|
#NoTrayIcon
|
|
;Mit Strg, Shift + M wird ein leeres Textfile erzeugt.
|
|
#HotIf ("ahk_class CabinetWClass")
|
|
^+m::
|
|
{
|
|
WinID := WinGetID("ahk_class CabinetWClass")
|
|
CurrentPath := GetPath(WinID)
|
|
CreateFile(CurrentPath)
|
|
return
|
|
}
|
|
#HotIf
|
|
|
|
;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", " ")
|
|
}
|
|
}
|
|
|
|
;Schreibt die Datei
|
|
CreateFile(path)
|
|
{
|
|
file := path "/NewFile.txt"
|
|
if FileExist(file)
|
|
{
|
|
MsgBox "NewFile.txt bereits vorhanden"
|
|
return
|
|
}
|
|
FileAppend "", file
|
|
} |