Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Аватара для madmasles

Ветеран


Сообщения: 812
Благодарности: 353

Профиль | Отправить PM | Цитировать


Цитата Pavluha:
тогда дайте пример »
Примерно так:
Код: Выделить весь код
#include <Array.au3>

Dim $aString[14] = ['Comments', 'InternalName', 'ProductName', 'CompanyName', 'LegalCopyright', _
        'ProductVersion', 'FileDescription', 'LegalTrademarks', 'PrivateBuild', 'FileVersion', _
        'OriginalFilename', 'SpecialBuild', 'CompiledScript', 'DefaultLangCodepage']
$j = 0
Dim $aInfo[1][2]
$sMyExe = 'Explorer.exe'

For $i = 0 To UBound($aString) - 1
    $sResult = FileGetVersion($sMyExe, $aString[$i])
    If $sResult Then
        $j += 1
        ReDim $aInfo[UBound($aInfo) + 1][2]
        $aInfo[$j][0] = $aString[$i]
        $aInfo[$j][1] = $sResult
    EndIf
Next
$aInfo[0][0] = 'Получено ' & UBound($aInfo) - 1 & ' строк информации.'
_ArrayDisplay($aInfo, 'Результат.')

Отправлено: 14:56, 08-08-2010 | #8