告訴妳讀取的版本:function get appversion(文件名:字符串):string；var VerInfoSize:DWORD；VerInfo:指針；VerValueSize:DWORD；假人:DWORDver value:PVSFixedFileInfo；開始結果:=“”；VerInfoSize:= getfilevisioninfosize(PChar(文件名)，Dummy)；如果VerInfoSize = 0，則退出；GetMem(VerInfo，VerInfoSize)；getfile version info(PChar(FileName)，0，VerInfoSize，VerInfo)；VerQueryValue(VerInfo，' \ '，Pointer(VerValue)，VerValueSize)；結果:= IntToStr(VerValue^.dwFileVersionMS shr 16) +' . '+ IntToStr(VerValue^.dwFileVersionMS和$FFFF) +' . '+ IntToStr(VerValue^.dwFileVersionLS shr 16) +' . '+ IntToStr(VerValue^.dwFileVersionLS和$ FFFF)；FreeMem(VerInfo)；結束；
上一篇:深圳指數源代碼下一篇:為什麽OPPOa33m沒有首選安裝位置？