AutoHotkey: Entpacke jedes Archiv in ein separates Verzeichnis

Script Lösung 1

Jedesmal wenn der Entpackendialog durch Alt+F6 oder Alt+F9 aufgerufen wird, erhält die Checkbox Entpacke jedes Archiv in separates Verzeichnis (Name des Archivs) automatisch einen Haken und der Fokus wird zurück auf die Eingabezeile für den Pfad gesetzt. Im Gegensatz zur 2. Lösung verbraucht dieses Script keine Resourcen, dafür funktioniert es nur mit den Hotkeys, nicht jedoch wenn der Entpackdialog durch einen Button, einen Menüeintrag oder anders aufgerufen wird.

; Falls immer ins aktive Fenster entpackt werden soll, muss nur das Semicolon  
; zu Beginn der beiden Zeilen ;Send {DEL} entfernt werden.

~!F6::
If WinActive("ahk_class TTOTAL_CMD") or WinActive("ahk_class TDLGUNZIPALL")
{
  WinWaitActive, ahk_class TDLGUNZIPALL
  ControlSend, TCheckBox1, {SPACE}
  ControlFocus, TEdit2
  ;Send {DEL}
}
Return

~!F9::
If WinActive("ahk_class TTOTAL_CMD") or WinActive("ahk_class TDLGUNZIPALL")
{
  WinWaitActive, ahk_class TDLGUNZIPALL
  ControlSend, TCheckBox1, {SPACE}
  ControlFocus, TEdit2
  ;Send {DEL}
}
Return

Script Lösung 2

Im Gegensatz zur ersten Lösung beansprucht dieses Script ein wenig Prozessorleistung durch seine ständige Überwachung. Der Vorteil ist aber, dass der Aufruf des Entpackdialogs in jedem Fall den Haken setzt.

; Falls immer ins aktive Fenster entpackt werden soll, muss nur das Semicolon  
; zu Beginn der Zeile ;Send {DEL} entfernt werden.

Loop
{
  WinWaitActive, ahk_class TDLGUNZIPALL
  ControlSend, TCheckBox1, {SPACE}
  ControlFocus, TEdit2
  ;Send {DEL}
  WinWaitNotActive, ahk_class TDLGUNZIPALL
}
Return

Script Lösung 3

Wenn man Strg+Alt+Umsch+F9 drückt, entpackt dieses Script automatisch die gewählten Archive in Unterverzeichnisse des aktuellen Verzeichnisses.

$^!+F9::
IfWinActive ahk_class TTOTAL_CMD
{
	PostMessage, 1075, 509
	WinWaitActive, ahk_class TDLGUNZIPALL
	Send, {Del}
	Control, Check, , TCheckBox1
	Send, {Enter}
}
else
	Send ^!+{F9}
return

---

->Zurück zu AutoHotkey