16.35.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

6 = 10.0.18362.1430

7 = Операционная система Microsoft® Windows®

8 = 6.2.18362.1350

9 = 10.0.18362.1350

10 = 393218