Создает массив, содержащий информацию о файлах с версиями ресурса Windows типа .exe, .dll, и .fll файлов, или серверов автоматизации, созданных в Visual FoxPro.

Обратите внимание:
Для сервера автоматизации Visual FoxPro, чтобы задать версию ресурса Windows, Вы должны определить значение не менее чем одного пункта в диалоговом окне EXE Version. Для подробной информации, см. Диалоговое окно EXE Версии . 

AGETFILEVERSION(ArrayName, cFileName)

Параметры

ArrayName

Определяет имя массива, в который помещается информация файла. Если массива, который Вы определяете, не существует, Visual FoxPro автоматически создает массив. Если массив существует и не является достаточно большим, чтобы поместить информацию файла, Visual FoxPro автоматически увеличивает размер массива. Если массив является большим чем необходима, Visual FoxPro усекает массив. Следующая таблица перечисляет содержание каждого элемента массива.

Элемент Содержание

1

Комментарии

2

Название компании

3

Описание Файла

4

Версия Файла

5

Внутреннее Имя

6

Юридическое Авторское право

7

Юридические Торговые марки

8

Первоначальное Имя файла

9

Частная Компоновка

10

Имя Программы

11

Версия Программы

Формат этого значения зависит от версии Visual FoxPro. Для подробностей, см. VERSION( ) Функция .

12

Специальная Компоновка

13

OLE Саморегистрация (содержит "OLESelfRegister", если файл поддерживает саморегистрацию; иначе содержит пустую строку)

14

Язык (полученный из Кода Трансляции)

15

Код Трансляции

Например, Вы можете использовать следующий код, чтобы определить ID Региона для выполняемой программы Visual FoxPro:

Скопировать код 
DIMENSION aFiles[1]
AGETFILEVERSION(aFiles,"VFP9.EXE")
? EVAL("0x"+LEFT(aFiles[15],4))
** Returns 1033 for US version
cFileName

Определяет имя, и опционально, путь заданного файла.

Возвращаемое значение

Числовое. AGETFILEVERSION () возвращает количество элементов в массиве. Если файла, который Вы определяете, не существует или он не содержит версию ресурса Windows, AGETFILEVERSION () возвращает нуль, и массив, если он уже создан, остается неизменными.

Замечания

AGETFILEVERSION( ) может быть сокращен в написании к минимальному количеству символов 5.

См. Также