ログオン時に以前のフォルダーウィンドウを表示できない、を擬似的に解決できました！

#Requires AutoHotkey v2.0

saveFile := A_MyDocuments "\AutoHotkey\open_folders.txt"
prevFile := A_MyDocuments "\AutoHotkey\open_folders_prev.txt" ; 前回の内容を保存するファイル名

; 初回実行
SaveOpenFolders()

; タイマー設定
SetTimer(SaveOpenFolders, 30000) ; 30秒おき

SaveOpenFolders() {
    global saveFile, prevFile
    local folders, list, hwnd, title, potentialPath, file, currentContent, prevContent

    ; 1. 現在開いているフォルダを取得
    folders := ""
    list := []
    try {
        list := WinGetList("ahk_class CabinetWClass")
    } catch {
        list := [] ; エラー時は空リスト
    }

    if IsObject(list) && list.Length > 0 {
         for hwnd in list { ; Outer For Start
             try { ; Outer Try Start
                 if WinExist("ahk_id " hwnd) { ; Outer If 1 Start
                     title := WinGetTitle("ahk_id " hwnd)
                     if (title != "") { ; Outer If 2 Start
                         potentialPath := Trim(title)
                         if RegExMatch(potentialPath, "^([a-zA-Z]:\\|\\\\)") && !InStr(potentialPath, "::{") { ; Outer If 3 Start
                              isDuplicate := false
                              for _, existing in StrSplit(folders, "`n", "`r") { ; Inner For Start
                                  if Trim(existing) = potentialPath { ; Inner If Start
                                      isDuplicate := true
                                      break
                                  } ; Inner If End
                              } ; Inner For End

                              if !isDuplicate { ; Outer If 4 Start
                                   folders .= potentialPath . "`n"
                              } ; Outer If 4 End
                         } ; Outer If 3 End
                    } ; Outer If 2 End
                 } ; Outer If 1 End
             } catch {
                  ; 空のブロック。エラーは無視して次のループへ
             } ; Outer Try End
         } ; Outer For End
    }

    ; 2. 書き込む内容を決定 (空ならマーカー)
    currentContent := ""
    if (Trim(folders) != "") {
        currentContent := Trim(folders, "`n")
    } else {
        currentContent := "NO_OPEN_FOLDERS"
    }

    ; 3. 前回の内容と比較し、異なっていれば prevFile を更新
    prevContent := ""
    try {
        prevContent := FileRead(saveFile, "UTF-8")
    } catch {
        prevContent := ""
    } ; 前回の saveFile の内容を読む

    if (currentContent != prevContent) {
         if (Trim(prevContent) != "" && !InStr(prevContent, "NO_OPEN_FOLDERS")) {
             try {
                 file := FileOpen(prevFile, "w", "UTF-8")
                 if IsObject(file) {
                     file.Write(prevContent)
                     file.Close()
                 }
             } catch  {
                 ; エラー時は無視
             }
         } else if FileExist(prevFile) {
             try {
                 FileDelete(prevFile)
             } catch {
                 ; エラー時は無視
             }
         }
    }

    ; 4. 新しい内容 (currentContent) を saveFile に書き込み
    try {
        file := FileOpen(saveFile, "w", "UTF-8")
        if IsObject(file) {
            file.Write(currentContent)
            file.Close()
        }
    } catch  {
         ; エラー時は無視
    }
}

#Requires AutoHotkey v2.0

saveFile := A_MyDocuments "\AutoHotkey\open_folders.txt"
prevFile := A_MyDocuments "\AutoHotkey\open_folders_prev.txt" ; ★変更：バックアップとして prevFile を参照

content := ""
sourceFile := ""

; まず saveFile を試す
try {
    content := FileRead(saveFile, "UTF-8")
} catch {
    content := ""
}
OutputDebug("saveFile Content: " (content != "" ? StrLen(content) . " chars" : "Empty or Read Error"))

