ずんだもん「Windowsのライト/ダークテーマをワンクリック切り替えするミニアプリを作るのだ」

Last updated at 2025-06-22Posted at 2025-06-22

はじめに

ずんだもん「きりたん、Windows11ってダークモードがあるの便利なのだな。でもテーマ切り替え、毎回設定ウインドウを開くの地味にめんどいのだ～😭」

きりたん「それならPowerShellスクリプトをEXE化して、スタートメニューから一発で切り替えられるようにしましょうか。」

どんなことをするの？

ずんだもん「どんな流れでやるのか教えてほしいのだ！」

きりたん「こんなかんじですよ。」

テーマ切り替え用のPowerShellスクリプトを作る
それをps2exeでEXE化する
スタートメニューにショートカットを自動で作る

スクリプト全文

きりたん「これが全自動スクリプト！管理者権限で実行してくださいね」

Create-Win11Theme-SwitcherApp.ps1

# -----------------------------------------------------------
# このスクリプトはWindowsのライト/ダークテーマを切り替えるEXEを自動生成し、
# スタートメニューにショートカットを作成します。
#
# 実行には管理者権限が必要です。
# -----------------------------------------------------------

# 説明文をシアン色で表示
$description = @"
このスクリプトはWindowsのライト/ダークテーマを切り替えるEXEを自動生成し、
スタートメニューにショートカットを作成します。

実行には管理者権限が必要です。
"@
Write-Host $description -ForegroundColor Cyan

try {
    # ユーザーのドキュメントフォルダを取得
    $documents = [Environment]::GetFolderPath([Environment+SpecialFolder]::MyDocuments)
    $ps1Path = Join-Path $documents "ThemeSwitcher.ps1"
    $exePath = Join-Path $documents "ThemeSwitcher.exe"
    $shortcutPath = "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\ThemeSwitcher.lnk"

    # ps2exeの存在を確認し、なければ対話式でインストール
    if (-not (Get-Command ps2exe -ErrorAction SilentlyContinue)) {
        $answer = Read-Host "ps2exeが見つかりません。インストールしますか？ (y/n)"
        if ($answer -eq 'y' -or $answer -eq 'Y') {
            Write-Host "ps2exeをインストールしています..." -ForegroundColor Cyan
            Install-Module -Name ps2exe -Force -Scope CurrentUser
        } else {
            Write-Host "ps2exeのインストールがキャンセルされたため、スクリプトを終了します。" -ForegroundColor Red
            exit
        }
    } else {
        Write-Host "ps2exeは既にインストールされています。" -ForegroundColor Green
    }

    # テーマ切り替え用のPowerShellスクリプトを作成
    $scriptContent = @'
$currentTheme = Get-ItemPropertyValue -Path HKCU:\SOFTWARE\Microsoft\Windows\CurrentVersion\Themes\Personalize -Name AppsUseLightTheme
Set-ItemProperty -Path HKCU:\SOFTWARE\Microsoft\Windows\CurrentVersion\Themes\Personalize -Name AppsUseLightTheme -Value (1 - $currentTheme) -Type DWord -Force
Set-ItemProperty -Path HKCU:\SOFTWARE\Microsoft\Windows\CurrentVersion\Themes\Personalize -Name SystemUsesLightTheme -Value (1 - $currentTheme) -Type DWord -Force
Stop-Process -Name explorer -Force
Start-Process explorer.exe -WindowStyle Hidden
'@
    $scriptContent | Set-Content -Encoding UTF8 $ps1Path

    # ps1ファイルをEXEに変換
    Write-Host "PowerShellスクリプトをEXEに変換中..." -ForegroundColor Cyan
    ps2exe $ps1Path $exePath -noConsole

    # 変換後のps1ファイルを自動削除
    if (Test-Path $ps1Path) {
        Remove-Item -Path $ps1Path -Force
        Write-Host "一時的に作成したps1ファイルを削除しました。" -ForegroundColor Green
    }

    # スタートメニューにショートカットを作成
    $ws = New-Object -ComObject WScript.Shell
    $sc = $ws.CreateShortcut($shortcutPath)
    $sc.TargetPath = $exePath
    $sc.WorkingDirectory = $documents
    $sc.Save()
    Write-Host "スタートメニューにショートカットを作成しました。" -ForegroundColor Green

    Write-Host "すべて正常に完了しました！" -ForegroundColor Green
}
catch {
    # エラー発生時はウィンドウを閉じず、詳細なメッセージを表示
    Write-Host "エラーが発生しました：" -ForegroundColor Red
    Write-Host $_.Exception.Message -ForegroundColor Red
    Write-Host "処理を中断します。" -ForegroundColor Red
}