AutoHotkey v2｜ショートカット設定をINIへ保存する方法と練習例

#Requires AutoHotkey v2.0

NormalizeBindings(values) {
    if values.Length != 3
        throw ValueError("Exactly three shortcuts are required")
    result := []
    seen := Map()
    for value in values {
        value := Trim(value)
        if !RegExMatch(value, "^(?:\^!|!\^)([1-9])$", &match)
            throw ValueError("Use Ctrl+Alt+1 through Ctrl+Alt+9")
        key := "^!" match[1]
        if seen.Has(key)
            throw ValueError("Duplicate shortcut")
        seen[key] := true
        result.Push(key)
    }
    return result
}

ReadBindings(path) {
    if !FileExist(path)
        return ["^!1", "^!2", "^!3"]
    values := []
    Loop 3
        values.Push(IniRead(path, "Script" A_Index, "hotkey", ""))
    return NormalizeBindings(values)
}

SaveBindings(values, path) {
    values := NormalizeBindings(values)
    if FileExist(path ".backup")
        throw Error("Backup already exists; preserve it before another save")
    temp := path ".new-" A_TickCount
    if FileExist(temp)
        throw Error("Temporary output already exists")
    if FileExist(path)
        FileCopy(path, path ".backup", false)
    Loop 3
        IniWrite(values[A_Index], temp, "Script" A_Index, "hotkey")
    FileMove(temp, path, true)
    return values
}

#Requires AutoHotkey v2.0
#SingleInstance Force
#Include binding_store.ahk

iniPath := A_ScriptDir "\settings.ini"
try values := ReadBindings(iniPath)
catch as err {
    MsgBox "設定を読み込めません。元のINIを確認してください。`n" err.Message
    ExitApp
}

; メモ帳が前面のときだけ、保存済みキーを有効にする。
HotIfWinActive("ahk_exe notepad.exe")
for index, key in values
    Hotkey(key, Demo.Bind(index))
HotIf()

window := Gui(, "練習ショートカット設定")
window.AddText(, "Ctrl+Alt+1～9から、重複しない3つを選びます。")
inputs := []
for index, key in values {
    window.AddText("xm", "練習 " index)
    inputs.Push(window.AddHotkey("x+15 w160", key))
}
window.AddButton("xm w210", "保存（次回起動から反映）").OnEvent("Click", Save)
window.OnEvent("Close", (*) => ExitApp())
window.Show()

Demo(index, *) {
    MsgBox "練習 " index " のショートカットです。"
}

Save(*) {
    global inputs, iniPath
    selected := []
    for control in inputs
        selected.Push(control.Value)
    try {
        SaveBindings(selected, iniPath)
        MsgBox "保存しました。画面を閉じて再起動すると反映されます。"
    } catch as err {
        MsgBox "保存できませんでした。`n" err.Message
    }
}

#Requires AutoHotkey v2.0
if A_Args.Length != 1 || !FileExist(A_Args[1]) {
    MsgBox "対象アプリの実在するEXEパスを1つ指定してください。"
    ExitApp
}
; 既に動作中のアプリへ合流すると、PIDが一致しない場合がある。
Run('"' A_Args[1] '"', , , &pid)
hwnd := WinWait("ahk_pid " pid, , 10)
if !hwnd {
    MsgBox "10秒以内に、このPIDの画面を確認できませんでした。"
    ExitApp
}
WinMinimize("ahk_id " hwnd)
; ウィンドウを閉じず、最小化だけを行う。