ドキュメントの「右クリック」－「送る」に「メモ帳」を追加しようと思い検索．
SendTo フォルダに NotePad.exe のショートカットを作成すれば良い．
これはいつも行っていることなので知っていたが，新しいしことを見つけた．
【Windows】右クリックメニュー［送る］の活用方法、追加・設定方法（SendToディレクトリの場所一覧）
Windows10 「送る」によく使うフォルダーを追加する方法(SendTo)
送る（sendto）、スタートアップ（startup）のフォルダに簡単にアクセスする方法　|　Windows10

「ファイル名を指定して実行」やエクスプローラのアドレス欄に shell:sendto と入力すると対応するフォルダを開くことができる．

Shell コマンドで開く特殊フォルダー一覧
::SHGetFolderPath にあたる機能みたい．
今は ::SHGetKnownFolderPath ．
CSIDL が FOLDERID ．

Shell Extension で，縮小版の背景に GDI+ を使用して，どうも動作が安定しなくなった．
現象としては，環境によるが explorer.exe が「応答なし」に．
　　GDI+ の GdiplusShutdown の呼び方が悪かったみたいで，DllCanUnloadNow で終わらせる様にした．
また，今回デバッグ用にダンプする様にしていて，そのファイルをエクスプローラで選択しようとするとフリーズ．
　　これは，デフォルトでは出力しないことで回避．

今回これらをやっていて，以前から面倒と思っていた ShellExt.dll のデバッグ．
デバッグ版.dll が呼ばれる様に設定して，普通の exe で「開く」ダイアログで dll 内をデバッグできる．

Vector
https://jml.mish.work/i-tools.html

以前，デスクトップ上のウィンドウを操作したいことがあった．

ToggleDT.scf
[Shell]
Command=2
IconFile=explorer.exe,3
[Taskbar]
Command=ToggleDesktop

TileVert.vbs
Set objShell = CreateObject(“Shell.Application”)
objShell.TileVertically

TileHorz.vbs
Set objShell = CreateObject(“Shell.Application”)
objShell.TileHorizontally

CascadeW.vbs
Set objShell = CreateObject(“Shell.Application”)
objShell.CascadeWindows

//**************************************************************************************************
// ファイル名 ：ＣｔｒｌＤｓｋＴ．ｃｘｘ
// 機能名 ：デスクトップの制御
// 作成者 ：
// 作成年月日 ：’０７／０８／０８
// 変更履歴 ：
//**************************************************************************************************
//
#include <Afx.h>

#include "DelFileE.hxx"
#include "CharMFC.hxx"
#include "ShellExc.hxx"
#include "HelpAPI.hxx"
#include "CtrlDskT.hxx"

////
//*******************************************************************************
// 関数名 ：デスクトップの表示
// 作成日 ：’０７／０８／０８
//*******************************************************************************
// http://support.microsoft.com/kb/190355/ja
// クイック起動バーに [デスクトップの表示] アイコンを再登録する方法
BOOL ControlDesktop::ToggleDesktop (void)
{
　　CString td_scf = ::GetTempPath()+_T("Command.tmp\\") + _T("ToggleDT.scf") ;
　　if (::FileIsNothing(td_scf)) {
　　// "デスクトップの表示.scf" の生成
　　　　::CreateEmptyFile(td_scf) ;
　　　　CString tdCmd ;
　　　　tdCmd += _T("[Shell]\r\n") ;
　　　　tdCmd += _T("Command=2\r\n") ;
　　　　tdCmd += _T("IconFile=explorer.exe,3\r\n") ;
　　　　tdCmd += _T("[Taskbar]\r\n") ;
　　　　tdCmd += _T("Command=ToggleDesktop\r\n") ;
　　　　::SaveText(td_scf,tdCmd) ;
　　　　}
　　ShellExec se ;
　　se.SetFile(td_scf) ;
　　se.Execute() ;
　　{ // 終了時に削除するように登録
　　　　static DelFileE dfe ;
　　　　dfe.Add(td_scf) ;
　　　　}
　　return TRUE ;
　　}

