[AutoHotkey v2] Redirect Explorer Windows

[Norn]

The redirection process hides the Explorer window and is normally invisible. The ini file is a configuration file and can be modified according to needs.

RedirectExplorerWindows_TrayMenu.png (21.11 KiB) Viewed 866 times

CLSID list

v1.0.6: Redirect Recycle Bin, correct regular expression.
v1.0.5: Added wildcard support to excluded list.
v1.0.4: Added excluded list, one per line.
v1.0.3: Fixed redirection Control Panel.

RedirectExplorerWindows_(AutoHotkey_v2)_v1.0.6.zip

(19.67 KiB) Not downloaded yet

RedirectExplorerWindows_(AutoHotkey_v2)_v1.0.5.zip

(19.39 KiB) Downloaded 57 times

RedirectExplorerWindows_(AutoHotkey_v2)_v1.0.4.zip

(19.1 KiB) Downloaded 38 times

RedirectExplorerWindows_(AutoHotkey_v2)_v1.0.zip

(16.69 KiB) Downloaded 39 times

[xy123]

This is perfect, thank you for sharing.

[autocart]

[d.romeo]

How to add a list of custom window names to exclude from re-addressing? For example, This PC||myPath?

[Norn]

Try v1.0.4.

Code: Select all

[excludeList_OnePerLine]
::{26EE0668-A00A-44D7-9371-BEB064C98683}
E:\Test

[d.romeo]

It doesn't seem to work, even the control panel doesn't work anymore:

Code: Select all

[RedirectToggle_1=SecondComandLine]
key=0
[TrayMenu_DarkMode]
key=1
[excludeList_OnePerLine]
::{26EE0668-A00A-44D7-9371-BEB064C98683}
*.pbd
Questo PC
This PC
C:

[Norn]

I added wildcard support in v1.0.5. This PC, Home, etc. need to use CLSID, such as::{20D04FE0-3AEA-1069-A2D8-08002B30309D}, or use a script to get it:

Code: Select all

#Requires AutoHotkey v2.0
f3::                         ; Press F3 to get the Explorer Selection
{
    explorerItems := explorerGetSelection()
	msgbox("Path Copied!`n" . explorerItems)
	A_Clipboard := explorerItems
}

explorerGetSelection(hwnd := WinExist("A")) {   ; by ntepa -- https://www.autohotkey.com/boards/viewtopic.php?p=529074#p529074
    if !RegExMatch(WinGetClass(hwnd), "^((?<Desktop>Progman|WorkerW)|CabinetWClass)$", &Match)
        return
    shellWindows := ComObject("Shell.Application").Windows
    ; get desktop or explorer window.
    if Match.Desktop ; 0x13 = VT_UI4, 0x8 = SWC_DESKTOP
        window := shellWindows.Item(ComValue(0x13, 0x8)).Document
    else {
        try activeTab := ControlGetHwnd("ShellTabWindowClass1", hwnd)
        for w in shellWindows {
		    try {
                if w.hwnd != hwnd
                    continue
                if IsSet(activeTab) {
                    IID_IShellBrowser := "{000214E2-0000-0000-C000-000000000046}"
                    shellBrowser := ComObjQuery(w, IID_IShellBrowser, IID_IShellBrowser)
                    ComCall(3, shellBrowser, "uint*", &thisTab:=0)
                    if thisTab != activeTab
                        continue
                }
                window := w.Document
                break
			}
        }
    }

    Items := ""
    try for i, in window.SelectedItems {
        Items .= (A_Index > 1 ? "`n" : "") i.Path ; append each selected item and add a new line.
    }
	else
        return window.Folder.Self.Path
	catch
	    for window in shellWindows
		    try if (window.hwnd==hwnd)
				for i, in window.SelectedItems
                    Items .= (A_Index > 1 ? "`n" : "") i.Path ; append each selected item and add a new line.

    return Items
}

[d.romeo]

It works, thank you very much. If there are new versions, I will download them immediately

[autocart]

This PC, Home, etc. need to use CLSID, such as::{20D04FE0-3AEA-1069-A2D8-08002B30309D}, ....

CLSID list

Ah, neat!