Delphi 1.0 Client/Server が無償公開されたので Windows 7 の XP Mode にインストールしてみる

# はじめに

![image.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/21785/7cd11d09-54df-09f3-5cd3-244756f93007.png)

**Delphi 25 周年**記念で、**Delphi 1.0 Client/Server** がアンティークソフトウェアとして無償公開されたのでこれをインストールして試してみます。

 - [Historic Delphi 1 Client/Server Install ISO (Embarcadero)](https://cc.embarcadero.com/item/30911)

あー。最新版の無償版である **Community Edition** は別にあるんだからね？

 - [Delphi Community Edition (Embarcadero)](https://www.embarcadero.com/jp/products/delphi/starter)
 - [Delphi Community Edition (Qiita: @pik)](https://qiita.com/pik/items/1db2b6d2f9972d953df4)
 - [Delphi 10.4.2 Community Edition をインストール (Qiita: @CYonezawa)](https://qiita.com/CYonezawa/items/42f2bdc643c81e4735b9)
 - [Delphi Community Edition と Professional Edition の違いについて (Qiita: @c-yan)](https://qiita.com/c-yan/items/f97b058984293fed717e)
 - [Delphi Community Edition と過去の無償版との比較 (Qiita)](https://qiita.com/ht_deko/items/3c4c83157fe072532912)

# Delphi 1.0

## Delphi 1.0 が動作する環境
インストール要件は次の通りです。

| 項目 | 備考 |
|:--|:--|
|CPU |Intel 386 以上の CPU（486 を推奨）|
|OS |Windows 3.1 および 100% 互換性のある上位バージョン|
|メモリ |6MB 以上の拡張メモリ (C/S は 8MB 以上)|
|HDD |30MB 以上のハードディスク (C/S は 80MB 以上)|
|その他 |CD-ROM ドライブまたは 3.5" フロッピードライブ|

XP くらいまでなら普通にインストールできます。Win9x あたりにインストールするのがいいのでしょうけど、VM を作るのも大変です。

Delphi 1.0 は 16bit アプリケーションなので 64bit Windows にはインストールできません。Vista 以降の Windows だと UAC の関係でうまく動作しないかもしれません。

昔のように Windows 3.1 上で Delphi 1.0 を動かしたい方がいるかもしれませんが、Windows 3.1 をちゃんと動作させるのは至難の業です。英語版 Windows 3.11 であれば **DOSBox** でもそれなりに動作するようですが、日本語版 Windows 3.1 は **VirtualPC** くらいでしかちゃんと動きません。

## Windows 7 の XP Mode
...という事で Windows 7 の XP Mode へインストールする事にしました。別に Windows 10 の Hyper-V で XP を動かしてもよかったのですが、なんとなく。

 - [Windows XP Mode (Microsoft)](https://www.microsoft.com/ja-jp/download/details.aspx?id=8002)
 - [Windows Virtual PC (Microsoft)](https://www.microsoft.com/ja-jp/download/details.aspx?id=3702)

なお、XP Mode は VirtualPC の機能の一部なので、VirtualPC に Windows 3.1 をインストールして動作させる事もできます。
![image.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/21785/bd3d590e-667e-9b69-7229-f5fb49fa88fa.png)

では、本題です。

 1. まずは XP Mode をインストールし、セットアップしておきます。<br>
![image.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/21785/4fc5d2b1-7b0f-9f75-ce65-c33e2c8136a0.png)
 2. Delphi 1.0 のアーカイブを解凍し、`INSTALL` フォルダを仮想 XP のルートに (C:\) にコピーします。デフォルトの設定では Windows 7 の C: ドライブが仮想ドライブとして透過的に見えるので、ファイルのコピーは難しくないハズです。[^1]<br>
![image.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/21785/dd73f08e-ffd9-0b36-5b5f-b338ad6e914d.png)
 3. `C:\INSTALL\DISK1` にある `SETUP.EXE` を実行します。<br>
![image.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/21785/7fa22ee4-1cf7-2249-5bf6-05da5584325e.png)
 4. だいたい、[Continue] ボタンを押していって [Install] ボタンを押せばインストールが進みます。設定はデフォルトのままでいいでしょう。<br>
![image.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/21785/0af84c49-8ae9-7ccc-6c55-8b00a952b20c.png)
 5. 有名なスピードメーターインストーラー。<br>
![image.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/21785/9d74853f-8e89-821e-a30e-2f9e2decdd63.png)
 6. セットアップが完了しました。<br>
![image.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/21785/ed709ae5-2595-532f-7fcf-501bb366d67a.png)
 7. Windows 7 でスタートメニューを開くと [Windows XP Mode アプリケーション] の所に 'Delphi' が増えています。<br>
![image.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/21785/0518ad53-13d3-c9e1-2e7e-48be225ce2f0.png)
 8. メニューを掘ると [Delphi (Windows XP Mode)] があります。<br>
![image.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/21785/64065350-b2a1-5b83-cbb1-b418392c7723.png)
 9. Delphi 1.0 Client/Server が起動しました。<br>
![image.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/21785/bde55a77-c3ff-fa56-7e27-ec67030a8828.png)

なお、[Help | About...] で 〔Alt〕キーを押しながら `AND` とタイプすると...
![image.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/21785/16c5861d-da02-d4b1-d65b-b6fbc9dc4715.png)
ヘジたんの若い頃の写真が出てきます。

## Tips

### Q1: 日本語が文字化けします
**A1:** [Options | Environment] で [Environment Options] を開き、[Editor display] タブの [Editor font:] で `MS ゴシック` を選びましょう。
![image.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/21785/85282428-f4ab-d2ab-37f3-7a71587511b0.png)

### Q2: コンパイルの進捗が判りません
**A2:** [Environment Options] の [Preferences] タブの [Compiling] にある `Show compiler progress` にチェックを入れましょう。
![image.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/21785/471938da-b528-d1c0-a6ba-314a0174d3d4.png)

### Q3: 最近の Delphi にあるようなプロジェクトのひな型ってないんですか？
**A3:** [Environment Options] の [Preferences] タブの [Gallery] にある `Use on New Project` にチェックを入れましょう。
![image.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/21785/6809a8ea-a9e1-bba4-3ecc-9d768499c559.png)
[File | New Project] で新規プロジェクトを作成する時にプロジェクトの種類を選べるようになります。
![image.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/21785/abb7f58d-4bf2-0e75-54f7-36a349462b81.png)
ギャラリーの設定は [Options | Gallery] にあります。
![image.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/21785/11e6df29-8cbb-8cd2-1b03-8a2df08b9ee5.png)
ここで既存のプロジェクトをギャラリーに追加する事ができます。

### Q4: W8LOSS.EXE ってなんですか？
**A4:** EXE サイズをちっちゃくしてくれるユーティリティです。減量 (`Weight loss`) ですね。

# おわりに
今年で Delphi 25 周年です。25 周年記念サイトや、記念 Web セミナーがあったりしてなかなか盛り上がっているようです。
![image.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/21785/3565f525-93c0-42ca-6186-5d72c2330350.png)![image.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/21785/2a417f28-d303-b10b-9fa4-f96501654d19.png)


**See also:**

 - [Celebrating Delphi's 25th Anniversary (Embarcadero)](https://delphi.embarcadero.com/)
 - [Delphi Stories (Embarcadero)](https://www.embarcadero.com/jp/delphi-stories/)
 - [#Delphi25th (Twitter)](https://twitter.com/search?q=%23Delphi25th&src=typed_query&f=live)
 - [Delphi 25 周年！(...といくつかのサプライズ) (Togetter)](https://togetter.com/li/1468708)
 - [Delphi 1.0 Client/Server が無償公開されたので Windows 10 (64bit) にインストールしてみる (Qiita)](https://qiita.com/ht_deko/items/a65e0950b906d28ccb5f)
 - [『はじめての Delphi』- 技術評論社の Software Technology シリーズから Pascal 関連の書籍を読んでみる (Qiita)](https://qiita.com/ht_deko/items/06946a72b51f577523bb#20-%E3%81%AF%E3%81%98%E3%82%81%E3%81%A6%E3%81%AE-delphi)

[^1]: 16bit アプリケーションは ファイル名やフォルダ名が 8.3 形式でないとうまく動作しない事が多いので、短い名前で短いパスのフォルダで作業するのが無難です。