[proxy]

Код:

#region: - Option
    Opt('MustDeclareVars',      1)
    Opt('TrayIconHide',         0)
    Opt('TrayIconDebug',        1)
#endregion

#region: - Include
#endregion

#region: - Global, Local
    Global  $iCountReadChar = 9000

    Local   $sFilePath = @SystemDir & '\tapi.dll'
    Local   $aBinaryText
#endregion

$aBinaryText = _File_Read_Binary($sFilePath)
If $aBinaryText <> -1 Then _
    MsgBox(0, 'Последний результат чтения: ' & $aBinaryText[0], $aBinaryText[$aBinaryText[0]])

Func _File_Read_Binary($sFilePath)
    Local   $hFile, $sString, $aBinaryText[1], $i
            $aBinaryText[0] = 0
            $i = 1

    $hFile = FileOpen($sFilePath, 16)
    If $hFile == -1 Then
        MsgBox(32, 'Внимание', 'Невозможно открыть файл:' & @CRLF & $sFilePath & @CRLF & 'Ошибка:' & $hFile)
        Return -1
    EndIf

    While 1
        $sString = FileRead($hFile, $iCountReadChar)
        If @error == -1 Then ExitLoop

        $aBinaryText[0] += 1
        ReDim $aBinaryText[$aBinaryText[0]+1]
        $aBinaryText[$i] = $sString

    ;~  MsgBox(0, 'Результат чтения: ' & $i, $aBinaryText[$i])
        $i += 1
    Wend

    FileClose($hFile)
;~  MsgBox(0, 'Последний результат чтения: ' & $aBinaryText[0], $aBinaryText[$aBinaryText[0]])
    Return $aBinaryText
EndFunc