>> 古い記事: [雑記] 2008-08
<< 新しい記事: Script-Fu: 選択範囲の角を丸めた枠を描く

スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

「エクスプローラで今開いているフォルダ」をショートカットキー一発で ckw+nyacus で開く

20100316: 改良版を書きましたのでこちら(http://haraita9283.blog98.fc2.com/blog-entry-360.html) へどうぞ。

下記の方法は非推奨です。


便利です。仕込みはまどろっこしいですけど。 適当に図にするとこんな感じ。

ショートカットファイル
+- vbs
   +- bat
      +- js
      +- ckw.exe -- nyacus.exe

下準備

以下、C:\foo を基本のディレクトリとします。 下線が付いてるパス部分を適宜読み替えてください。

まずは nyacus222a_mod.zip、 ckw-0.8.10-mod2-bin.zip を次のリンク先からダウンロードして解凍し、出てきたフォルダを C:\foo に置きます。

ckw.exe と nyacus.exe のパスは以下のようになります。

C:\foo\ckw-0.8.10-mod2-bin\ckw.exe
C:\foo\nyacus222a_mod\nyacus.exe

ckw.cfg の編集

C:\foo\ckw-0.8.10-mod2-bin\ckw.cfg の以下の箇所を修正。

!編集前
Ckw*exec:  cmd.exe
Ckw*chdir: c:\

!編集後
Ckw*exec: C:\foo\nyacus222a_mod\nyacus.exe
!Ckw*chdir: c:\  ←コメントアウト

バッチ、スクリプトを用意

現在エクスプローラで開いているディレクトリを返す JScript
c:\foo\getcurrentdir.js

var path = new ActiveXObject('Shell.Application').Windows().Item().Document.Folder.Self.Path;
WScript.Echo( path ); // 標準出力に出力

ckw.exe を呼び出すバッチファイル
c:\foo\ckw-nyacus.bat

FOR /F "delims=" %%D IN ('cscript.exe //NoLogo C:\foo\getcurrentdir.js' ) DO CD /D %%D

C:\foo\ckw-0.8.10-mod2-bin\ckw.exe

ckw-nyacus.bat を呼び出す vbs。 余計なウィンドウを開かないようにするため。
c:\foo\ckw-nyacus.vbs

Dim x
Set x = CreateObject("WScript.Shell")
x.Run "C:\foo\ckw-nyacus.bat", 0 

ショートカットファイルの設定

ckw-nyacus.vbs のショートカットをデスクトップに作り、 ショートカットのプロパティから [ ショートカット - リンク先 ] に
C:\WINDOWS\system32\cscript.exe C:\foo\ckw-nyacus.vbs
と入力。
あとは好きなショートカットキーを設定し、 「実行時の大きさ」を「最小化」 にしておきます。


以上です。 ckw と nyacus を改造して公開してくださった hideden さんに感謝。

関連記事

>> 古い記事: [雑記] 2008-08
<< 新しい記事: Script-Fu: 選択範囲の角を丸めた枠を描く
** ホームに戻る

コメント

コメントの投稿

管理者にだけ表示を許可する

|
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。