; saveFile が空、読めない、またはマーカーの場合は prevFile を試す
if (Trim(content) = "" || InStr(content, "NO_OPEN_FOLDERS")) {
    OutputDebug("saveFile is invalid, trying prevFile...")
    try {
        content := FileRead(prevFile, "UTF-8")
    } catch {
        content := ""
    }
    OutputDebug("prevFile Content: " (content != "" ? StrLen(content) . " chars" : "Empty or Read Error"))

    ; prevFile も空、読めない、またはマーカーなら諦める
    if (Trim(content) = "" || InStr(content, "NO_OPEN_FOLDERS")) {
        content := "" ; 復元対象なし
        OutputDebug("prevFile is also invalid. No restore target.")
    } else {
        sourceFile := prevFile ; prevFile から復元
        OutputDebug("Using prevFile for restore.")
    }
} else {
    sourceFile := saveFile ; saveFile から復元
    OutputDebug("Using saveFile for restore.")
}

; 復元対象があれば実行
if (content != "") {
    OutputDebug("Restoring folders from: " sourceFile)
    Loop Parse, content, "`n", "`r" {
        line := Trim(A_LoopField)
        if (line != "") {
            try {
                OutputDebug("Running: " line)
                Run line
                Sleep 100 ; 少し待機
            } catch {
                OutputDebug("Run Error for line: " line)
                MsgBox("フォルダを開けませんでした: " line, "復元エラー", 48)
            }
        }
    }
} else {
     OutputDebug("No folders to restore.")
}

ExitApp

#Requires AutoHotkey v2.0
#Warn  ; 警告を有効にしておくと開発に役立つ

global content := ""       ; 警告対策として明示的に初期化
global sourceFile := ""    ; 警告対策として明示的に初期化

saveFile := A_MyDocuments "\AutoHotkey\open_folders.txt"
prevFile := A_MyDocuments "\AutoHotkey\open_folders_prev.txt" ; ★変更：バックアップとして prevFile を参照

; まず saveFile を試す
try {
    content := FileRead(saveFile, "UTF-8")
} catch {
    content := ""
}
OutputDebug("saveFile Content: " (content != "" ? StrLen(content) . " chars" : "Empty or Read Error"))

; saveFile が空、読めない、またはマーカーの場合は prevFile を試す
if (Trim(content) = "" || InStr(content, "NO_OPEN_FOLDERS")) {
    OutputDebug("saveFile is invalid, trying prevFile...")
    try {
        content := FileRead(prevFile, "UTF-8")
    } catch {
        content := ""
    }
    OutputDebug("prevFile Content: " (content != "" ? StrLen(content) . " chars" : "Empty or Read Error"))

    ; prevFile も空、読めない、またはマーカーなら諦める
    if (Trim(content) = "" || InStr(content, "NO_OPEN_FOLDERS")) {
        content := "" ; 復元対象なし
        OutputDebug("prevFile is also invalid. No restore target.")
    } else {
        sourceFile := prevFile ; prevFile から復元
        OutputDebug("Using prevFile for restore.")
    }
} else {
    sourceFile := saveFile ; saveFile から復元
    OutputDebug("Using saveFile for restore.")
}

; 復元対象があれば実行
if (content != "") {
    OutputDebug("Restoring folders from: " sourceFile)
    Loop Parse, content, "`n", "`r" {
        line := Trim(A_LoopField)
        if (line != "") {
            ; フォルダが既に開かれていないか確認
            alreadyOpen := false
            for hwnd in WinGetList("ahk_class CabinetWClass") {
                try {
                    winPath := ""
                    winPath := WinGetTitle(hwnd)
                    if (InStr(line, winPath) || InStr(winPath, line)) {
                        alreadyOpen := true
                        OutputDebug("Folder already open: " winPath)
                        break
                    }
                } catch {
                    ; 無視
                }
            }

            if (!alreadyOpen) {
                try {
                    OutputDebug("Running: " line)
                    Run line
                    Sleep 100 ; 少し待機
                } catch {
                    OutputDebug("Run Error for line: " line)
                    ; すでにチェック済なので通常は出ない
                }
            } else {
                OutputDebug("Skipped opening (already open): " line)
            }
        }
    }
} else {
     OutputDebug("No folders to restore.")
}

ExitApp

#Requires AutoHotkey v2.0

