Tim/winconfig
1
1
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Lib eingehängt

Browse Source
This commit is contained in:
Tim Susa
2023-04-21 07:17:37 +02:00
parent 2a8fb28d7f
commit 6d01db3ef4
1 changed files with 2 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
configs/autohotkey/NewTxt.ahk
View File

@@ -1,5 +1,7 @@
#Requires AutoHotkey v2.0 #Requires AutoHotkey v2.0
#Include Lib.ahk
#NoTrayIcon #NoTrayIcon
;Mit Strg, Shift + M wird ein leeres Textfile erzeugt. ;Mit Strg, Shift + M wird ein leeres Textfile erzeugt.
#HotIf ("ahk_class CabinetWClass") #HotIf ("ahk_class CabinetWClass")
^+m:: ^+m::
@@ -11,17 +13,6 @@
} }
#HotIf #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 ;Schreibt die Datei
CreateFile(path) CreateFile(path)
{ {