procedure GetBuildInfo(var V1, V2, V3, V4: Word);<br> var<br> VerInfoSize: DWORD;<br> VerInfo: Pointer;<br> VerValueSize: DWORD;<br> VerValue: PVSFixedFileInfo;<br> Dummy: DWORD;<br> begin<br> VerInfoSize := GetFileVersionInfoSize(PChar(ParamStr(0)), Dummy);<br> GetMem(VerInfo, VerInfoSize);<br> GetFileVersionInfo(PChar(ParamStr(0)), 0, VerInfoSize, VerInfo);<br> VerQueryValue(VerInfo, '/', Pointer(VerValue), VerValueSize);<br> with VerValue^ do<br> begin<br> V1 := dwFileVersionMS shr 16;<br> V2 := dwFileVersionMS and $FFFF;<br> V3 := dwFileVersionLS shr 16;<br> V4 := dwFileVersionLS and $FFFF;<br> end;<br> FreeMem(VerInfo, VerInfoSize);<br> end;<br><br>其中,PChar(ParamStr(0))是你本程序的名字,<br>你可以改写成其他应用程序,用一个OpenDialog得到FileName即可。