Распознование

← →
Opera © (2003-10-01 12:46) [0]

Помогите как узнать файл по его содержимому? Например по 60 байтам в середине программы и если это тот файл вывести мессаг?

← →
Digitman © (2003-10-01 12:49) [1]

> в середине программы

нет понятие "середина программы"
есть понятие "смещение искомого фрагмента относительно начала файла"

тебе это смещение заранее известно ?

← →
Opera © (2003-10-01 12:51) [2]

Ну-у-у нет ну как можно проверить тот это файл или нет, помоги

← →
Palladin © (2003-10-01 13:00) [3]

в орешник

если тебе повезет, и в данные 60 байт войдет какая-либо ключевая комбинация, то считай, что мессагу выводить мона ;)

1. Находишь любым способом размер файла Len
1. делаешь hMap:= CreateFileMapping(... имя_файла ...)
2. делаешь pMap := MapViewOfFile(hMap, ..)

const
Model: array[0..59] of Byte = .....; здесь - модель поиска
var
i: Integer;
pModel: Pointer; // указатель на модель поиска
pMap : Pointer; // указатель на образ файла в ВАП процесса
Len : Integer; // размер файла
ptr: PByte;
...
pModel := @Model;
ptr := pMap;
...
а далее - цикл :

for i:= 0 to Len - SizeOf(Model) do
if CompareMem(ptr, pModel, SizeOf(Model)) then
break;
else
Inc(ptr);

if i < Len - SizeOf(Model) then
... тот это файл
else
... или нет

Распознование Найти похожие ветки