Thanks guys - no wonder I was having the feeling this information was a bit out of sight....
This was useful - also cos I found out the list hasn't been working for a few days (sent this a few days ago originally and it went nowhere) - so any other posts others have made also might need resending.... John -----Original Message----- From: Trevor Jones [mailto:[EMAIL PROTECTED] Sent: Friday, 3 November 2006 1:58 p.m. To: [EMAIL PROTECTED]; 'NZ Borland Developers Group - Delphi List' Subject: RE: [DUG] Version number John, This will get the version number as an int64 which you can use for comparisons. I guess you can modify it to retrieve the 4 individual 16 bit entries that go between the dots. function GetFileVersion(const Filename: string): int64; var VersionInfoSize : integer; VersionInfoHandle : DWORD; VersionInfo : string; szName : array[0..255] of char; FixedFileInfo : PVSFixedFileInfo; BufferLen : UINT; begin result := 0; VersionInfoSize := GetFileVersionInfoSize( pChar( Filename), VersionInfoHandle ); if VersionInfoSize > 0 then begin SetLength( VersionInfo, VersionInfoSize ); BufferLen := sizeof(TVSFixedFileInfo); if GetFileVersionInfo( pChar( FileName), VersionInfoHandle, VersionInfoSize, pChar( VersionInfo )) then if VerQueryValue( pChar( VersionInfo ), StrPCopy(szName,'\'), pointer(FixedFileInfo), BufferLen) and (BufferLen > 0) then begin result := FixedFileInfo.dwFileVersionMS; result := result shl 32; result := result + FixedFileInfo.dwFileVersionLS; end; end; end; -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of John Bird Sent: Friday, 3 November 2006 11:50 a.m. To: 'NZ Borland Developers Group - Delphi List' Subject: [DUG] Version number How do I get the current program version number from inside a program at runtime (the one that can be set to auto-increment in the builds in Options) John _______________________________________________ Delphi mailing list [email protected] http://ns3.123.co.nz/mailman/listinfo/delphi __________ NOD32 1.1461 (20060329) Information __________ This message was checked by NOD32 antivirus system. http://www.eset.com _______________________________________________ Delphi mailing list [email protected] http://ns3.123.co.nz/mailman/listinfo/delphi
