Как посмотреть через WinAPI информацию о файле?

[MAcroS]

Имеется задача - посмотреть версию файла.

Вот обнаружил функцию
WinAPI::getFileVersionInfoEx
очень похоже, что именно она за это дело отвечает
пишу простенький джоб, чтобы проверить как оно работает

PHP код:

static void Job65(Args _args)
{
    str     i = 'параметр';
    ;
    info(WinAPI::getFileVersionInfoEx('C:\\Program Files\\Navision\\Client\\Bin\\ax32.exe',i));
} 


Насколько я понимаю, 'параметр' - это что-то из функции VerQueryValue
смотрел в MSDN и так и не понял что-ж мне в итоге задавать в качестве параметра, чтобы получить информацию о файле?

Подскажите, как проделать требуемое?

[AndyD]

"ProductVersion" или "FileVersion"

Кроме того, для просмотра версии для русифицированных файлов необходимо изменить в WinAPI::getFileVersionInfoEx()

PHP код:

    int numOfCodePages = 6;
    str codePage[numOfCodePages];
        codePage[1] = '040904E4';
        codePage[2] = '040904B0';
        codePage[3] = '000004E4';
        codePage[4] = '000004B0';
        codePage[5] = '041904B0'; // добавлено для CP1251
        codePage[6] = '041904E4'; // добавлено для CP1251 


[MAcroS]

Цитата:

Изначально опубликовано AndyD
"ProductVersion" или "FileVersion"

Вставляю, всё равно на выходе - ноль.

вот такой код получается:

PHP код:

static void Job65(Args _args)
{
    #winAPI
    str     i = 'FileVersion';
    ;
    info(WinAPI::getFileVersionInfoEx('C:\\Program Files\\Navision\\Client\\Bin\\ax32.exe',i));
} 


Попробуйте у себя кто-нибудь, отработается он?
Может всё-ж как-то по другому надо?

Цитата:

Кроме того, для просмотра версии для русифицированных файлов необходимо изменить в WinAPI::getFileVersionInfoEx()

PHP код:

    int numOfCodePages = 6;
    str codePage[numOfCodePages];
        codePage[1] = '040904E4';
        codePage[2] = '040904B0';
        codePage[3] = '000004E4';
        codePage[4] = '000004B0';
        codePage[5] = '041904B0'; // добавлено для CP1251
        codePage[6] = '041904E4'; // добавлено для CP1251 


А ничего, что у нас тут не 6, а 4 вот здесь?
int numOfCodePages = 6;

[AndyD]

Проверил у себя - Ok. Версия возвращается правильно.
Вы неправильно указываете путь к файлу. Необходимо так (или это форум? Тогда сори)
"C:\\Program Files\\Navision\\Client\\Bin\\ax32.exe"

Может быть у вас язык для файла указан другой? Посмотрите в свойствах файла язык или language

PHP код:

А ничего, что у нас тут не 6, а 4 вот здесь?
int numOfCodePages = 6; 


Я указал что необходимо поменять (исправить 4 на 6).

[MAcroS]

Да! Это я, слепой болван, совсем забыл и не заметил, и не вспомнил (давно уже внешние файлы не подключал так) что два слэша надо писать! Простите меня! )

Всё работает, спасибо огромное!

[Player1]

А с закладки "Сводка", как-то можно взять информацию?

[Kainix]

Можно, но у разных типов файлов эта закладка разная.
Вот ссылка для офисных программ.
И вот посложнее вариант.

[Player1]

Хотелось бы конечно API функциями

[Kainix]

API (чисто из аксы) функциями можно конечно, но не за чем. Я считаю акса не для этого сделана, для этого есть .net.
Вот тебе dll Interop.Dsofile.rar (dll от Microsoft, скачал по ссылке выше), ее подключаешь к аксе. И вот тебе код

static void Job129(Args _args)
{
    
    FilePath    filePath = "C:\\1.xls";
    
    DSOFile.OleDocumentPropertiesClass  oleDocument = new DSOFile.OleDocumentPropertiesClass();
    DSOFile.SummaryProperties           summaryProperties;

    ;
    oleDocument.Open(filePath,
                     true,
                     DSOFile.dsoFileOpenOptions::dsoOptionOpenReadOnlyIfNoWriteAccess);

        // Extract the properties
    summaryProperties = oleDocument.get_SummaryProperties();
    info(summaryProperties.get_Title());
    info(summaryProperties.get_Author());
    info(summaryProperties.get_Company());


    // Close the DSOFile.OleDocumentPropertiesClass
    oleDocument.Close(false);

}

[Player1]

Цитата:

Сообщение от Kainix

API (чисто из аксы) функциями можно конечно, но не за чем. Я считаю акса не для этого сделана, для этого есть .net.

Если версия Ах3, то какбэ .net нет (каламбур))

[Kainix]

Цитата:

версия Ах3

Юзаем ком. dll для кома dsofile.rar
Регистрируем DLL, копируй win\system32
в командной строке regsvr32 dsofile.dll.
Либо в любое место на компе тогда regsvr32 [путь]dsofile.dll.

Пишем код

static void Job130(Args _args)
{
    Com                 oleDocument = new Com('{58968145-CF05-4341-995F-2EE093F6ABA3}');
    Com                 summaryProperties;
    FilePath            filePath = "C:\\1.xls";
    ;
    oleDocument.Open(filePath,
                     true,
                     1);

        // Extract the properties
    summaryProperties = oleDocument.SummaryProperties();
    info(summaryProperties.Title());
    info(summaryProperties.Author());
    info(summaryProperties.Company());


    // Close the DSOFile.OleDocumentPropertiesClass
    oleDocument.Close(false);
    info("");
}

Придется значения енума DSOFile.dsoFileOpenOptions в студии посмотреть чтобы верные свойства задавать