REM ******************************************************
REM 書庫解凍( lzh と zip )
REM 書庫と同じ場所にディレクトリを作成して解凍する

REM Melt2 は、コノンドラインオプションを全て指定する

REM -d出力ディレクトリ
REM -d-	 アーカイブと同じディレクトリに解凍します。
REM -a	*アーカイブ毎にディレクトリを作ります。
REM -a-	 出力先にそのままファイルを出します。
REM -s	 常駐します。(Win95でも)
REM -s-	 常駐せずに処理がすんだらすぐ終わります。
REM -e	*解凍先フォルダを開きます。
REM -e-	 解凍先フォルダを開きません。
REM -q	 途中経過表示をしません。
REM -f	 解凍先に、より新しいファイルがあっても確認せずに上書きします。
REM -f-	*既存のファイルが解凍中のファイルより新しい場合確認します。

REM ******************************************************
Function Melt( strTarget )

	Melt = True

	strDownloadPlace = "http://homepage2.nifty.com/lightbox/Lhasa.exe"
	
	ret = HTTPDownload( strDownloadPlace, TempDir & "\Lhasa.exe" )
	if not ret then
		Melt = False
		Exit Function
	end if
	
	strCommand = Dd( TempDir & "\Lhasa.exe" ) & " -d- -a -q -f -e- " & strTarget
	RunSync(strCommand)

End Function

Function Melt2( strParam )

	Melt2 = True

	strDownloadPlace = "http://homepage2.nifty.com/lightbox/Lhasa.exe"
	
	ret = HTTPDownload( strDownloadPlace, TempDir & "\Lhasa.exe" )
	if not ret then
		Melt2 = False
		Exit Function
	end if
	
	strCommand = Dd( TempDir & "\Lhasa.exe " ) & strParam
	RunSync(strCommand)

End Function