« 「お気に入りの整理」で使われているコントロール(NSC)を使う。 | トップページ | Webページが「完全」や「アーカイブ」で保存できないとき »

2010年4月 1日 (木)

NSCを使ってデスクトップ左端にツールバーを作る。

ToolBar.hta

<html>
<head>
<hta:application showintaskbar=no caption=no scroll=no contextmenu=no innerborder=no />
<script language="VBScript">
moveto 0,0
resizeto 34,54
sub toolbar(title,path)
set w=showmodelessdialog("about:<" & "object id=NSC classid=clsid:55136805-B2DE-11D1-B9F2-00A0C98BC547 width=""100%"" height=""100%""><" & "/object><" & "script language=vbscript>sub NSC_doubleclick:NSC.SelectedItem.InvokeVerb Empty:end sub<" & "/script>",,"dialogtop:0;dialogleft:0;dialogwidth:250px;dialogheight:" & (screen.availheight-35) & "px;resizable:yes;")
w.NSC.SetRoot path
w.document.title=title
end sub
</script>
</head>
<body style="margin:0;">
<button title="終了" onclick="close" style="background-color:lightgrey;">×</button>
<button title="Quick Launch" onclick='toolbar Me.title,"shell:quick launch"' style="background-color:lightgrey;">&gt;&gt;</button>
</body>
</html>

ダブルクリックで関連付けのデフォルト動詞で起動します。
フォルダとタイトルを適宜変更します。
ボタンを追加するときは、resizeToも合わせて変更して。

« 「お気に入りの整理」で使われているコントロール(NSC)を使う。 | トップページ | Webページが「完全」や「アーカイブ」で保存できないとき »