このコンポは米田さん作「統合アーカイバコンポーネント」の"補助的役割"をする
目的で作った非ビジュアルコンポです。決して代替にはなりません(^^;;)
何故"補助的役割"というと、「統合アーカイバコンポーネント」で実装していない、
dllのバージョン取得やコンフィグダイアログの呼び出しなど
実際に圧縮に関係の無いものだけを”主に”取り入れているからです。
ですので「統合アーカイバコンポーネント」と併せて使うと便利でしょう。
バージョン依存した作りは無いと思うので、D2からD7まで使えると思います。

【機　能】

☆ 各DLLのバージョン情報の取得。
☆ 各DLLのコンフィグダイアログの呼び出し。
☆ 自己解凍型用モジュールの存在確認と、そのPathの取得。
☆ 書庫形式の判定。
☆ 通常書庫から自己解凍型へ変換。
☆ 簡易解凍
☆ コマンドによる書庫操作

※これらの機能を使うには、各々のDLLや自己解凍型用モジュールなどが必要です。
また形式によっては使えない機能もあります。

【対応DLL名】

統合アーカイバ仕様DLL
UnLha32, 7-Zip32, UnZip32, Cab32,
LmZip32, Bga32, Jack32, Tar32,
UnArj32, UnRar32, Ish32, UnGca32,
Yz1, Yyz32, UnImp32, UnAce32,
UnYz1, UnBel32,

Zip32j, Izip32j, Bz2lib,Zcrypt32(これらはGetVersion関数のみ対応)

16bit版DLL
UnRar, UnAce

【対応SFXモジュール名】

ZipSFX = 'SFX32GUI.DAT';
ZipSFX2 = 'Zip.SFX'; //WinRar付属
SZipSFX = '7z.sfx'; //本家英語版7-zip付属
SZipSFX2= '7zc.sfx'; //本家英語版7-zip付属
Yz1SFX = 'yzdec.exe';
Yz1SFX2 = 'yzw32cui.sfx';//Yyz32.dllともにDelphian Worldにあります
TarSFX = 'kmtarsef.exe';
RarSFX = 'Default.SFX';//WinRar付属
　

お知らせ

　以前のものとは全く別物になっています。

特　徴
1．夜景の中を遠くの街めざし<、延々と車で走っていくスクリーンセーバーです。
2．このスクリーンセーバーはPC9801用のFreeWay 1.02をwindows用に移植したものです。
3．オリジナル＋αで、「星も上方向にスクロール」「流れ星」「スピード調整」
　　「道路の起伏」「道路の透過表示」「点の色を変更」なども付け加えました。


☆ 注意点 ☆
◎FreeWayのオリジナル作者はFKSさんです。自分は移植しただけです。
　　大分変更した箇所はありますが(^^;;)
◎オリジナルが640×400の解像度だったので、現在の高解像度ディスプレイだと
　　比率の違いから道路の幅や街灯の高さが若干歪んでいます。
　　また解像度が高くなるにつれ急カーブが少なくなってしまいます。
◎オリジナルモードが原作のイメージに一番近いですが、強制的に640×480にしていますので、
　　ディスプレイが痛む可能性があります。
　　また今まで開いていたウィンドウまで小さくなって、左上隅に寄ってしまうということもあり、
　　あまりお勧めできません。　”どうしても”という方だけ、ご使用ください。

☆謝 辞☆
ソースを公開してくれた、オリジナル作者のFKSさんに感謝致します。
でないと全く作れませんでした。

βテストにご協力頂いた、Ceira師匠、Yuhitoさん、かがりさん、hanto君、Toramさん
その他いろいろご報告していただいた方々、皆様どうもありがとうございました。
またIzuk師匠、アセンブラの指導ありがとうございましたm(__)m

Ver0.08->0.09への変更点

町が左右にスクロールしているうちに、点が移動して縦方向に揃ってしまうのを修正。


バグが無いかぎりVer0.09をもって”FreeWay For Win”は一応完成とし、これ以上の機能拡張や変更はしないつもりです。

2002/1/15

アッシュ君Jr

Ｖｅｒ0.12

2000/9/21

win95/98/NT4.0/2000

605KB

冬の星がきれいな夜、高速道路を遠くからぼぉーっと見ているイメージで作りました。
かなり手抜きですがそれなりにきれいだと思います。
また星の輝き方が弱いため、部屋を暗くしてお楽しみ下さい。(^^)

　　　このコンポはJack32.dllをdelphiから簡単に利用するためのものです。
　　　自分の勉強用に作りました。　よって内容はへぼへぼです(^^;;)
　　　勿論エラー値の表示なんてありません。　独自に工夫してください。

　　　　Delphi5で作りましたが、Version依存するようなことは書いていないので(つもり)、
　　　　2〜4までのDelphiでも動くと思います。　

お知らせ

☆Ver0.01 ->0.02の変更点
INDIVIDUALINFO構造体の名前をTJackIndividualInfoへ変更
Jack32.dllへINDIVIDUALINFOを渡すときにVar渡ししていなかった不具合を修正