GDrive-context-menu

GDcontext.ahk

; 初期状態でGoogle Driveコンテキストメニューは無効
setRegistry(false)

; エクスプローラがアクティブの時のみ有効
#IfWinActive, ahk_exe explorer.exe
{
    ; 左シフト押下時にレジストリ有効
    ~LShift::
        setRegistry(true)
    return

    ; 左シフトを離したときにレジストリ無効
    ~LShift Up::
        setRegistry(false)
    return


    setRegistry(enable) {
        prefix:="-"
        if (enable) {
            prefix:=""
        }

        ; (既定)キーに対して書き込み, -{値}でコンテキストメニュー無効化
        
        ; ディレクトリのコンテキストメニュー設定
        RegWrite, REG_SZ, HKEY_CLASSES_ROOT\Directory\shellex\ContextMenuHandlers\GDContextMenu, , %prefix%{BB02B294-8425-42E5-983F-41A1FA970CD6}
        RegWrite, REG_SZ, HKEY_CLASSES_ROOT\Directory\shellex\ContextMenuHandlers\DriveFS 28 or later, , %prefix%{EE15C2BD-CECB-49F8-A113-CA1BFC528F5B}
        
        ; ファイルのコンテキストメニュー設定
        RegWrite, REG_SZ, HKEY_CLASSES_ROOT\*\shellex\ContextMenuHandlers\GDContextMenu, , %prefix%{BB02B294-8425-42E5-983F-41A1FA970CD6}
        RegWrite, REG_SZ, HKEY_CLASSES_ROOT\*\shellex\ContextMenuHandlers\DriveFS 28 or later, , %prefix%{EE15C2BD-CECB-49F8-A113-CA1BFC528F5B}
    }
}
#IfWinActive

; スクリプト停止時は有効化
OnExit("exitFunc")

; Reverts back to enabling drive on exit.
exitFunc() {
    setRegistry(true)
    ExitApp
}