//--------------------------------------------------------------------------- UnicodeString __fastcall TConfiguration::GetVersion() { TGuard Guard(FCriticalSection); try { TVSFixedFileInfo * Info = FixedApplicationInfo; UnicodeString Result; Result = TrimVersion(FORMAT(L"%d.%d.%d", ( HIWORD(Info->dwFileVersionMS), LOWORD(Info->dwFileVersionMS), HIWORD(Info->dwFileVersionLS)))); return Result; } catch (Exception &E) { throw ExtException(&E, L"Can't get application version"); } }
UnicodeString TConfiguration::GetFileProductVersion(const UnicodeString & AFileName) const { return TrimVersion(GetFileFileInfoString(L"ProductVersion", AFileName)); }
//--------------------------------------------------------------------------- UnicodeString __fastcall TConfiguration::GetFileProductVersion(const UnicodeString FileName) { return TrimVersion(GetFileFileInfoString(L"ProductVersion", FileName)); }