20/03/22 05:20:19 coz25e760.net
エクスプローラ互換ファイルコピー:%K"@\C"
エクスプローラ互換ファイル移動:%K"@\M" の処理先をサブ窓PPc[Z]で選択
1画面使用を想定 要ppxwin.dll(*topmostwindow)
PPcを1枚だけ開いている場合、現在開いているディレクトリ(%1)を基準にPPc[Z]を開く
PPcを2枚以上開いている場合、どのPPcIDのディレクトリを基準にするかメニュー("%M?ppclist")で選択
メニュー表示時は最初から現在アクティブなPPcIDにカーソルを当てておく(%k"UP")
サブ窓上でマークしてENTERを押すか、「.」上でENTERを押すことで処理先のパスを一行編集窓に挿入(-choose:edit)
コマンド実行してみたもののやっぱりやめたと思った場合は、サブ窓を閉じたら一行編集も同時に閉じる(*ifmatch 0,0%*edittext%:%k"ESC")
一行編集のタイトル(%W)で判別しているため、「複写」「移動」タイトルの一行編集窓を別に作って使うと誤動作する可能性があります。
K_lied = {
FIRSTEVENT ,*if %*ppxlist(+C) > 1 %:*ifmatch 複写,%W %:*replace ""%:%k"UP"%:%Osq *ppc "%M?ppclist" -single -bootid:Z -choose:edit /k
（改行削除） *topmostwindow %%N %%: %%J.%%:*linemessage File Copy %:*ifmatch 0,0%*edittext%:%k"ESC" %:*stop
*if %*ppxlist(+C) > 1 %:*ifmatch 移動,%W %:*replace ""%:%k"UP"%:%Osq *ppc "%M?ppclist" -single -bootid:Z -choose:edit /k
（改行削除） *topmostwindow %%N %%: %%J.%%:*linemessage File Move %:*ifmatch 0,0%*edittext%:%k"ESC" %:*stop
*if %*ppxlist(+C) == 1 %:*ifmatch 複写,%W %:*replace ""%:%Osq *ppc "%1" -single -bootid:Z -choose:edit /k
（改行削除） *topmostwindow %%N %%: %%J.%%:*linemessage File Copy %:*ifmatch 0,0%*edittext%:%k"ESC"%:*stop
*if %*ppxlist(+C) == 1 %:*ifmatch 移動,%W %:*replace ""%:%Osq *ppc "%1" -single -bootid:Z -choose:edit /k
（改行削除） *topmostwindow %%N %%: %%J.%%:*linemessage File Move %:*ifmatch 0,0%*edittext%:%k"ESC"%:*stop
}