ドキュメントの「右クリック」－「送る」に「メモ帳」を追加しようと思い検索．
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
http://mish.work/joomla/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

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

前からの現象だが，不定期に表示が止まってしまうことがあった．
ほとんどが個人的に作成したシェルエクステンションの影響だが，今回は違ったように思う．
全ての 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;
}

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

Windwos Search の「インデックスのオプション」を開きたいと問い合わせが入った．

以前の Windows であれば「コントロールパネル」から入ると「インデックスのオプション」があった．
Win10 以降？は「コントロールパネル」も簡単には開けない．

Windows の検索ボックスで “インデックスのオプション” と入力すれば良かったのだが…
それが思い出せず，”Windows サーチ” や “Windows 検索” と入力して，うまくたどり着けない．
“Windows Search” と入力しないとうまくないみたい．

「Windows 検索」の「クラッシック」の下の「…検索場所をカスタマイズ…」を選ぶと表示できる．

Windows の設定などは，キーワードを英語で入力する方が良いのかもしれない．

2024/06/19
「スタート」で表示される「検索ボックス」に何か入力すると「…」（オプション メニュー）が表示される．
それを選択すると「インデックス オプション」などがある．

2024/06/20
「インデックス オプション」は次の様なコマンドでも可能なので，::ShellExecute で呼び出す様にした．
control.exe /name Microsoft.IndexingOptions