フォルダ ツリーの自動更新の強化 - INameSpaceTreeControl
Windows Vista以降の場合、X-Finderのシステム互換やTablacus Explorerのフォルダ ツリーではINameSpaceTreeControlというVistaで追加されたツリーコントロールを使ってフォルダ ツリーを表示しています。
このツリーコントロールは自動でいろいろやってくれて便利なんですが、すでに展開しているフォルダで新規フォルダを作成しても追加されない場合があります。
例えば、コマンドラインの「mkdir フォルダ」としてフォルダを追加しても素のINameSpaceTreeControlではフォルダが追加されません。
いろいろ試してみたところ、自動的に更新させる方法を2つ発見しました。
1.Windows 7で追加されたインターフェイスのINameSpaceTreeControl2のSetControlStyle2でNSTCS2_INTERRUPTNOTIFICATIONSを指定
INameSpaceTreeControl2 *pNSTC2;
if SUCCEEDED(m_pNameSpaceTreeControl->QueryInterface(IID_PPV_ARGS(&pNSTC2))) {
pNSTC2->SetControlStyle2(NSTCS2_INTERRUPTNOTIFICATIONS, NSTCS2_INTERRUPTNOTIFICATIONS);
pNSTC2->Release();
}
これだけで、Windows 7以降ではフォルダが追加されるようになりました。
ただ、Tablacus Explorerではこの方法は使わずコメントアウトしています。
何故かと言うと、私の環境では更新通知されすぎるのか、ちょっとしたファイル変更の度に更新してツリーが重くなってしまったからです。
TablacusExplorer/TE.cpp at master · tablacus/TablacusExplorer · GitHub
2.SHChangeNotifyDeregisterで通知をキャッチしてSHChangeNotifyで投げる
INameSpaceTreeControlではInterruptレベルの通知はキャッチしないが、Shellレベルの通知はキャッチしているようなので、SHChangeNotifyDeregisterでInterruptレベルの通知をキャッチしてSHChangeNotifyでShellレベルで投げる方法を考えました。
※SHChangeNotifyRegister定義でフォルダ関連のInterruptレベルの通知をキャッチ
Addons.TreeView.uRegisterId = api.SHChangeNotifyRegister(te.hwnd, SHCNRF_InterruptLevel | SHCNRF_NewDelivery, SHCNE_MKDIR | SHCNE_DRIVEREMOVED | SHCNE_MEDIAREMOVED | SHCNE_NETUNSHARE | SHCNE_RENAMEFOLDER | SHCNE_RMDIR | SHCNE_SERVERDISCONNECT | SHCNE_UPDATEDIR, Addons.TreeView.WM, ssfDESKTOP, true);
※通知をキャッチしてSHChangeNotifyでそのまま投げる
AddEvent("AppMessage", function (Ctrl, hwnd, msg, wParam, lParam)
{
if (msg == Addons.TreeView.WM) {
var pidls = {};
var hLock = api.SHChangeNotification_Lock(wParam, lParam, pidls);
if (hLock) {
api.SHChangeNotify(pidls.lEvent, SHCNF_IDLIST, pidls[0], pidls[1]);
api.SHChangeNotification_Unlock(hLock);
}
return S_OK;
}
});
上記をTreeviewアドオンのscript.jsで行っています。
TablacusExplorerAddons/script.js at master · tablacus/TablacusExplorerAddons · GitHub
なおこの方法も副作用があります。SHChangeNotifyで投げているのでTablacus Explorerだけでなく他のアプリにも影響してしまいます。
例えば、Tablacus Explorerとツリーアドオン使用時はINameSpaceTreeControlを使っていると思われるAs/Rも、フォルダの追加等で自動的に更新されるようになります。
本当は自分だけ更新する方法があれば他のソフトへの悪影響の心配もなく良いのですが…
独自関連付け・マウス・キーをメニューで選ぶ - Tablacus Explorer
Tablacus Explorer 15.8.16で独自関連付け等をメニューで選んで実行できるようになりました。
例えば、htmlファイルをダブルクリックすると「ブラウザ」と「メモ帳」のメニューが表示され、選んで実行するという感じです。
設定方法はツール(T)→オプション(O)→メニュー→既定
フィルタを「*.html」
タイプを「メニュー」
オプションを「開く」にします。
その下にメニューで表示させて実行する項目を作成します。
最後にタイプを「メニュー」にし、オプションを「閉じる」にするとそこまでがメニューになります。
同様にマウスで項目のない場所をホイールクリックした場合にメニューを表示するには
マウス欄がメニューに表示される名前になります。
最後にタイプを「メニュー」にし、オプションを「閉じる」にするとそこまでがメニューになります。
同様にShift+1でドライブCとドライブDのメニューを表示させて選べるようにするには
キー欄がメニューに表示される名前になります。
英数字の前に「&」を入れると、メニューを表示している時に前の文字を押すだけで実行できるようになります。
最後にタイプを「メニュー」にし、オプションを「閉じる」にするとそこまでがメニューになります。
ちょっとしたスクリプト - Tablacus Explorer
・フォルダ構成のみクリップボードにコピー
var CreateFolderOnly2 = function (path, dest, Items, nAdd)
{
api.SetWindowText(te.hwnd, path);
CreateFolder(dest);
if (nAdd == 0) {
Items.AddItem(dest);
}
var wfd = api.Memory("WIN32_FIND_DATA");
var hFind = api.FindFirstFile(path + "\\*", wfd);
var bFind = hFind != INVALID_HANDLE_VALUE;
while (bFind) {
if (wfd.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY) {
var fn = wfd.cFileName;
if (fn != "." && fn != "..") {
CreateFolderOnly2(fso.BuildPath(path, fn), fso.BuildPath(dest, fn), Items, nAdd - 1);
}
}
bFind = api.FindNextFile(hFind, wfd);
}
api.FindClose(hFind);
};var CreateFolderOnly = function (Item, Items, temp, nAdd)
{
var path = api.GetDisplayNameOf(Item, SHGDN_FORPARSING);
if (/^[A-Z]:\\|^\\/i.test(path)) {
var fn = fso.GetFileName(path);
if (fn && fso.FolderExists(path)) {
var dest = fso.BuildPath(temp, fn);
CreateFolderOnly2(path, dest, Items, nAdd);
}
}
};var title = api.GetWindowText(te.hwnd);
var temp = fso.BuildPath(fso.GetSpecialFolder(2).Path, "tablacus");
if (!IsExists(temp)) {
CreateFolder(temp);
}
temp += "\\folder";
DeleteItem(temp);
CreateFolder(temp);var FV = GetFolderView(Ctrl, pt);
var Items = te.FolderItems();
var Selected = FV.SelectedItems();
if (Selected) {
for (var i = 0; i < Selected.Count; i++) {
CreateFolderOnly(Selected.Item(i), Items, temp, 0);
}
}
if (Items.Count == 0) {
CreateFolderOnly(FV, Items, temp, 1);
}
api.OleSetClipboard(Items);
api.SetWindowText(te.hwnd, title);
長いしフォルダがたくさんあると時間が掛るので、WSHにするとか、アドオンにしてマルチプロセスにする方が良さそうな感じですが…
・1階層上に送る
var FV = GetFolderView(Ctrl, pt);
var Selected = FV.SelectedItems();
if (Selected) {
var oDest = sha.NameSpace(fso.GetParentFolderName(api.GetDisplayNameOf(FV, SHGDN_FORPARSING)));
if (oDest) {
oDest.MoveHere(Selected, FOF_ALLOWUNDO);
}
}
・1階層下から吸い出す
var FV = GetFolderView(Ctrl, pt);
var path = OpenDialog(fso.GetParentFolderName(api.GetDisplayNameOf(FV, SHGDN_FORPARSING)));
if (path) {
FV.Folder.MoveHere(path, FOF_ALLOWUNDO);
}
ラベル グループ - Tablacus Explorer
ラベル グループは予めグループで登録しておいたラベルを管理できるようにするアドオンです。
例えば、こんな感じで「時間」と「場所」のグループを作っておくと…
追加するラベルや表示するラベルを時間や場所でグループしたラベルで管理できます。
それと、ラベルのメニューの「詳細」は詳細表示の際にまだ「ラベル」カラムを表示していない場合、「ラベル」カラムを表示させるメニューです。
混在ソート、総ファイルサイズ ソートの実現方法 - Tablacus Explorer
混在ソートと総ファイルサイズ ソートのアドオンを作成しました。
X-Finderの場合は自分でファイルやフォルダの一覧を管理しているので、項目の順序を好きな順にすることは、そう難しいことではありません。
しかし、Tablacus Explorerの場合は中でエクスプローラを動かしている様なものなので、今までその順序を変更する方法が分かっていませんでした。
エクスプローラと同じという動作はそのままなので楽ですが、違うことをしようとすると困難になります。
そして、試行錯誤してやっと順序を入れ替える方法を見つけました。
という訳で今回はどういう方法で実現したかをブログに書きます。
基本的には IShellView2::SelectAndPositionItem で 指定する項目のPOINTを先頭の項目の位置に設定するとその項目が最初の項目になります。
しかし、うまく動かすには以下の設定を行う必要がありました。
1.表示モードは「詳細」「一覧」以外にする
詳細、一覧の場合は並べ替えの際に別の表示にして元に戻せばOK
Tablacus Explorerの場合は「詳細」「一覧」の場合は一時的に「並べて表示」にしているのでソートの際に「並べて表示」がちょっと見えます。(※描画を一時停止して見えなくしました)
2.FolderFlagsのFWF_AUTOARRANGEをオンにする。
これも並べ替えの前にIShellView2::SetCurrentFolderFlagsでFWF_AUTOARRANGEをオンにして元に戻せばOK
3.グループで表示は「なし」にする
グループ表示をしているとうまく動きません。
4.FolderViewOptionsのFVO_VISTALAYOUTをオンにする
IExplorerBrowser::SetFolderViewOptionsで設定するFVO_VISTALAYOUTもオンじゃないと動きません。しかもこの設定FolderViewOptionsはフォルダの移動前に設定しないと効果が出ないので注意です。同じフォルダを指定して IExplorerBrowser::BrowseToObject や IExplorerBrowser::BrowseToObject を実行してもまだ設定が切り替わりません。
5.Windows Vista以降
上記の設定を行ってもWindows XPではうまく動きませんでした。
子階層(サブメニュー)の作り方 - Tablacus Explorer
ファイル、お気に入り、コンテキスト メニュー等のメニューやツール バーやリンク バー等での2段階メニューの子階層の作り方
メニューでもバーでもタイプを「メニュー」にしてオプションを「開く」にするとメニューの「閉じる」までが子階層(サブメニュー)になります。
お気に入りの設定で以下の様にタイプを「メニュー」にしてオプションを「開く」にすると…(タイプを「メニュー」にして「参照...」を押すとメニューが出るので「開く」を選ぶ)
こんな感じでサブメニューが作れます。
リンクバーも同様にタイプを「メニュー」にしてオプションを「開く」にすると…
第1階層がボタンに第2階層以下がメニューになります。