////
//*******************************************************************************
// 関数名 ：重ねて表示，上下に並べて表示，左右に並べて表示
// 作成日 ：’０７／０８／０８
//*******************************************************************************
// http://www.microsoft.com/japan/technet/scriptcenter/resources/qanda/jul05/hey0726.mspx
// Hey, Scripting Guy! デスクトップ上にウィンドウを並べて表示する方法はありますか
#define CD_AW_CascadeW 0
#define CD_AW_TileHorz 1
#define CD_AW_TileVert 2

BOOL ControlDesktop::CascadeWindows (void) { return
ArrangeWindows(CD_AW_CascadeW) ; }
BOOL ControlDesktop::TileHorizontally(void) { return
ArrangeWindows(CD_AW_TileHorz) ; }
BOOL ControlDesktop::TileVertically (void) { return
ArrangeWindows(CD_AW_TileVert) ; }

BOOL ControlDesktop::ArrangeWindows (const long type)
{
　　CString cw_vbs = ::GetTempPath()+_T("Command.tmp\\") + _T("CascadeW.vbs") ;
　　CString th_vbs = ::GetTempPath()+_T("Command.tmp\\") + _T("TileHorz.vbs") ;
　　CString tv_vbs = ::GetTempPath()+_T("Command.tmp\\") + _T("TileVert.vbs") ;
　　CString cmdvbs ;
　　CString cmdExc ;
　　switch (type) {
　　　　case CD_AW_CascadeW : cmdvbs = cw_vbs ; cmdExc = _T("objShell.CascadeWindows \r\n") ; break ;
　　　　case CD_AW_TileHorz : cmdvbs = th_vbs ; cmdExc = _T("objShell.TileHorizontally \r\n") ; break ;
　　　　case CD_AW_TileVert : cmdvbs = tv_vbs ; cmdExc = _T("objShell.TileVertically \r\n") ; break ;
　　　　default : cmdvbs = cw_vbs ; cmdExc = _T("objShell.CascadeWindows \r\n") ; break ;
　　　　}
　　if (::FileIsNothing(cmdvbs)) {
　　　　::CreateEmptyFile(cmdvbs) ;
　　　　CString awCmd ;
　　　　awCmd += _T("Set objShell = CreateObject(\"Shell.Application\")\r\n") ;
　　　　awCmd += cmdExc ;
　　　　　　// objShell.TileHorizontally
　　　　　　// objShell.TileVertically
　　　　　　// objShell.CascadeWindows
　　　　::SaveText(cmdvbs,awCmd) ;
　　　　}
　　ShellExec se ;
　　se.SetFile(cmdvbs) ;
　　se.SetShowCmd(SW_HIDE) ;
　　se.Execute() ;
　　{ // 終了時に削除するように登録
　　　　static DelFileE dfe ;
　　　　dfe.Add(cmdvbs) ;
　　　　}
　　return TRUE ;
　　}

デスクトップ上にウィンドウを並べて表示する方法はありますか。
Shell.TileHorizontally method

新しい Outlook では MAPI サポートがなくなった？
新しい Outlook で使用できない機能: 拡張性
新しい Outlook と従来の Outlook の機能の比較
そのため，テンポラリに zip として圧縮して，それを手動で起動したメールソフトに添付して利用している．
これをもう少し簡単にできないかと…

思いついたのは，どこかにアップロードして，そのリンクからダウンロードする方法．
3D ツール
https://itl.mish.work/i_Tools/upload/share/data/Iwao-index-2025-04-21.htm

最近あまり見なくなったように感じるが，次の様な html でのリンクがある．
mailto:test@example.com
これを何とか呼び出せないか？
エクスプローラのアドレス欄に “mailto:test@example.com” と入力すると，メールソフトが起動できる．

コマンドプロンプトで試すと，”start mailto:test@example.com” と入力することで同様にできた．

::ShellExecute では lpFile に指定することで同じように起動できる．

