File Area

過去に作成したプログラムのうち、 作者自身が比較的気に入っているものをダウンロードできます。 とりあえず小物だけですが(^^;

• Delphi関係

  • class TDragDrop (drgdrp11.lzh)
    ファイルマネージャーからのdrag&dropを簡単に受け取れるようにする コンポーネントです。とりあえず誰でも考え付きますね(^^;

  • ComWCrt.pas (cwcrt01.lzh)
    Windows用コマンドライン環境ComWinを 入出力先とするWinCrtもどきのunitです。 フィルタやちょっとした計算プログラムの類を書きなぐりし、 なおかつ結果をクリップボードやファイルに落としたい時には便利。

  • lhadll.pas (lhadlp10.lzh)
    lha.dllをDelphi 1.0のプログラムから呼び出すためのunit。ソースのみ。
    単純作業(^^;

  • WinSize.pas (winsiz10.lzh)
    Delphi FAQで紹介しているフォームの最大化、最小化時の寸法制御をコンポーネント化したもの。 とっても単純作業(^^;
    ソースのみ。Delphi1.0/2.0共用。

  • class TFastStringList (fslislt10.lzh)
    大量の文字列(数千〜数万行)の文字列を保持させたときの性能を改善した TStringList。事前にリストのサイズを設定する事も可能。
    ソースのみ。Delphi1.0/2.0共用。

    性能比較:
    9000行弱のテキストファイル(パソコン通信のログ)を読み込ませ、 行末に一文字追加した文字列を別のリストに一行づつAddした結果。
    単位は秒。

    	LoadFromFile	Add
    TStringList	2.293	2.373
    TFastStringList	0.201	0.201
    〃(行数を事前に設定)	0.170	0.190

• Delphi 2.0関係

  • unlha32.pas (ul3pas10.lzh)
    unlha32.dllをDelphi 2.0のプログラムから呼び出すためのunit。ソースのみ。
    単純作業その2(^^;

  • nkf.pas (nkfpas.lzh)
    nkf32.dllをDelphi 2.0のプログラムから呼び出すためのunit。ソースのみ。
    単純作業その3(^^;

  • PortIO.pas (portio.lzh)
    portio - Win32用Port I/O unit
    Dr.Dobb's Journal, May 1996に掲載された記事、 "Direct Port I/O and Windows NT" (Dale Robertsin) で発表されたgiveio.sysを利用したI/O portアクセス用unitです。 giveio.sysがNTに組み込んであれば、後はソース上で uses portio するだけで

      port.b[aa] := bb;
      xx := port.w[yy];
    

    のような記述が可能になります。特にbyte幅のポートに関しては、単に

      port[aa] := bb;
    

    のような(Turbo Pascal使いにとってはきわめて自然な)記述も可能です。
    なお、giveio.sys自体はDDJのサイトからget出来ます(リンク修正'98/10/14)。

  • Win32Crt.pas (w32crt03.lzh)
    Windows NT/95のコンソール(DOS窓)用に、 gotoxyやtextcolorなど古のTurbo PascalのCRT unitに用意されていた 画面制御手続きを実装したものです。 古いDOS用のプログラムをとりあえず移植するのに便利かも。

• Windows 3.1用

  • ぐる文字めーかー for Windows
    以前、Macのスタックの「ぐる文字めーかー」を見て30分でDelphiに移植してみたもの。 ちとでかくてごめん(120KB)。 くずソフトかも。

                        こ
                          んな
                              の
                    作          を
                  る  に        比
                  た    単    較
                    め    簡的
                    の      す
                      もので
    
    

    これだけうまくgetできない事があるみたいなので ishでエンコードしたものも置いておきます。 ish自体持ってない人はこちらから取ってください。

• Win32用

  • Single.exe (single01.lzh)
    Single - Win32プログラム多重起動回避ユーティリティ
    Win32プログラムの多重起動を多少なりとも回避しようとする試み。 まずはNTのプログラムマネージャー上からの起動回避用。
    Version 0.1に上げました。
    Delphi 2.0で書いたけど自分ではWindowひとつ作らない寡黙なプログラム。
    

  • imgsize (imgsiz11.lzh)
    imgsize - JPEG/GIF画像の寸法をHTMLのIMGタグ形式で出力
    

    コマンドラインから
        imgsize foo.jpg bar.gif
    などと実行します。ファイル名にはワイルドカードも使用可能です。
    実行結果は
      <IMG SRC="foo.jpg" height="200" width="72" alt="">
    のような形式で標準出力に出力されますので、ファイルにリダイレクトす
    るなり、cut&pasteするなりしてください。
    

    GUIな方がいい人はybjさんのこちら。

  • clipio (clipio00.lzh)
    clipto - クリップボードの内容を標準出力へ
    toclip - 標準出力の内容をクリップボードへ
    

    コマンドライン上で
      他のプログラム | toclip
    とすると他のプログラムが標準出力に吐き出したデータがクリップボー
    ドに送られます。
    逆に
      clipto | 他のプログラム
    とするとクリップボードの内容が他のプログラムの標準入力に送り込ま
    れます。
    仮に
      clipto | sort | toclip
    とするとクリップボードの内容をソートしてクリップボードに戻す事に
    なります。
    

  • dropfake (dfake011.lzh)
    DROPFAKE - DRAG&DROP用のアプリにコマンドラインからファイル名を送る
    

    コマンドラインから
      DROPFAKE windowタイトル ファイル名
    のように指定して起動します。
    例えば
      DROPFAKE netscape index.htm
    のようにします。windowタイトルとしては、既に起動しているプログラム
    のタイトルを指定します。
    なお、ファイル名は複数指定でき、ワイルドカードによる指定も可能です。
    

    このプログラムの必要性を理解できる人ってあまりいないかもなあ(^.^;

• DOS汎用

  • flist (flist197.lzh)
    ワイルドカード指定されたファイル名を書式文字列に従って 文字列展開・実行するプログラムです。 使い方次第で、command.comのfor文などでは不可能な 強力な処理をおこなうことができます。DOS,OS/2,Win32用同梱。
    NTやOS/2ではファイル名を大文字に統一する時なんかによく使っています。
    

     flist -ue *.* ren $@ $@ 

    って感じで。小文字に統一ならs/-ue/-le/すればOK。

• DOS PC互換機用

  • Caps2Ctl (cpct104a.lzh)
    PC互換機のDOS上でCtrlとCaps、ESCと全角/半角などを入れ替えるTSRです。 いまだに拙作中では一番ユーザーが多いみたい。