xversion.txt

来自「我自己用的Delphi函数单元 具体说明见打包文件的HELP目录下面」· 文本 代码 · 共 17 行

unit xVersion;

    aVerInfo[vtCompanyName]      := '公司名称:';
    aVerInfo[vtFileDescription]  := '文件说明:';
    aVerInfo[vtFileVersion]      := '文件版本:';
    aVerInfo[vtInternalName]     := '内部名称:';
    aVerInfo[vtLegalCopyright]   := '合法版权:';
    aVerInfo[vtLegalTradeMark]   := '合法商标:';
    aVerInfo[vtOriginalFileName] := '原文件名:';
    aVerInfo[vtProductName]      := '产品名称:';
    aVerInfo[vtProductVersion]   := '产品版本:';
    aVerInfo[vtComments]         := '注释:';

    aVerInfo : array[TVersionType] of string;
    RegisteredUser,RegisteredCompany,RegisteredVersion :String;
    RegisteredVersion:='1.0';    //对于任何未定义版本号的程序，缺省版本为1.0。