<JOB>
<COMMENT>
************************************************************
■デスクトップにChrome で ドキュメント( HTML )の
　ショートカットを作成する

■著作権その他

このプログラムはフリーです。どうぞ自由に御使用ください。
著作権は作者である私(lightbox)が保有しています。
また、本ソフトを運用した結果については、作者は一切責任を
負えせんのでご了承ください。
************************************************************
</COMMENT>

<OBJECT id="WshShell" progid="WScript.Shell" />
<OBJECT id="Fso" progid="Scripting.FileSystemObject" />
<OBJECT id="Shell" progid="Shell.Application" />

<COMMENT>
************************************************************
* lightbox WEB WSH コアライブラリ
************************************************************
</COMMENT>
<SCRIPT language="VBScript" src="http://homepage2.nifty.com/lightbox/laylaClass.vbs"></SCRIPT>

<COMMENT>
************************************************************
* スクリプト開始
************************************************************
</COMMENT>
<SCRIPT language=VBScript>
' OpenFileName3 を実行する為のライブラリ設定
Call laylaFunctionTarget( "http://homepage2.nifty.com/lightbox/" )
Call laylaLoadFunction( "baseFunction.vbs" )
Call laylaLoadFunction( "toolFunction.vbs" )

Const SHORTCUT_WindowStyle_Default = 1
Const SHORTCUT_WindowStyle_Maximized = 3
Const SHORTCUT_WindowStyle_Minimized = 7

' ***********************************************************
' 処理開始
' ***********************************************************
' GUI 
if vbCancel = MsgBox( "処理を開始しますか?　　　", vbOKCancel , _
	"Desktop to Chrome Shortcut for Flex3 document" ) then
	Wscript.Echo "キャンセルされました"
	Wscript.Quit
end if

' スクリプトが存在するディレクトリ
strCurPath = WScript.ScriptFullName
Set obj = Fso.GetFile( strCurPath )
Set obj = obj.ParentFolder
strCurPath = obj.Path

' Chrome の場所
strKey = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Uninstall\Google Chrome"
strTarget = WshShell.RegRead(strKey & "\DisplayIcon")

' デスクトップのパス
strDesktop = WshShell.SpecialFolders("Desktop")

' 対象 HTML の選択
TargetHTML = OpenFileName3()
if TargetHTML(0) <> "" then

	' ショートカットのパス
	strWorkPath = TargetHTML(0)
	Set obj = Fso.GetFile( strWorkPath )
	Set obj = obj.ParentFolder
	' 対象ファイルの一つ上のディレクトリ名を使用する
	set obj = WshShell.CreateShortcut( strDesktop & "\" & obj.Name & ".lnk")

	obj.TargetPath = strTarget
	obj.Arguments = "--allow-file-access-from-files """ & TargetHTML(0) & """"
	obj.WindowStyle = SHORTCUT_WindowStyle_Default
	obj.Hotkey = "CTRL+SHIFT+G"
	obj.IconLocation = strTarget & ", 2"
	obj.Description = "Flex3のドキュメントのショートカット"
	obj.WorkingDirectory = strCurPath & "\langref"
	obj.Save

	Wscript.Echo "処理が終了しました"
else
	Wscript.Echo "HTML を選択しませんでした"
end if

</SCRIPT>
</JOB>