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);
}