; Kokodeka.exe のパス
exePath := "D:\Program Files\Kokodeka\Kokodeka.exe"
exeName := "Kokodeka.exe"

; 既に実行中か確認
if !ProcessExist(exeName) {
    try {
        Run exePath
        OutputDebug("Kokodeka.exe を起動しました。")
    } catch {
        MsgBox("Kokodeka.exe の起動に失敗しました。", "エラー", 16)
    }
} else {
    OutputDebug("Kokodeka.exe は既に起動中です。何もしません。")
}

ExitApp

#Requires AutoHotkey v2.0
#SingleInstance Force

Sleep(1000 * 60 * 2) ; 2分待機（PC起動後の遅延）
;Sleep(10) ; テストする場合はこちらのコメントを外す

; パス設定
logFile := A_MyDocuments "\AutoHotkey\cleanup_history.txt"
detailLogFile := A_MyDocuments "\AutoHotkey\cleanup_details.log"

; フォルダがなければ作成
if !DirExist(A_MyDocuments "\AutoHotkey")
    DirCreate A_MyDocuments "\AutoHotkey"

; 現在の日時（数値形式）
currentDate := FormatTime(, "yyyyMMddHHmmss")
logEntry := "実行開始: " FormatTime(, "yyyy-MM-dd HH:mm:ss") "`n"
try FileAppend logEntry, detailLogFile

; 前回の実行日時を取得（ログファイルに保存されている形式は yyyyMMddHHmmss）
lastRunDate := ""
if FileExist(logFile)
    lastRunDate := Trim(FileRead(logFile))

; 1週間経過判定
shouldCleanup := true
if lastRunDate != ""
{
    try {
        diff := DateDiff(lastRunDate, currentDate, "Days")
        if (diff < 7)
        {
            shouldCleanup := false
            logEntry := "前回の実行から " diff " 日なのでスキップします（前回: " lastRunDate "）`n"
            try FileAppend logEntry, detailLogFile
        }
    } catch as e {
        logEntry := "日付差分取得時エラー: " e.Message "`n"
        try FileAppend logEntry, detailLogFile
        ; 強制的に続行
        shouldCleanup := true
    }
}

if shouldCleanup
{
    tempFolders := [A_Temp, A_WinDir "\Temp"]
    deletedCount := 0
    skippedCount := 0

    logEntry := "クリーンアップを開始します:`n"
    try FileAppend logEntry, detailLogFile

    for folder in tempFolders
    {
        logEntry := "フォルダ処理中: " folder "`n"
        try FileAppend logEntry, detailLogFile

        try
        {
            Loop Files folder "\*.*", "FD"
            {
                try
                {
                    if InStr(FileGetAttrib(A_LoopFileFullPath), "D")
                    {
                        DirDelete A_LoopFileFullPath, 1
                    }
                    else
                    {
                        FileDelete A_LoopFileFullPath
                    }
                    deletedCount++
                    logEntry := "削除: " A_LoopFileFullPath "`n"
                    try FileAppend logEntry, detailLogFile
                }
                catch as e
                {
                    skippedCount++
                    logEntry := "スキップ: " A_LoopFileFullPath " (理由: " e.Message ")`n"
                    try FileAppend logEntry, detailLogFile
                    continue
                }
            }
        }
        catch as e
        {
            logEntry := "フォルダ処理エラー: " folder " - " e.Message "`n"
            try FileAppend logEntry, detailLogFile
            continue
        }
    }

    logEntry := "クリーンアップ完了: " FormatTime(, "yyyy-MM-dd HH:mm:ss") "`n"
    logEntry .= "削除されたアイテム: " deletedCount "`n"
    logEntry .= "スキップされたアイテム: " skippedCount "`n"
    logEntry .= "-----------------------------------`n"
    try FileAppend logEntry, detailLogFile

    ; 実行履歴を更新（数値形式で保存）
    try FileDelete logFile
    try FileAppend currentDate, logFile
}
else
{
    logEntry := "クリーンアップはスキップされました`n"
    logEntry .= "-----------------------------------`n"
    try FileAppend logEntry, detailLogFile
}

ExitApp