[beve]

Посмотри этот скрипт: http://autoit.pri.ee/downloads/au3/v...ndCompiler.au3

[Creat0R]

FileGetVersion возвращает некоторые ресурсы.

[Pavluha]

beve, этот скрипт великоват и мне нужна только функция просмотра ресурсов, а не новый Resource Hacker.
Creat0R, функция FileGetVersion возвращает только версию файла.

[Creat0R]

функция FileGetVersion возвращает только версию файла »

Не только, читайте справку.

[Iska]

Судя по всему, надо опять указать на то, что следует пользовать оригинальную, английскую версию справки .

[Pavluha]

Creat0R, тогда дайте пример

[madmasles]

тогда дайте пример »

Примерно так:

Код:

#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, 'Результат.')

[Creat0R]

тогда дайте пример »

Код:

;$sFile = @WindowsDir & "\Notepad.exe"
;$sFile = @WindowsDir & "\Explorer.exe"
;$sFile = @ScriptFullPath
$sFile = @AutoItExe

$sResourses = _
    'Comments,InternalName,ProductName,CompanyName,LegalCopyright,ProductVersion,FileDescription,LegalTrademarks,PrivateBuild,FileVersion,OriginalFilename,SpecialBuild,' & _
    'CompiledScript,DefaultLangCodepag'

$aResources = StringSplit($sResourses, ',')

$sData = ''
$iBig = 0

For $i = 1 To $aResources[0]
    $sVersion = FileGetVersion($sFile, $aResources[$i])

    If $sVersion = "" Then
        $sVersion = "N/A"
    EndIf

    $sData &= StringFormat("%-60.60s\t= %50s\n", $aResources[$i], $sVersion)
Next

MsgBox(64, 'Resources', $sData)

[Pavluha]

madmasles, Creat0R, вы не правильно поняли. Мне не надо информацию, которая находится в секции "Version". Мне бы функцию вида:

Func _resRead($restype,$resname,$rescodepage)
;код
Endfunc

Где $restype - тип ресурса (например "string table" или другой),$resname - имя ресурса,$rescodepage - кодовая страница (например 0 - стандартный)