|
|
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#2
20.08.2009, 12:36
|
|||
|
|||
после открытия сдвинуться на $9E и считать 1 байт, который сравнить с константой.
Код:
var B : Byte; ... FStreamIn:= TFileStream.Create(String(FileName),fmOpenRead); FStreamIn.Seek($9E,soFromBeginning); FStreamIn.ReadBuffer(B,SizeOf(Byte); If (B = $01) Or (B = $02) Then ... |
Древовидный вид