function GetFileVersion

function GetFileVersion

Previous pageReturn to chapter overviewNext page

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 = Корпорация Майкрософт

2 = Библиотека клиента Windows NT BASE API

3 = 5.1.2600.5781 (xpsp_sp3_gdr.090321-1317)

4 = kernel32

5 = © Корпорация Майкрософт. Все права защищены.

6 = 5.1.2600.5781

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

8 = 327681.170399381

9 = 327681.170399381

10 = 327681