简介：这份《Delphi5开发人员指南光盘》面向Delphi5初学者与希望重温经典RAD开发环境的中高级程序员，围绕Object Pascal语言、VCL组件库、数据库访问与调试技巧等核心主题，提供系统化的学习素材与实践案例。资源包共收录1414个文件，以pas源码、dfm窗体文件、res资源、dpr工程文件为主，辅以cfg、dof配置项、tlb类型库及少量java、htm文档，压缩包约2.96MB，结构紧凑，便于按工程模块检索。光盘内容涵盖Delphi5的IDE使用、快速应用开发流程、ADO与BDE数据库连接、内置调试器操作以及第三方组件扩展思路，示例代码从基础控件到复杂应用层层递进，可帮助读者理解VCL组件的设计视图用法与事件驱动机制。目前已有234人学习，适合作为查阅手册与动手练习的参考，在维护旧项目或迁移遗留代码时也能提供排错与升级线索。
1. 翻出那张 Delphi5 开发人员指南光盘：它到底还能不能跑
整理旧物时翻出一张 Delphi5 开发人员指南光盘，第一反应是“这玩意儿现在还能用吗”。试了一下，能。它解决的不是“学不学 Delphi”的问题，而是当你手里有一堆上世纪九十年代末到两千年代初的 Pascal 工程、需要读懂甚至维护时，一份原汁原味的官方开发文档加示例代码，比任何二手教程都靠谱。适合谁？接手遗留桌面系统的维护者、研究早期 RAD 工具设计思路的人、以及想搞明白“为什么当年 Delphi 能靠一个 EXE 打天下”的从业者。光盘里的内容不是怀旧摆设，是能直接翻的参考手册和可编译的示例工程。
2. 光盘内容拆解：帮助文件、示例源码与工具链怎么配合
2.1 先搞清楚光盘里到底有什么
这张光盘的目录结构在不同批次里略有差异，但核心内容基本固定。我拿到手的这份，根目录下大致是这么几块：
| 目录/文件 | 内容类型 | 用途 |
|---|---|---|
HELP/ | 编译后的.hlp帮助文件 | 开发人员指南正文，含 Object Pascal 语言、VCL、数据库、网络等章节 |
DEMOS/ | 按主题分文件夹的示例工程 | 每个示例含.dpr、.pas、.dfm，可直接在 IDE 中打开编译 |
BIN/ | 若干辅助工具 | 包括资源编辑器、图像转换工具等 |
DOC/ | 纯文本或 RTF 格式的补充说明 | 安装注意事项、已知问题列表 |
README.TXT | 根目录说明 | 版本信息、光盘制作日期、目录索引 |
帮助文件是主体，但真正值钱的是DEMOS/里的示例。这些示例不是“Hello World”级别的玩具，而是覆盖了当时企业开发的主流场景：BDE 数据库访问、QuickReport 报表、COM 组件封装、多线程同步、自定义 VCL 控件。每个示例都能独立编译，前提是你的环境配置对。
2.2 帮助文件的正确打开方式
.hlp是 WinHelp 格式，Windows 10/11 默认已经移除了 WinHelp 查看器。直接双击会提示“不支持此帮助格式”。解决办法有两个：
方案一：装 WinHelp 查看器
微软官方仍提供WinHlp32.exe的独立安装包，按系统版本下载对应版本即可。装完后双击.hlp文件就能正常浏览。注意这个查看器只负责渲染，不涉及任何兼容层。
方案二：反编译成 HTML 或 CHM
如果不想装额外组件，可以用helpdeco或hhc工具把.hlp转成 HTML。命令行操作如下：
# 使用 helpdeco 反编译 hlp 文件 helpdeco -o ./output_help ./HELP/devguide.hlp # 生成的 output_help 目录下会有 .rtf 和 .hhp 文件 # 再用 hhc.exe 编译成 chm hhc ./output_help/devguide.hhp-o指定输出目录，devguide.hlp是帮助文件名。反编译后目录结构会保留，但部分跳转链接可能失效，需要手动修.hhp里的[FILES]段。我一般直接用方案一，省事。
注意：WinHelp 查看器在 64 位系统上需要装 64 位版本，装错版本会提示“不是有效的 Win32 应用程序”。
2.3 示例工程的编译环境搭建
光盘里的示例是为 Delphi5 写的，但 Delphi5 本身在 Win10/11 上安装会有兼容问题。我的做法是：用 Delphi7 打开大部分示例，因为 Delphi7 对 Object Pascal 的语法兼容性最好，且 IDE 在现代 Windows 上运行更稳定。只有涉及 BDE 特定版本行为的示例，才需要回到 Delphi5 环境。
编译前先检查三件事：
- 工程搜索路径：
.dpr里uses引用的单元，如果不在当前目录，需要在 IDE 的Project > Options > Directories/Conditionals里加搜索路径。 - BDE 别名：数据库示例依赖 BDE 别名。在 BDE Administrator 里建一个同名别名，指向示例自带的
.db或.dbf文件所在目录。 - 包引用：部分示例用了
DesignIDE或VCLDB等设计期包，如果编译报“找不到单元”，在Project > Options > Packages里勾选对应运行时包。
// 示例：DEMOS/DB/QUICKREP/quickrep.dpr program QuickRepDemo; uses Forms, QrMain in 'QrMain.pas' {Form1}, QrData in 'QrData.pas' {DataModule1}; {$R *.res} begin Application.Initialize; Application.CreateForm(TForm1, Form1); Application.CreateForm(TDataModule1, DataModule1); Application.Run; end.这段是典型的 Delphi5 工程入口。Application.CreateForm的顺序有讲究：数据模块要在主窗体之前创建，否则主窗体OnCreate里访问数据模块会拿到 nil。光盘里不少示例都遵循这个顺序，但如果你手动改过窗体创建顺序，运行时可能报“Access violation”。
3. 从示例到可运行：数据库与 VCL 示例的实操路径
3.1 BDE 示例的配置与运行
光盘里DEMOS/DB/下的示例大多依赖 BDE。BDE 是 Borland Database Engine，Delphi5 时代访问本地数据库的标准中间层。现在看它确实老旧，但读遗留代码绕不开。
以DEMOS/DB/MASTAPP/为例，这是一个经典的“主从表”示例。运行步骤：
- 打开 BDE Administrator，在
Databases页签右键New，选STANDARD，别名填MASTAPP。 - 在
PATH属性里填示例目录的绝对路径，比如D:\CDROM\DEMOS\DB\MASTAPP。 - 确认
DEFAULT DRIVER是PARADOX，ENABLE BCD设为FALSE。 - 用 Delphi 打开
mastapp.dpr，直接按 F9 编译运行。
如果报“Table does not exist”，检查别名路径是否指向了.db文件所在目录，而不是上一级。Paradox 表的路径必须精确到文件所在文件夹。
// 示例：DEMOS/DB/MASTAPP/DataMod.pas 片段 procedure TDataMod.DataModCreate(Sender: TObject); begin Database1.DatabaseName := 'MASTAPP'; // 与 BDE 别名一致 Database1.LoginPrompt := False; // 不弹登录框 Database1.Open; Table1.Open; // 主表 Table2.Open; // 从表 end;LoginPrompt := False是关键。Paradox 表没有用户名密码，如果保持True，运行时会弹一个空登录框，用户直接点 OK 也能过，但体验很差。光盘里有些示例忘了设这个属性，跑起来会多一步无意义操作。
3.2 VCL 自定义控件的编译与安装
DEMOS/VCL/下有若干自定义控件示例，比如一个带颜色渐变的进度条、一个支持多列排序的 ListView。这些示例的价值在于展示 VCL 控件的完整生命周期：Create、Paint、MouseDown、KeyPress怎么配合。
以DEMOS/VCL/GRADPROG/为例，这是一个渐变进度条控件。编译步骤：
- 打开
gradprog.dpk（包文件），不是.dpr。 - 在
Contains节点下确认GradProg.pas存在。 - 右键包节点，选
Install。IDE 会编译包并注册控件到Samples页签。 - 新建一个普通应用，从
Samples页签拖一个TGradProgress到窗体上，设置MaxValue和Position属性即可看到效果。
// 示例：DEMOS/VCL/GRADPROG/GradProg.pas 核心绘制逻辑 procedure TGradProgress.Paint; var R: TRect; I: Integer; Step: Integer; begin inherited; R := ClientRect; Step := R.Right div 100; // 按百分比分步 for I := 0 to (Position * Step) do begin Canvas.Pen.Color := BlendColor(StartColor, EndColor, I / R.Right); Canvas.MoveTo(I, R.Top); Canvas.LineTo(I, R.Bottom); end; end;BlendColor是示例里自定义的颜色插值函数，参数是起止颜色和比例。Position * Step决定了填充宽度。这个绘制方式在双缓冲没开启时会有闪烁，光盘里的示例没做双缓冲，实际用的时候建议在Create里设DoubleBuffered := True。
3.3 多线程与 COM 示例的注意事项
DEMOS/THREADS/和DEMOS/COM/下的示例涉及更复杂的运行时行为。多线程示例展示了TThread的Synchronize和CriticalSection用法，COM 示例展示了如何用 Delphi 写进程内和进程外组件。
跑多线程示例时，注意Synchronize里不要做耗时操作，否则主线程卡死。光盘里有个SORTTHRD示例，在Synchronize里更新进度条，这个没问题；但如果你改成在Synchronize里写文件，界面就会假死。
COM 示例需要先注册.dll或.exe。用管理员权限打开命令行，执行：
regsvr32 /s ComDemo.dll/s表示静默注册，不弹成功提示。注册后用oleview.exe查看Type Library，确认接口和IID正确。如果注册失败，检查.dll是否依赖了其他未注册的库。
4. 避坑与排查：老光盘在新环境里的五个典型翻车点
4.1 帮助文件打不开，提示“不支持此帮助格式”
现象：双击.hlp文件，Windows 弹出“不支持此帮助格式”或“无法打开此帮助文件”。
原因：Windows Vista 之后，WinHelp 查看器不再随系统预装。.hlp是 16 位时代的帮助格式，现代 Windows 默认不解析。
解决：下载对应系统位数的WinHlp32.exe安装包，安装后即可正常打开。如果公司电脑没有安装权限，用helpdeco反编译成 HTML 阅读。
4.2 示例工程编译报“File not found: 'xxx.dcu'”
现象：打开.dpr按 F9，编译器提示找不到某个.dcu文件。
原因：Delphi 的单元搜索路径没配全。示例工程通常把公共单元放在..\COMMON\或..\LIB\目录，但.dpr里只写了单元名，没写相对路径。
解决：在Project > Options > Directories/Conditionals的Search path里加上公共单元目录的相对路径，比如..\COMMON。多个路径用分号隔开。改完后Project > Build All重新编译。
4.3 BDE 别名建了，但运行时还是报“Cannot open database”
现象：BDE Administrator 里别名测试连接成功，但 Delphi 程序运行时报“Cannot open database”或“Invalid alias”。
原因：BDE 别名分“用户级”和“系统级”。在 BDE Administrator 里默认建的是用户级别名，只对当前登录用户可见。如果程序以其他用户身份运行，或者 BDE 的NET DIR指向了错误位置，就会找不到别名。
解决：在 BDE Administrator 里把别名建在Configuration > Drivers > PARADOX下，或者直接在程序里用Database1.Params动态指定路径，不依赖外部别名。
// 不依赖 BDE 别名，直接指定路径 Database1.DriverName := 'PARADOX'; Database1.Params.Add('PATH=D:\CDROM\DEMOS\DB\MASTAPP'); Database1.LoginPrompt := False; Database1.Open;4.4 自定义控件安装后，工具箱里找不到
现象：包编译安装成功，但 IDE 的控件页签里没有出现新控件。
原因：包安装后需要重启 IDE 才能刷新工具箱。另外，控件的Register过程必须正确调用RegisterComponents，且页签名不能和已有页签冲突。
解决：先重启 Delphi。如果还是没有，打开.dpk文件，检查Register单元：
procedure Register; begin RegisterComponents('Samples', [TGradProgress]); end;'Samples'是页签名，如果 IDE 里已经有Samples页签，控件会追加进去。如果页签名拼写错误，控件会出现在一个新建的页签里。
4.5 多线程示例运行后界面卡死
现象：多线程示例启动后，主界面无响应，进度条不动。
原因：Synchronize调用过于频繁，或者Synchronize里的代码执行时间过长，导致主线程消息队列被阻塞。
解决：减少Synchronize调用次数，比如每处理 100 条记录才更新一次进度。或者改用PostMessage向主窗体发送自定义消息，主窗体在消息处理里更新界面，这样不阻塞工作线程。
// 用 PostMessage 代替 Synchronize const WM_UPDATE_PROGRESS = WM_USER + 1; // 工作线程里 PostMessage(Form1.Handle, WM_UPDATE_PROGRESS, CurrentPos, 0); // 主窗体里 procedure TForm1.OnUpdateProgress(var Msg: TMessage); begin ProgressBar1.Position := Msg.WParam; end;5. 把光盘示例变成自己的参考库：提取、索引与二次利用
光盘里的示例散落在几十个文件夹里，每次翻找很费时间。我后来做了一件事：把所有.pas和.dpr文件提取出来，按功能打标签，建了一个本地索引。具体做法是用 Python 脚本扫描目录，提取每个文件的单元名、类名和关键过程名，生成一个 CSV 索引。
import os import re import csv def scan_pas_files(root_dir): index = [] for dirpath, _, filenames in os.walk(root_dir): for fn in filenames: if fn.endswith('.pas') or fn.endswith('.dpr'): full_path = os.path.join(dirpath, fn) with open(full_path, 'r', encoding='latin-1') as f: content = f.read() # 提取单元名 unit_match = re.search(r'unit\s+(\w+)\s*;', content, re.I) unit_name = unit_match.group(1) if unit_match else '' # 提取类名 classes = re.findall(r'(\w+)\s*=\s*class', content, re.I) # 提取过程/函数名 procs = re.findall(r'(?:procedure|function)\s+(\w+)', content, re.I) index.append({ 'file': full_path, 'unit': unit_name, 'classes': '|'.join(classes), 'procedures': '|'.join(procs[:20]) # 只取前20个 }) return index if __name__ == '__main__': data = scan_pas_files('./DEMOS') with open('delphi5_demo_index.csv', 'w', newline='', encoding='utf-8') as f: writer = csv.DictWriter(f, fieldnames=['file', 'unit', 'classes', 'procedures']) writer.writeheader() writer.writerows(data) print(f'Indexed {len(data)} files.')encoding='latin-1'是因为 Delphi5 时代的源文件大多用 ANSI 编码，用 UTF-8 读会报错。re.I让正则不区分大小写，因为 Pascal 对大小写不敏感。生成的 CSV 可以用 Excel 或任何文本编辑器打开，按类名或过程名搜索，比在文件夹里翻快得多。
索引建好后，我习惯在 CSV 里加一列notes，手动标注每个示例的“可复用点”。比如GRADPROG标注“自定义绘制 + 颜色插值”，SORTTHRD标注“多线程排序 + 进度反馈”。下次遇到类似需求，直接搜notes列就能定位到参考代码。
提示：扫描前先复制一份光盘内容到硬盘，避免直接在光盘上操作。光盘上的文件是只读的，脚本读取没问题，但如果你要批量修改编码或加注释，需要先解除只读属性。
从那以后我每次拿到老工程或老光盘，都强制走一遍“扫描 → 建索引 → 标注重用点”的流程。这套习惯帮我省掉了大量翻文件夹的时间，也让我在维护遗留系统时能快速找到可参考的实现。希望帮到你。
本文还有配套的精品资源，点击获取
