07 2008 档案

获得文件版本信息
摘要：获取文件的版本信息方法 --------------------------- 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(PCh 阅读全文
posted @ 2008-07-18 09:59 cmacro 阅读(664) 评论(0) 推荐(0)