AVZ 5. Руководство пользователя
×
Меню
Индекс

16.33.15. function GetFileVersion

function GetFileVersion(AFileName : string; AInfoType : integer) : string;
 
Возвращает версию или копирайты указанного исполняемого файла (если они у него есть). AInfoType содержит код, указывающий на то, какое поле требуется вернуть:
1 - CompanyName
2 - FileDescription
3 - FileVersion
4 - InternalName;
5 - LegalCopyright
6 - ProductVersion;
7 - ProductName;
8 - FileLongVersion (в виде двух чисел, разделенных точкой);
9 - ProductLongVersion (в виде двух чисел, разделенных точкой);
10 - VersionNum
 
В имени файла допустимо указывать макросы, подробнее см. в разделе "макросы, допустимые в именах файлов"
В случае, если файл отсутствует, недоступен, или файл не содержит информации заданного типа, то функция вернет пустую строку
 
Совместимость: AVZ 4.32 и выше
 
Пример:
 
var
  i : integer;
begin
  for i := 1 to 10 do
    AddToLog(IntToStr(i) + ' = '+
             GetFileVersion('%System32%\kernel32.dll', i));
end.
 
В результате работы данной функции в протокол будут выведены примерно следующие данные:
1 = Microsoft Corporation
2 = Библиотека клиента Windows NT BASE API
3 = 10.0.18362.1430 (WinBuild.160101.0800)
4 = kernel32
5 = © Корпорация Майкрософт. Все права защищены.
6 = 10.0.18362.1430
7 = Операционная система Microsoft® Windows®
8 = 6.2.18362.1350
9 = 10.0.18362.1350
10 = 393218