その名の通り解凍ソフトですが、軽量なので WEB に保存しておいて
スクリプトでダウンロードして、コマンドラインを使ってファイル
を解凍するという使い方ができます。
▼ 以下のページの一番下にあります。
Susieのだうんろーど
▼ ソフトウェアとしての紹介は窓の杜を参照しましょう
窓の杜 - Lhasa
【+lhaca 用】 WEB WSH インストーラ
特記
自己解凍書庫ですが、拡張子を .lzh にして解凍して Lhasa.exe を手に入れる事もできます
開発は、2004/08/03に終了しているもよう。
再配布
通信と個人的な手渡しによる転載、流通に関しては内容の改変等が無い限り制限はありません。
著作権
このプログラムのLHAの解凍ルーティンは吉崎栄泰さんのソースを元にしんきさんが作られた
「.LZH / .LZS アクセスライブラリ Ver.0.98c」が元。
ZIPの解凍ルーティンの一部(inflate,explode)は
Info-ZIP group の公開しているコードを含んでいます。
Info-ZIP group のオリジナルのソースコードは無料で配布されています。
http://www.info-zip.org/pub/infozip/
英語版ドキュメントは小沢仁さんが作成。
作者 : 竹村嘉人 (たけちん)
Vector
Lhasa32の詳細情報
オンライン解凍ツールとしての使い方
以下は、Terapad のインストールに使っている例です
<SCRIPT language=VBScript>
' ***********************************************************
' 処理開始
' ***********************************************************
sId = "tpad093" ' 対象アーカイブ
sPg = "TeraPad.exe" ' 対象アプリケーション
' ***********************************************************
' ダウンロードする URL
' ***********************************************************
strDownloadPlace = "http://www5f.biglobe.ne.jp/~t-susumu/dl/tpad/tpad093.zip"
' ***********************************************************
' ダウンロード : 対象アーカイブ
' ***********************************************************
strLocalFile = TempDir & "\" & sId & ".zip"
ret = HTTPDownload( strDownloadPlace, strLocalFile )
if not ret then
Wscript.Echo ErrorMessage
Wscript.Quit
end if
' ***********************************************************
' ダウンロード成功 : 対象アーカイブ
' ***********************************************************
Wscript.Echo strDownloadPlace & " をダウンロードしました" & vbCrLf & strLocalFile
' ***********************************************************
' 解凍ソフトの一時ダウンロード
' ***********************************************************
strDownloadPlace = "http://winofsql.jp/download/Lhasa.exe"
' ***********************************************************
' ダウンロード : 解凍ソフト
' ***********************************************************
ret = HTTPDownload( strDownloadPlace, TempDir & "\Lhasa.exe" )
if not ret then
Wscript.Echo ErrorMessage
Wscript.Quit
end if
' ***********************************************************
' ダウンロード成功 : 解凍ソフト
' ***********************************************************
Wscript.Echo strDownloadPlace & " をダウンロードしました"
' ***********************************************************
' 対象アーカイブをテンポラリディレクトリに解凍
' ***********************************************************
strCommand = Dd( TempDir & "\Lhasa.exe" ) & " -d- -a -q -f -e- " & Dd(TempDir & "\" & sId & ".zip")
RunSync(strCommand)
' ***********************************************************
' ファイルシステムオブジェクトの取得
' ***********************************************************
GetFso
' ***********************************************************
' インストール先の設定
' ***********************************************************
strInstallBasePath = Left( ProgDir(), 2 )
strInstallPath1 = strInstallBasePath & "\laylaClass"
if not Fso.FolderExists( strInstallPath1 ) then
on error resume next
Call Fso.CreateFolder( strInstallPath1 )
on error goto 0
end if
' ***********************************************************
' 解凍ディレクトリの移動
' ***********************************************************
Call Fso.CopyFolder( TempDir & "\" & sId, strInstallPath1 & "\" & sId, True )
Call Fso.DeleteFolder( TempDir & "\" & sId )
' ***********************************************************
' ダウンロードファイルの削除
' ***********************************************************
Call Fso.DeleteFile( TempDir & "\" & sId & ".zip", True )
Call Fso.DeleteFile( TempDir & "\Lhasa.exe", True )
' ***********************************************************
' TeraPad.ini 出力
' ***********************************************************
on error resume next
Fso.CreateFolder(strInstallPath1 & "\" & sId & "\usr")
Fso.CreateFolder(strInstallPath1 & "\" & sId & "\usr\" & GetUser )
on error goto 0
TargetPath = strInstallPath1 & "\" & sId & "\usr\" & GetUser & "\TeraPad.ini"
strText = GetInline( "TeraPad_ini" )
Call PutTextFile( TargetPath, strText )
' ***********************************************************
' ショートカット作成
' ***********************************************************
if OkCancel("デスクトップとSendToにショートカットを作成しますか? ") then
Set obj = WshShell.CreateShortcut( DesktopDir & "\" & sId & ".lnk")
obj.TargetPath = Dd( strInstallPath1 & "\" & sId & "\" & sPg )
obj.WindowStyle = 1
obj.IconLocation = strInstallPath1 & "\" & sId & "\" & sPg
obj.Description = "フリーのシンプルなテキストエディタ"
obj.WorkingDirectory = strInstallPath1 & "\" & sId
obj.Save
Call Fso.CopyFile( DesktopDir & "\" & sId & ".lnk", SendtoDir & "\!TeraPad.lnk", True )
Wscript.Echo "デスクトップとSendToにショートカットを作成しました"
end if
MsgOk( "処理が終了しました " )
</SCRIPT>
HTTPDownload の内容です
VBScript : 1メガバイト以下のWEB上のバイナリのダウンロード
まず、GifCam は、作者さんのサイトからダウンロードして下さい。
そこで、赤く書いてありますが、他のところからだとマルウェア等が含まれている場合が多々あるようです。それと、たとえオリジナルであっても、フリーソフトは今時では 疑わしいファイルや URL を分析する VirusTotal でチェックするといいと思います。 VirusTotal はGoogle グループのサービスなんで安心してバンバン使うといいと思います。 GifCamは、ショートカットキーが無いので 自作しました。GifCam はアクティブな場合は、スペースキーでその時選択されているボタンを実行します。ですから、VBScript で起動して、プロセスID を取得して、ショートカットで VBScript を実行させるようにして、ショートカットをデスクトップに置いて『ショートカットキー』を登録しておくわけです。 そうすると、(ここでは CTRL+F2 ですが ) Rec を起動したり止めたりする事が可能になります。 ▼ GifCam ショートカット
GifCam_as.vbs
エディタのパスにスペースが含まれていないので、ダブルクォートで囲んで無いですが、FileZilla の但し書きにあるように適宜使用する必要があるはずです。
他の拡張子は以前記事で、スクリプトを使ってやっていました。今回、FileZilla 側で設定を試したのですが、Windows の PhotoViewer を使ったり、場合によって他のソフトを使ったりうまく使うにはやはりスクリプトでするのが良いようです。
ImageViewer のコマンドライン利用に関する記事
ルーペでは無く、デスクトップ全体が拡大状態へと、アニメーションで近寄ったり引いたりするタイプの拡大ツールで、同様の機能に QZoom というフリーソフトがあったのですが、Windows7 で動かなかったので探しました。
但し、Windows7 で利用する場合は、「詳細設定タブ」で「StretchBlt を使用する」というチェックボックスにチェックして下さい。これは、WindowsXP では使用できませんが、Windows7 では必須です。
以下はてっとり早く使う為に、テンキーの数字の 1、2、3、4 に CTRL+ で倍率を設定しています
終了
関連する記事
Windows7 のスタートメニューを XP のように変更し、エクスプローラの失われた機能を復活します。インストールしただけですぐ使えるようになりますが、プロなら知っておく事が結構たくさんあります。
レジストリの自動起動
HKEY_LOCAL_MACHINE に登録されるので、複数ユーザで運用しているPC の場合具合が悪いので、必要な時のみ実装するようにします。その為には、レジストリからは削除して下さい。
このスクリプトで、レジストリを開けます
そして、プログラムメニューにインストールされているショートカットをデスクトップに持ってきて、プロパティからオプションを削除しておきます。このショートカットで必要な時に実装し、ユーザ単位で常に使うのであればユーザのスタートアップに入れます。
オプション設定の起動
オプションを設定するのに、先のショートカットを使うのですが、スタートメニューを右クリックすると、「設定」メニューが表示されます。
また、このメニューに限らず、オプションダイアログ以外の表示部分は日本語化されているので、インストールディレクトリの、StartMenuL10N.ini をメモ帳で開いて、ja-JP の部分を自由に変更できます。この中はいろいろな言語の Unicode で書かれているので必ずメモ帳で開いて更新して下さい。
エクスプローラの拡張を解除
これはあまり必要無いかもしれませんが、どうししても解除したい場合はこの拡張部分のみアンインストールする事ができます。但しこれは「たぶんこれでいいだろう」という経験のもとに行っているので不具合が無い事を保証できないので注意して下さい。
インストールディレクトリで、コマンドプロンプトを開いて以下を実行
regsvr32 -u ClassicExplorer32.dll
エクスプローラにコマンドアイコンを追加
※ ALT キーでメニューバーを表示させて、メニューバーを右クリックして設定します
チェックすると、ツールバーにコマンドアイコンが追加されます。この一番右端がオプションダイアログの表示用アイコンなので、チェックしておきます。( メニューバーは常に表示された状態になります )
エクスプローラのスタイルを XP のようにする
ツリーの状態が XP のようになり、使いやすくなります。
アドレスバーのパンくずリストを使用不能にします
一つ上へ移動するボタンが復活するので、直観的な操作のしずらいbreadcrumbs を disable にする事もできます。
その他
XP のころは、左側のツリーのディレクトリでも ALT+Enter でプロパティが表示可能でした。その機能が復活しています。
Status bar を表示させると、フリースペースの表示が復活しています。
メニューバーの「表示」でステータスバーを表示可能に設定できます。
※ 一時的にメニューバーを表示させたい場合は、ALT キーで表示されます
インストール後、何もしなければ右クリックメニュー(コンテキストメニュー)は英文のままだと思いますが、7-Zip のファイルマネージャを起動すると、自動的にプラットホームの日本語が選択されます。オプションから言語を確認する事ができるので、確認してみるといいです。
この情報がどこに保存されるかは解らないのですが、この後、いったんログオフすると右クリックメニューが日本語になっています。
ファイル分割
大きなファイルは、「圧縮」を選んで「書庫を分割」でサイズを指定すると拡張子に連番が振られて分割する事ができます。
分割されたファイルは圧縮されているので、圧縮時にパスワードを指定する事もできます。通常はどんな環境でも良いように「zip」で圧縮すると良いでしょう。解凍(結合)は、.001 を右クリックしてフォルダ指定の解凍を行うと、そのフォルダの中にファイルが結合されて保存されます。
※ 単純なファイルでも、拡張子が連番であれば結合が可能です。
※ エキスパートモードで表示しています
アーカイブとカテゴリページはこのように簡単に設定できますが、タグページは HTML 設定を直接変更して、以下の『タグページでのみ表示される内容』の記述方法で設定する必要があります
