用Delphi实现动态获取版本信息

日期：2007年6月29日作者：查看:[大字体中字体小字体]

　　2.1. 建立实例窗体样板

　　首先，我们需要建立两个Delphi窗体，它们分别是程序主窗体和关于对话框窗体。用于这个程序只作演示用途，所以没有必要在主窗体中实现过多的功能。事实上，在我们这个实例中，主窗体上只有“关于”和“退出”两个菜单项。

　　稍微复杂一点的要算是关于对话框窗体了。在这个窗体中，将包含“产品名称”、“产品版本号”、“文件说明”、“产品合法商标”、“运行文件版本号”、“公司名称”、“合法商标”、“产品内部名称”、“原文件名”等几个重要且基本的版本信息。当然，正如你所看到的，在这个窗体中还包含了操作系统信息版本和系统内存信息。但由于篇幅的关系，两条信息的获取方法在本文中不会加以说明。我们会在下一次的学习中讨论这两个话题。关于对话框的布局如下图，大家可以对比这个图片自己用Delphi制作一个对话框处出来。

[插入图片1]

　　2.2. 填写应用程序的运行文件版本信息

　　在Delphi的集成编辑器中按下Shift+Ctrl+F11键，在弹出的对话框中按照下表的内容，在相应键值的未知输入内容：

[插入表格2]

　　2.3. 实现获取版本信息功能的代码

　　下面的代码是这个关于对话框创建时的事件响应代码片断。大家把它们拷贝+粘贴到窗体的OnCreate事件中就可以了。

const
InfoNum = 9;
InfoStr: array[1..InfoNum] of string = (
'ProductName',
'ProductVersion',
'FileDescription',
'LegalCopyright',
'FileVersion',
'CompanyName',
'LegalTradeMarks',
'InternalName',
'OriginalFileName'
);
var
S: string;
BufSize, Len: DWORD;
Buf: PChar;
Value: PChar;
begin
S := Application.ExeName;
BufSize := GetFileVersionInfoSize(PChar(S), BufSize);
if BufSize > 0 then begin

Buf := AllocMem(BufSize);
GetFileVersionInfo(PChar(S), 0, BufSize, Buf);
if VerQueryValue(Buf, PChar('StringFileInfo\080403A8\' + InfoStr[1]), Pointer(Value), Len) then
ProductName.Caption := Value;
if VerQueryValue(Buf, PChar('StringFileInfo\080403A8\' + InfoStr[2]), Pointer(Value), Len) then
上一页 [1] [2] [3] [4] [5] [6] 下一页
用Delphi实现动态获取版本信息相关文章：
·还原Windows Vista所有被隐藏更新及信息
·黑客入侵前的信息收集
·QQ盗号木马盗取帐号与重要信息
·.NET中取得IP/用户名等信息常用方法
·窗口偷窥者监视IE盗取用户信息
·内容拷贝增加版权信息的JavaScript代码
·个人信息安全迫在眉睫
·QQ2007II Beta1新版QQ群消息设置技巧
·网站信息被抄袭找查发状告客齐集
·WPS表格提取身份证详细信息
用Delphi实现动态获取版本信息相关软件
·大息地网络诗歌杂志2005第1期
·AAA Words--高等教育自学考试英语词汇全息速记 V3.1
·2005年中考试题信息的传递
·高等教育自学考试英语词汇全息速记
·电子商务市场信息学试卷
·建设监理师之建设工程信息管理部分
·2005版监理考试用书-信息管理
·2005监理考试过关题库-信息
·监理工程师执业考试信息管理部分模拟试题
·监理工程师执业考试信息管理部分模拟试题

上一篇:第一章　Delphi快速入门（二）

下一篇:在Delphi中的Access技巧集

特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

用Delphi实现动态获取版本信息

精品推荐

热点TOP10

特别推荐