• 获得文件版本信息


    //MMWIN:MODULECOPY

    unit _MM_Copy_Buffer_;

    interface


    implementation

    procedure GetBuildInfo(var AProductName, AVer, ALegalCopyright: string);
    var
    VerInfoSize: DWORD;
    GetInfoSizeJunk: DWORD;
    VersionInfo: Pointer;
    Translation: Pointer;
    InfoPointer: Pointer;
    VersionInfoSize: UINT;
    VersionValue: string;
    begin
    AProductName := '默认名称';
    ALegalCopyright := 'Copyright(C) xxxx有限公司。2008';
    AVer := '---';

    VerInfoSize := GetFileVersionInfoSize(Pchar(ParamStr(0)), GetInfoSizeJunk);
    if VerInfoSize <= 0 then
    Exit;

    GetMem(VersionInfo, VerInfoSize);
    try
    GetFileVersionInfo(Pchar(ParamStr(0)), 0, VerInfoSize, VersionInfo);
    //得到文件的版本资源
    VerQueryValue(VersionInfo, '""VarFileInfo""Translation',
    Translation, VersionInfoSize);
    VersionValue := '""StringFileInfo""' +
    IntToHex(LoWord(LongInt(Translation^)), 4) +
    IntToHex(HiWord(LongInt(Translation^)), 4) +
    '""';

    VerQueryValue(VersionInfo, PChar(VersionValue + 'FileVersion'),
    InfoPointer, VersionInfoSize);
    AVer := string(PChar(InfoPointer));

    VerQueryValue(VersionInfo, PChar(VersionValue + 'LegalCopyright'),
    InfoPointer, VersionInfoSize);
    ALegalCopyright := string(PChar(InfoPointer));

    VerQueryValue(VersionInfo, PChar(VersionValue + 'ProductName'),
    InfoPointer, VersionInfoSize);
    AProductName := string(PChar(InfoPointer));

    finally
    FreeMem(VersionInfo, VerInfoSize);
    end;

    end;

    end.

    提取其他字段方法,方法相同。只要修改一下名字就可以了

    OriginalFilename //原文件名称
    CompanyName //公司名称 
    FileDescription //文件描述
    FileVersion //文件的版本
    InternalName //内部名称 
    LegalCopyright //合法版权
    LegalTrademarks //合法商标
    ProductName //产品名称
    ProductVersion //产品版本
    Comments //备注 

  • 相关阅读:
    (最小路径覆盖) poj 1422
    (匈牙利算法) hdu 2119
    (匈牙利算法) hdu 4185
    (匈牙利算法) hdu 2063
    (匈牙利算法)hdu 1281
    (匈牙利算法DFS)hdu 3729
    (01 染色判奇环) hdu 3478
    (多重背包)poj 1276
    (判断欧拉回路)poj 1368
    (差分约束) hdu 1384
  • 原文地址:https://www.cnblogs.com/gleam/p/1245751.html
Copyright © 2020-2023  润新知