UnicodeString TConfiguration::GetFileVersion(const UnicodeString & FileName) { UnicodeString Result; void * FileInfo = CreateFileInfo(FileName); try__finally { SCOPE_EXIT { FreeFileInfo(FileInfo); }; Result = GetFileVersion(GetFixedFileInfo(FileInfo)); } __finally { FreeFileInfo(FileInfo); }; return Result; }
TVSFixedFileInfo * TConfiguration::GetFixedApplicationInfo() const { return GetFixedFileInfo(GetApplicationInfo()); }
//--------------------------------------------------------------------------- TVSFixedFileInfo *__fastcall TConfiguration::GetFixedApplicationInfo() { return GetFixedFileInfo(ApplicationInfo); }