"常に新しい、不変のDelphi - Delphi 2009以降の新機能" のソースコードが何だったのかを検証してみる


はじめに

"常に新しい、不変のDelphi - Delphi 2009以降の新機能" って記事をエンバカさんが公開したのですが、途中に以下のような記述がありました。

実は、ローンチトークで使用したスクリプトとすべてのデモファイルを
見つけました。それはすべて添付の.zipファイルにあります。

zip は 実際に DL 可能でした。しかしながらこれの中身が何なのか記事中では触れられていなかったので調べてみる事にしました...とはいえこれは Delphi 1 のソース、最新の Delphi はおろか Delphi 2007 や Delphi 7 ですらマトモに開けないでしょう。

Delphi 1

初代 Delphi は 1995 年のリリースです。誕生日は 2/14 ですが、日本ではもうちょっと後でリリースされました。Windows 3.1 で動作する唯一の 16bit 版 Delphi でもあります。

© (コピーライト) の表記が 1983-95 となっていますが、Turbo Pascal 1.0 からのカウントだと思われます。

16bit 版 Delphi 1 を動作させる。

Windows XP 以前であれば Delphi 1 はインストール可能だろうと思います。Windows 10 の 64bit 版とかだと NTVDM がないのでまず動作しません。

※ Delphi 1 は Delphi 2~4 の CD-ROM の中にも入っていますヨ!

Windows 3.1 で Delphi 1 を動かしたい!

Windows 3.1 日本語版をマトモに動作させたいのなら VM は Virtual PC 一択だと思います。Vista 以前であれば Virtual PC 2004 / 2007 が使えます。

Windows 7 だったら Windows の機能の有効化または無効化 でインストールできます。

Virtual PC なら 1024x768 の解像度で Windows 3.1 を実行できます。

古い OS を動かしたいのであれば、Windows 7 が動作する PC を用意しとくといいでしょう。Virtual PC は Windows 10 では動作しませんし、Hyper-V では Windows 3.1 がマトモに動作しません。

え?「VM の中で VM 動かせばいいじゃないか?」ですって?それでマトモに動くのならそうしたいのですがね...。

なお、Virtual PC を起動した PC を RDP で接続するとマウスが使えなくなくなります (マウスポインタが見えない)。

zip の中身

さて、本題の zip の中身ですが、解凍すると 3 つのプロジェクトファイルが入っています。

順に調べてみましょう。

・dbbrowse.dpr - DYNAMIC COMPONENT CREATION / DELEGATION -

DB のテーブルの内容を DBGrid に表示するプログラムです。[動的コンポーネント生成] のデモのようです。

普通にコンパイルできました。

・delphi.dpr - DELPHI IN DELPHI -

このプロジェクトはファイルが足りなくてコンパイルできませんでした。

まぁ、それはそうだと思います。だって Delphi 自身をビルドするためのプロジェクトファイル ですもの...。これは [Delphi は Delphi で書かれている] という事を示すデモで使われたもののようです。

AppBuilder というのが見えるかと思いますが、これが Delphi の製品名だったハズの名前です。Delphi はコードネームです。AppBuilder という名前がどこぞの製品とバッティングするのが判ったので、コードネームがそのまま製品名になったと聞きました。

・launcher.dpr - CREATING A NEW COMPONENT -

Windows 3.1 の頃によく作られたアプリケーションランチャーのひな型 (?) のようですが、そのままではコンパイルできません。RunButton というコンポーネントがないようです。

ですが、ご丁寧にコンポーネントが付属しているので [オプション | コンポーネントのインストール] を開き、

[追加] ボタンを押して Runbtns.pas を指定すれば

コンポーネントツールバーの [Samples] タブに RunButton が追加されます。

そして launcher.dpr を開くと...

このままコンパイルするとちゃんとランチャーとして動作します。コードはこれだけなのにね。

unit Launch;

interface

uses
  SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  Forms, Dialogs, Buttons, Runbtns, ExtCtrls;

type
  TLaunchForm = class(TForm)
    Panel1: TPanel;
    RunButton1: TRunButton;
    RunButton2: TRunButton;
    RunButton3: TRunButton;
    RunButton4: TRunButton;
    RunButton5: TRunButton;
    RunButton6: TRunButton;
    RunButton7: TRunButton;
    RunButton8: TRunButton;
  end;

var
  LaunchForm: TLaunchForm;

implementation

{$R *.DFM}

end.

TRunButton は Command プロパティに設定された文字列を WinExec() で実行するコンポーネントなのでコーディング不要なのです。アイコン (BMP 画像) は Glyph プロパティで指定できます。

これは [新規コンポーネント作成を行うデモ] で使われたもののようです。

・LAUNCH.TXT

Delphi ローンチ時のスクリプトです。プログラマが思い浮かべるスクリプトではなく、ローンチトークの台本の事です。ヘジたんがこの通りに喋ったのかどうかは不明です。

Windows 3.1 の頃はこうやって Delphi をタブ形式テキストエディタとしても使っていました。「どこがタブ型?」Delphi 1 のタブは下にあるのです。

おわりに

元記事を読んでモヤっとしたのがスッキリしたのならば幸いです。そういえば、もう一つモヤっとする箇所がありますよね?

小さな “speed is” のクリップに示されているアテナの胸像は、
今は私のホームオフィスに鎮座しています。

(ビデオ)クリップとはこれの事です。

私はビデオクリップを見つけることができませんでした(引き続き探します)が、

このビデオクリップは Delphi 1 のインストール CD または Delphi 2~4 の DELPHI16 フォルダ内の VIDEO フォルダに格納されています (DELPHI.AVI)。

スッキリしましたか?