::ShellExecute で次の様に指定すると，「件名」と「本文」にそれぞれ “Hello” と “body” が入って起動できる．
“mailto:test@example.com?Subject=Hello&body=body”
コマンドプロンプトでは最初うまく起動できなかった．
start コマンドを調べると，省略可能な title があり，それを “” の様に空にして指定して意図した動作となった．
Windowsコマンドプロンプトの「start」コマンドを徹底解説：基本から応用まで

今回やりたかったことからは外れるが，次の様に BAT ファイルなどにしておけばテンプレートとして利用可能．

先日から CDocManager::RegisterShellFileTypes 関係を調べている．
以前やった時は，MFC に依存した自前のコードが多かったのと，もう少し使いやすくできないかと…

それでいろいろとやっていると，レジストリの HKCU\Software\Classes\ の下に文字化けしたものができてしまった．

REG_SZ の (ext)_auto_file となっている．
これは，ドキュメントをダブルクリックして「常に使う」を選んだ時と思うが，はっきりしない．
Win10 環境でも同様？

レジストリの直接編集によるファイルの拡張子と関連づけ
Windows 11とレジストリに非ASCII文字を利用するアプリに非互換問題 ～BSoDが発生
特定のレジストリ キーを削除できません。キーの削除中にエラーが発生する

関連付けのレジストリをチェックしましょう

先日から Win10 PC が突然フリーズする現象が発生する様になった．
仮想メモリの設定を自動にしてからは，画面が突然止まってしまう．
マウスやキーも入らない．「Num Lock」を押してもランプは変わらない．
ディスクアクセスのオレンジのランプはアクセスに応じて点滅している．
他の PC から，共有ファイルなどは見える．
「電源ボタン」で休止状態となる様に設定したが，反応はしない．

NAS を含む Linux であれば，SSH 接続して reboot コマンドなどが使用できる．
検索すると幾つか方法がありそう．
* リモートデスクトップ
* shutdown コマンド
* Power Shell の Restart-Computer コマンド
Windows 系OS で、リモートシャットダウンを設定する
パソコンをリモートでシャットダウンまたは再起動する方法は？
他のコンピュータをシャットダウンまたは再起動する方法

リモートデスクトップでの操作は期待できないが，取りあえず設定した．
コマンドによる操作は，対象 PC 上ではうまく機能するが，別の PC からはうまく機能しない．

SSH 接続でもうまくいかない．

結局 SSH 接続する時のアカウントに管理者権限を与えて，そこから shutdown /r /t 300 とすることでうまくいった．

これで目的を達するかの確認は，次にフリーズした時なのでまだ何とも言えない．

以前作成したエクスプローラのサムネイル表示．

前からの現象だが，不定期に表示が止まってしまうことがあった．
ほとんどが個人的に作成したシェルエクステンションの影響だが，今回は違ったように思う．
全ての explorer.exe を終了させても改善されない．

再起動すれば良いのはわかっているが，順に exe を終了させることに…
dllhost.exe を終了させると，止まっていた表示が動き出した．
ハッキリしたことがわかってないので，とりあえずメモ．

\\(ComputerName) を開きたいと思い，次の様なコードを書いた．

{
	tstring	self_name = _T("\\\\") + ::GetComputerName() + _T("\\") ;
	S_Exec	se ;
	se.SetFile(self_name.c_str()) ;
	se.Execute() ;
	}

これはこれでうまく動作するが，それを perplexity に問い合わせると

#include <windows.h>
#include <shellapi.h>

int main()
{
    TCHAR computerName[MAX_COMPUTERNAME_LENGTH + 1];
    DWORD size = sizeof(computerName) / sizeof(computerName[0]);
    
    // コンピューター名を取得
    if (GetComputerName(computerName, &size))
    {
        // ネットワークパスを構築
        TCHAR networkPath[MAX_PATH];
        wsprintf(networkPath, TEXT("\\\\%s"), computerName);
        
        // ShellExecuteを使用してエクスプローラーを起動
        ShellExecute(NULL, TEXT("open"), TEXT("explorer.exe"), networkPath, NULL, SW_SHOWNORMAL);
    }

    return 0;
}

そのままで動作するコードが表示されている．