微光的闪现

摘要： 获取文件的版本信息方法 --------------------------- 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 阅读全文