获取程序的图标设计论文-无忧无虑毕设网

无忧无虑毕设网 ():毕 业设计源码下载 毕业设计源码下载： 本文配套程序下载地址 ： 无忧无虑毕设网 ()-大学生毕业设计站 ,免费毕业设计论文 ,无忧无虑毕设网 大学生毕业设计 ,出售各类毕业设计源码 ,论文 ,程序源码 ,网站源码 ,免费视频教程 ,我们将竭诚为您服务！ 摘 要 ： 现在许多 Windows 应用程序都带有图标 ,这些小巧精致的图标就成了该软件的标识，一般情况下只要我们看到一个图标就道它是代表了什么软件。如果我们能把这些图标提取出来，可以建立一个图标库，供自己作多媒体创作之用，那就太好了，本论文将详细介绍这个程序在 Delphi7.0 中的实现过程 。 关键字 ： 图标提取、 delphi7开发 易瑞六月风计算机毕业设计辅导网 提供毕业设计辅导及相关资料的专业网站 QQ： 380856918 电子邮箱： 2 摘 要 关键字 前 言 第一章 Delphi 语言概述 1 1 1、 Delphi 简介 1 1 2、 Delphi语言的基本特点 1 1.2 1、 集成开发环境（ IDE） 1 1.2 2、 可视化构件库（ VCL） 2 1.2 3、 程序调试新的集成调试程序 2 1.2 4、 MIDAS3 3 1.2 5、 ADO 3 1.2 6、 XML 3 1.2 7、 HTML4 4 1.2 8、 TeamSource 4 1.2 9、 InterBase Express 4 1.2 10、 Borland Translation SuiteBorland Translation Suite 4 1.3、 Delphi与 API 函数 4 1 4、编程语言的选择 6 第二章 图标提取程序的开发 7 2 1、程序设计思路 7 2 2、具体设计 7 第三章 毕业设计总结 11 第四章 本系统运行的软硬件配置 11 第五章 主要参考文献 11 易瑞六月风计算机毕业设计辅导网 提供毕业设计辅导及相关资料的专业网站 QQ： 380856918 电子邮箱： 3 图标获取程序的开发 前 言 电脑已经成为挂在我们嘴角的一句口头禅，它已经深入到日常工作和生活的方方面面，比如文字处理、信息管理、辅助设计、图形图像处理、教育培训以及游戏娱乐等。 Windows系统的推出使电脑从高雅的学术殿堂走入了寻常百姓家，各行各业的人们无须经过特别的训练就能够使用电脑完成许许多多复杂的工作。然而，虽然现在世界上已经充满了多如牛毛的各种软件，但它们依然不能满足用户的各种特殊需要，人们还不得不开发适合自己特殊需求的软件。以前开发 Windows 下软件是专业人员的工作，需要掌握许多专业知识和经过特殊的培训才能胜任。现在不同了，即使你没有接受过严格的程序设计训练，使用 Delphi也一样能够开发出功能强大、适合自己特殊需求的应用程序了。 Delphi具有 Visual Basic语言易学易用的特点，特别适合于初学者学习 Windows系统编程。 我作为一名中央电大的学生，在工作和学习之余，我时常钻研专业课基础理论，经常用搞一些小程序，我发现用 Delphi 是一个快速开发 windows应用程序的工具，它采用完全面向对象的方法，还将可视化、事件驱动、代码自动生成等最先进的技术综合为一体。平时我们会发现在许多 Windows应用程序都带有图标 ,这些小巧精致的图标就成了该软件的标识，一般情况下只要我们看到一个图标就道它是代表了什么软件。如果我们能把这些图标提取出来，可以建立一个图标库，供自己作多媒体创作之用，那就太好了。现在适逢这次毕业设计，我在中央电大易瑞分校的老师的指导下，开始编写一个属于自己的图标获取程序。 第一章 Delphi 语言概述 1.1、 Delphi 简介 Delphi是 Inprise公司出品的一个优秀的可视化程序开发工具软件，它短小精悍，但功能却可以与庞大的 visual c+媲美。它易学易用，如同 VB。因而被称为“第四代编程语言”。 从 1995年推出 Delphi1.0至今已经经历了 7个版本， Delphi7.0运行在 win9x或 winme，win2000， winxp， windowsNT 等操作系统下，是一个 32 位的应用程序开发工具。这里把“ VB”比作是傻瓜相机， Delphi是带有自动功能的专业相机。前些年，软件界流行一句话叫“真正的程序员用 VC，聪明的程序员用 Delphi”。也有的把 Delphi称作 VB杀手。 1.2、 Delphi 语言的基本特点 Delphi7的新特性从历史上看， Delphi的每个版本都向用户提供了更新更强壮的功能。例如，在 Delphi 1.0 的版本中，提供给用户一种全新的可视化的环境，从而使开发 Windows 3.1应用程序更加方便与快捷。 Delphi 2.0版增加了数据模块（ DataModule)等多种高效的数据重用功能，而第三代版本 Delphi 3又增加了多层 C/S数据库开发应用、创建Internet/Intranet程序等功能。 Delphi 4也增加了很多新的特性，如动态数组、方法重载、Code Explorer、项目管 理、 COM和 CORBA组件的开发与应用等。 INPRISE公司继续保持这种趋势，并在最近推出的 Delphi 7中得到了充分的体现。 Delphi 7在开发 Internet应用、 易瑞六月风计算机毕业设计辅导网 提供毕业设计辅导及相关资料的专业网站 QQ： 380856918 电子邮箱： 4 数据库系统等方面的性能有了很大提高，同时在提高开发人员的效率、方便开发人员的使用方面也做了很多改进。下面对 Delphi 7的这些新的特征作一简单的介绍 1.2.1集成开发环境（ IDE） Delphi 7中的集成开发环境有了 很大改进，能极大地提高开发效率，它主要依靠简化读写和浏览代码的操作来提高开发效率。代码编辑器让浏览本单元或相应单元的内容变得容易，项目管理器中的 “ 拖放 ” 功能使得从已打开的项目中或资源管理器的对话框中选择文件并增加到项目中的文件中变得更简单，使用项目管理器中多个项目管理的功能让用户能同时编辑多个项目文件，应用 Delphi 7的可视化窗口设计让用户能够轻松地从模板中选择创建Internet程序、分布式计算及 Windows程序等等。与 Delphi 6相比， Delphi 7 的 IDE新特点主要包括： 桌面的用户化设置增强了用户对开发环境的控制； 编辑键映射功能可以让编辑器按照用户的习惯来工作； 项目浏览可以帮助用户更好地理解代码，操作 VCL； 带有树视图和数据图表视图（ Data Diagram View）的 DataModule设计器可以帮助用户充分理解程序中的数据； 资源文件与项目管理器和编译器集成在一起； 行为列表保存了开发计划 ； 控制面板向导可以帮助用户定制应用程序的属性。 1.2.2可视化构件库（ VCL） VCL（ Visual Component Library）是 Delphi实现代码 重用的基础。在 Delphi7 中，用户可以利用面向对象设计的强大功能开发出稳定、可靠、高效的程序，可以利用面向对象的构件创建自已的构件。 Delphi 7企业版的 VCL中一共包含有 200多个构件，利用这些构件，用户可以奇迹般地加快应用程序从开始到推向市场的速度。无论是开发 Windows 程序还是Internet应用， Delphi 7基于 构件的开发模式都能大大降低开发任务的难度。 Delphi 7的VCL的新特点包括： 提供用于创建和重用复合构件的架构； 增加了能将 HTML浏览功能集成到应用程序的 WebBrowser构件； 增加了 Microsoft Office 自动化组件集，以便把 Word、 Excel和 Outlook等 Office程序快速集成到应用程序中； 特性编辑器（ Property Editor） 支持自画（ Owner Draw ）功能，简化了特性选择； 增强了对高级自画（ Advanced Custom Draw）函数的支持，以加强对 Windows API的控制。 1.2.3程序调试 新的集成调试程序具有许多新的功能，所有这些特性保证了 Delphi开发过程中的 Bug最小，即使有 Bug，也能及时发现，并跟踪解决。即使是非常复杂的项目，查找并修改错误都变得异常简单。 Delphi 7 改进的调试器能帮助用户理解并控制自己编写的代码。用户利用断点可以在需要的地方深入代码内部进行调 试，而现在，用户甚至可以在断点处设置触发 易瑞六月风计算机毕业设计辅导网 提供毕业设计辅导及相关资料的专业网站 QQ： 380856918 电子邮箱： 5 断点后要采取的动作，并把断点进行分组集中在一起，以便快速调试自己感兴趣的代码段。Delphi7的代码调试器包含以下一些新特点： 各种调试窗口和 编辑器之间紧密集成，拥有一致的用户界面，支持剪贴板和拖动操作； 增加了断点提示条（ Breakpoint ToolTip） ,以加快浏览和定位源代码； 新增的断点动作（ Breakpoint Action）功能加强了对调试进程的控制； 断点组（ Breakpoint Group）方便了对多条断点的控制。 在 DCU和调试符合查找路径的帮助下，调试工作变得更简单； FPU调试窗口支持 MMX指令，从而增强了底层调试的能力； 进行多进程调试时，增加了临时进程选项，并支持调试子进程； 支持跨越进程边界的调试； 能够挂接到正在运行的进程上进行调试； 理解当前应用的各个部分的强大工具。 1.2.4 MIDAS3 MIDAS是 Multi-Tier Distributed Application Services Suite的简称。 Delphi对多层体系结构的支持主 要得益于它的 MIDAS技术。利用 Delphi 5中的 MIDAS3，用户可以创建高效灵活的 Delphi 程序，以满足日益增长的事务量和用户数量的需要。 MIDAS 3支持所有的分布式计算标准，如 CORBA、 COM和 MTS等，可以实现现有系统和电子商务程序之间的无缝集成。其特点表现为： 没有界限的数据请求在移动或窄带宽的环境中可以实现更多控制； WebConnection 组件能够在保证安全性的前提下帮助用户移到防火墙外； 服务对象库增强了扩展性。 1.2.5 ADO ADO（ ActiveX Data Object）是微软提供 对各种数据格式的高层接口（ high-level interface），该接口已经成为访问数据库的新的标准。使用这种接口的数据库又称为 OLE DB数据库。 OLE DB数据库可以使 我们方便地访问各种类型的数据库，包括关系型或非关系型数据库、 E-Mail和文件系统、文本和 图形以及各种自定义商用对象。 Delphi 7 增添了对 ADO的支持，从而使用户能够迅速实现对终端用户用于做商业决策的数据的一致性访问。结合Delphi本身的开放式数据元件结构，如借助于 DBGrid， DBEdit等数据感知构件，用户可以不需使用 BDE（ BorlandDatabase Engine）就可很快地建立应用程序，用来把自己的商业数据通过 Internet发送给客户和最终用户以及整个销售环节。通过 ADO， Delphi 7能够让用户快速访问 ADO支持的数据库。 1.2.6 XML XML是 eXtensible Markup Language的简称。 XML是一组用来形成语义标记的规则集，这些标记可把一篇文档分割成许多部分或验证文档中的不同部分。 Delphi 7提供了对 XML的支持，从而简化了数据分布，优化了数据交换。用户可以方便地创建高效率的 Internet程序，把数据迅速发布到 Internet上。新版 Delphi对 XML数据的支持使得开发人员能够快 易瑞六月风计算机毕业设计辅导网 提供毕业设计辅导及相关资料的专业网站 QQ： 380856918 电子邮箱： 6 速建立起具有可移植性和扩展性的系统，以迎接 Internet正面临的又一次冲击波 电子商务。 1.2.7 HTML4 Delphi 7支持 HTML 4，使用户能在 Web应用中创建各种类 型的动态瘦客户端程序。把HTML 4和 XML结合起来使用，从而创建动态的极瘦客户端程序，以满足 Internet上各种任务的需求。 1.2. 8 TeamSource Delphi 7新添加的 TeamSource在功能上类似微软的 SourceSafe ，是一个工作流管理工具。借助该工具，在相同开发环境中的工作组成员一同进行的工 作会合作得更快，更有效率。 TeamSource建立在现有的源代码管理工具和版本引擎的基 础之上，并把它们扩展成一种工作流程的模式，从而简化了工作组开发的源代码管理工作。注意， TeamSource是一个单独的产品，单独安装，并不是 Delphi 7的所有版本都提供。 1.2.9 InterBase Express 利用 InterBase Express，系统集成商和独立软件商可以快速开发高性能的应用系统。把 Delphi 7和 InterBase Express结合起来使用，便可以在只需少量维护工作且只占很少系统资源的数据库上 进行高效率、高性能的开发。有了 InterBase Express之后，用户 不需要使用 BDE(Borland Database Engine)，便可以创建一个优秀的嵌入式系统。 1.2.10 Borland Translation SuiteBorland Translation Suite Delphi 7 包含的一个国际化和本地化工具，它能帮助用户同时开发多语言版本，管理和维护各种资源的翻译代码，从而加速产品的国际化开发步伐。现在利用 Delphi 7 开发的系统可以在世界范围内应用，帮助用户开拓全新的世界范围内的市场 。 1.3、 Delphi 与 API 函数 Delphi无疑是最先进的 编程工具之一，但在涉及 windows 32位系统的核心编程方面，譬如一些高级功能的实现上，它仍然显得有些力不从心，这需要我们充分利用 Delphi的强大的 Windows API函数调用能力来弥补。作为一个编程初学者来说， API函数也许是一个时常耳闻却感觉有些神秘的东西。单看它的复杂语法，就足令人望而生畏，但是任何事物在我们深入了解它之前，总是会有这种感觉的。其实我们应该把 API函数的来龙去脉搞清楚，破除对 API函数的畏惧，使它成为我们编程的好助手。 大家可能在许多书上看到过 API的英文全称 (Application Programming Interface)，WIN32 API也就是 MicrosoftWindows 32位平台的应用程序编程接口。对这个定义的理解，需要追溯到操作系统的发展历史上，当 WINDOWS操作系统开始占据主导地位的时候，开发WINDOWS平台下的应用程序成为人们的需要。而在 WINDOWS程序设计领域处于发展的初期，WINDOWS程序员所能使用的编程工具唯有 API函数，这些函数是 WINDOWS提供给应用程序与操作系统的接口，他们犹如“积木块”一样，可以搭建出各种界面丰富，功能灵活的应用程序。所以可以认为 API 函数是构筑整个 WINDOWS框架的基石，在它的下面是 WINDOWS 的操作系统核心，而它的上面则是所有的华丽的 WINDOWS应用程序。（如图 1） 易瑞六月风计算机毕业设计辅导网 提供毕业设计辅导及相关资料的专业网站 QQ： 380856918 电子邮箱： 7 图 1 但是，那时的 WINDOWS 程序开发还是比较复杂的工作，程序员必须熟记一大堆常用的API函数，而且还得对 WINDOWS操作系统有深入的了解。然而随着软件技术的不断发展，在WINDOWS平台上出现了很多优秀的可视化编程环境，程序员可以采用“即见即所得”的编程方式来开发具有精美用户界面和功能强大的应用程 序。 这些优秀可视化编程环境操作简单、界面友好（诸如 DELPHI、 VC+、 VB等），在这些工具中提供了大量的类库和各种控件，它们替代了 API的神秘功能，事实上这些类库和控件都是构架在 WIN32 API 函数基础之上的，是封装了的 API函数的集合。它们把常用的 API函数的组合在一起成为一个控件或类库，并赋予其方便的使用方法，所以极大的加速了WINDOWS应用程序开发的过程。有了这些控件和类库，程序员便可以把主要精力放在程序整体功能的设计上，而不必过于关注技术细节。 实际上如果我们要开发出更灵活、更实 用、更具效率的应用程序，必然要涉及到直接使用 API函数，虽然类库和控件使应用程序的开发简单的多，但它们只提供 WINDOWS的一般功能，对于比较复杂和特殊的功能来说，使用类库和控件是非常难以实现的，这时就需要采用API函数来实现。 这也是 API函数使用的场合，所以我们对待 API 函数不必刻来研究每一个函数的用法，那也是不现实的 (能用的到的 API函数有几千个呢 )。正如某位人士所说： API不要去学，在需要的时候去查 API帮助就足够了。 怎样在 DELPHI中使用 API函数 实际上，在 DELPHI中调用 WIN32 API函数与在 C或 C+中调用 WIN32 API函数没有大的区别。 DELPHI中将 C或 C+中引用 的 WINDOWS.H头文件改写为 WINDOWS.PAS 单元，使WINDOWS API函数的定义符合 PASCAL语法。而其他的头文件在 DELPHI中也都有相应的 .PAS单元一一对应，所以在 DELPHI中调用 API函数时，只须将相应的 API函数单元加入到 USES语句的单元之中，便可直接调用相应的函数了。 下面我们来 看一个简单的例子，程序的作用是改变桌面墙纸： unit Unit1； interface Windows.PAS是 DELPHI提供的标准单元，我们要调用 API函数，需要引用这个单元 uses Windows, Messages, SysUtils, Classes,Graphics, Controls, Forms, Dialogs, StdCtrls； type TForm1 = class(TForm)； Button1: TButton； Win32Api函数（应用程序接口） Windows操作系统底层 Windows应用程序 易瑞六月风计算机毕业设计辅导网 提供毕业设计辅导及相关资料的专业网站 QQ： 380856918 电子邮箱： 8 procedure Button1Click(Sender: TObject)； private Private declarations public Public declarations end； var Form1: TForm1； implementation $R *.DFM procedure TForm1.Button1Click(Sender: TObject)； var filename1:string； begin filename1:=c:windowsmywallpaper.bmp； 调用 API函数 SystemParametersInfo来设置桌面墙纸的图片文件为c:windowsmywallpaper.bmp SystemParametersInfo(SPI_SETDESKWALLPAPER, 0,pchar(filename1), SPIF_UPDATEINIFILE)； end； end. 其中 SystemParametersInfo 函数的参数的意义如下表： 参数 ： 意义 uAction longint，指定要设置的参数。参考 uAction常数表 uParam longint，参考 uAction常数表 lpvParam 不 定，按引用调用的 Integer、 Longint和数据结构。 fuWinIni 参数 规定了在设置系统参数的时候，是否应更新用户设置参数 常数 SPIF_UPDATEINIFILE表示更新 下面是本例的 uAction 常数，和使用它的方法： 参数意义和使用方法 SPI_SETDESKWALLPAPER设置桌面背景墙纸，用法为： SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, 图片路径 , 1) 好了在 DELPHI中调用 API函数就是这样简单，我们需要知道的只是 API 函数的意义和参数列表，然后把它用到程序中就可以了。需要提醒的是 C的数据类型可能会与 DELPHI的数据类型有些不同，而调用 API函数时必须保证类型一致才行，这是我们必须注意的一点。 1.4、编程语言的选择 一句老话说的好：“工欲善其事，必先利其器”，编程也同样，一个好的编程语言，一个优秀开发工具往往能够使你事半功倍。 当前比较流行的编程工具主要有 Microsoft 公司的 Visual Studio系列（包括 Visual Basic， Visual C+,Visual Foxpro等等）， Borland 公司的 C+ Builder和 Delphi.这些开发工具的特色和侧重点各不相同，能够满足不同的开发者的需要。例如 Visual Foxpro 易瑞六月风计算机毕业设计辅导网 提供毕业设计辅导及相关资料的专业网站 QQ： 380856918 电子邮箱： 9 是一套运行于 Windows98和 WindowsNT的 32位关系数据库的开发系统，适合于开发各种大型和小型数据库应用系统，但是假如我们需要制作的是一些小工具软件，它就不是很实用了。 而 Inprise公司的 DELPHI,是 一种面向对象的可视化的 Windows编程工具，可视化就意味着你在编程的过程中所使用的各种按钮窗体、菜单和图标等等完全可以由自己定制，就好像用画笔在画板上涂抹一样，而你并不需要去知道每一个具体的细节，让人感觉编程就像是在进行一项精心的艺术创作。 DELPHI另外一个激动人心的地方就在于它的“控件”功能，世界各地很多 DELPHI 爱好者们为它开发了各种各样的控件，它们极大地增强了 DELPHI的功能。你想把程序做到系统托盘区吗？你想做出完全由你自己定义的不规则透明窗口吗？你想做一个属于自己的 Web 服务器吗？ 。不需 要你懂得系统核心的原理，不需要你为此编写一句代码，灵活运用“控件”，像搭积木一样，你就可以实现需要的各种复杂的功能。而且 DELPHI的编译系统是完全编译，产生的代码不需要在运行时进行解释，不像 VB 做出来的程序总是要带一些很庞大的额外的动态链接库， DELPHI 编译形成的 exe文件在任何地方（ windows）和环境下都可能直接运行，成为大多数小型工具软件开发者的首选，像我们熟悉的 Foxmail、电子书库、网页作坊等都是用 DELPHI开发的，所以人们把它称为是 RAD(Rapid Application Develop,快速应用程序开发工具 )。 了解了以上有关 DELPHI的基础知识，我们现在就可以开始着手运用 DELPHI进行程序设计了。 第二章 自制图标获取 程序的开发 2.1 程序设计思路 1、程序应具有打开文件功能，当我们打开要提取图标的文件时（通常是 .exe 文件或 .dll）文件，应能弹出一个对话框，使我们能方便地选取相应的文件。该对话框如下图所示： 2、提取的一系列图标应能显示出来，如下图所示： 易瑞六月风计算机毕业设计辅导网 提供毕业设计辅导及相关资料的专业网站 QQ： 380856918 电子邮箱： 10 3、应能保存所提取的图标 2 2 具体设计 1、 界面设置如下： 2、 各控件详细介绍： 控件名 称 所属类别 功能属性 Mainmenu1 Tmainmenu 有打开，保存，退出三个菜单项 Opendialog1 Topendialog 显示打开对话框 Imagelist1 Timagelist 显示出图像 Listview1 Tlistview 把显示的图像列在列表框中 易瑞六月风计算机毕业设计辅导网 提供毕业设计辅导及相关资料的专业网站 QQ： 380856918 电子邮箱： 11 3、 程序主要源代码如下： unit Unit1； interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Menus, ComCtrls, ImgList； type TForm1 = class(TForm) MainMenu1: TMainMenu； File1: TMenuItem； Open1: TMenuItem； Save1: TMenuItem； Exit1: TMenuItem； ImageList1: TImageList； ListView1: TListView； StatusBar1: TStatusBar； OpenDialog1: TOpenDialog； procedure Exit1Click(Sender: TObject)； procedure Open1Click(Sender: TObject)； procedure FormCreate(Sender: TObject)； procedure FormCloseQuery(Sender: TObject； var CanClose: Boolean)； private Filename:Tfilename； Ficon:Ticon； Private declarations public Public declarations end； Function Enumresname(hmodule:Hmodule；lptype,lpname:Pchar；lparam:longint):Bool；stdcall； var Form1: TForm1； hexe:Hinst； implementation $R *.DFM Function Enumresname(hmodule:Hmodule；lptype,lpname:Pchar； lparam:longint):Bool；stdcall； var hicon1:hicon； hresource:hrsrc； hmem:hrsrc； lpresource:pbyte； 易瑞六月风计算机毕业设计辅导网 提供毕业设计辅导及相关资料的专业网站 QQ： 380856918 电子邮箱： 12 listitem:Tlistitem； begin hresource:=findresource(hexe,lpname,RT_ICON)； hmem:=loadresource(hexe,hresource)； lpresource:=lockresource(hmem)；/返回指向锁定资源头字节的指针 hicon1:=Createiconfromresourceex(lpresource,sizeofresource(hexe,hresource), True,$0030000,32,32,LR_DEFAULTCOLOR)；/从锁定可执行资源创建图标句柄 With Form1 do begin /显示处理 Ficon.handle:=hicon1； imagelist1.addicon(ficon)； listitem:=listview1.items.add； ListItem.ImageIndex := imagelist1.count - 1； ListItem.caption:= format(图标 %d,imagelist1.count)； end； result:=True； end； procedure TForm1.Exit1Click(Sender: TObject)； begin Close()； end； procedure TForm1.Open1Click(Sender: TOb