扫雷 V0.93 (完整代码)

********************************** Program: 扫雷 ( Mine ) Version: 0.93 Description: 完全模仿 Windows XP ( Windows NT 5.1 Build 2600) 自带的 Microsoft(R) 扫雷 5.1 (内部版本号 2600.xpclient.010817-1148) 游戏制作,在可以实现后,又新添了一些功能。 CopyRight (C) By 虹雨 2002-8 Code Tool : Delphi Date : New Develop : 2002-7-28 Modify : 2002-8-13***********************************V0.93 Date :2002-9-11 * 更严格了的程序结构,便于新增功能的添加;更加详尽的程序注释,更方便了程序的升级和修改。 * 修改了一个从 V0.92 就已经发现了的Bug,至今才勉强解决,惭愧 :( * 新增功能:增加了专业级的难度选项,并经过严格测试;新增了繁体中文的语言支持。而且易于添加语言种类;增加了状态条,用于提示信息。 * 已知Bug:无。不过,我知道的一点就是,帮助文件还是用的Windows自带的,没有自己做,如果您能做好一份对口的帮助文件,并能发给我一份,那实在是太感谢您了。。。。。 * 升级计划:开学了,大四了,没时间做了,不准备升级了。最多也就是优化点代码、添加点注释,应该不会再出新的版本了。 :)***********************************V0.92 Date : 2002-8-13 * 修改了在切换菜单时的两个 Bug 。 * 根据一位网友的指导,使得程序在Delphi 6 下同样流畅,同样稳定。***********************************V0.91 Date : 2002-8-11 * 修改了 V 0.90中的两个Bug,并且还知道有一个明显的Bug 存在,我会于近期解决。将在后续版本里解决,就不公布了,留给你来找吧! * 优化了代码,但是第一次按下方块时的运算还是有停顿。 * 增加了一个主菜单——“控制”, 四个一级菜单——“暂停/继续”、“重扫本局”、“语言”、“状态条”,两个二级菜单——“简体中文”和“English” *?支持中英文切换,支持状态条的显示和隐藏 * 在游戏过程中,可以暂停游戏、继续游戏 * 如果此局失败了,可以重新扫本局雷区,而雷区的分布是不变的。*********************************** V 0.90 Date : 2002-8-5 * 为了屏幕的稳定,请在Delphi 5.0 下编译。 * 完全模仿 Windows XP ( Windows NT 5.1 Build 2600) 自带的Microsoft(R)扫雷 5.1 (内部版本号 2600.xpclient.010817-1148) 游戏制作,可以实现“开局”,“初级”,“中级”,“高级”,“自定义”,“标记”,“颜色”,“声音”,“扫雷英雄榜”,“退出”,“帮助目录”,“查找帮助主题”,“使用帮助”,“关于”等全部功能。***********************************??以前看到别人玩“扫雷”时手脚麻利的样子总是羡慕不已,今年暑假,我脑子一热,决定要用Delphi 编出自己的扫雷出来,于是就着手开始构思,想在扫雷里加入一些新增的功能,前思后想,还是觉得不如完全模仿微软操作系统自带的扫雷游戏,给自己定个目标,于是就一切以 Windows的扫雷为标准,为了模仿和 测试,我没少玩扫雷,现在俨然一个高手了,终于完工了,自认为可以和Windows 的扫雷程序鱼目混珠一番了,不过,当我已经完全实现了扫雷的扫雷功能后,我又绞尽脑汁的想方设法添加点东西,于是就做出了这个“迷你扫雷(MiniMine)”,是好是坏,是优是劣,您说了算。??提供源代码,以便大家交流、学习,也是请高手指教我的不足以及代码的错误之处,同时也可以给初学Delphi 的同仁们提供一点学习的机会。大家共同进步。??我期待我哪天对 Windows版的扫雷的突破,更期待你的飞跃,如果你能打开我的程序,我已经很高兴了,如果你能打开Delphi 调试、运行我的程序,我已经很高兴很高兴了,如果你还能够修改,升级,那我就很高兴很高兴很高兴了,如果,如果你还能够将你的升级版本发一份给我,那你能猜到我会有多高兴吗?***********************************??欢迎与我联系 Author: 虹 雨 (Huansun) E-Mail: zmxue@h