Имя пользователя:
Пароль:
 

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

Пользователь


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

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


Код: Выделить весь код
Func _FHEX($sFile,$ha)
	Local $hFile = FileOpen($sFile, 16)
	Local $sRez

	If $hFile = -1 or Dec ($HA) > (FileGetSize ( $sFile))-1 Then
		Return -1
	EndIf

	FileSetPos($hFile,Dec ($HA), 0)
	$sRez = hex( FileRead($hFile,1))
	FileClose($hFile)

	Return $sRez

EndFuncc
вот как то так

Отправлено: 10:20, 10-03-2012 | #4