Продолжаю помаленьку помогать избавляться от читеров на игровом сервере Аллодов2. А именно необходимо делать проверку на "нормальность" клиента Аллодов2. Сделал все что необходимо, но в 98 - ой винде проверка вылетает с ошибкой при попытке открыть файл(в ХП все ок). Вот код:

TFileStream:

Код

function CheckAllodsExe(const FileName: string): Boolean; var  AllodsStream: TFileStream;  i: integer;  Buf: Byte; begin Result:= True; AllodsStream:= TFileStream.Create(FileName, fmOpenRead); try  for i:= 0 to High(BytesMask) do  begin    if AllodsStream.Size < BytesMask[i].Offset then    begin      Result:= False;      Exit;    end;    AllodsStream.Seek(BytesMask[i].Offset, soBeginning);    AllodsStream.Read(Buf, 1);    if Buf <> BytesMask[i].Value then    begin      Result:= False;      Exit;    end;      end; finally  FreeAndNil(AllodsStream); end; end;

API:

Код

function CheckAllodsExe(const FileName: string): Boolean; var  i: integer;  Buf: Byte;  hFile: THandle;  Reads: Cardinal; begin Result:= True;  hFile:= CreateFile(PAnsiChar(FileName), GENERIC_READ, 0, nil, OPEN_EXISTING,                     FILE_ATTRIBUTE_NORMAL, 0);  if hFile = 0 then  begin    MessageBox(0, PAnsiChar(SysErrorMessage(GetLastError)), 'Warning', MB_OK);    Exit;  end; try  for i:= 0 to High(BytesMask) do  begin    if GetFileSize(hFile, nil) < BytesMask[i].Offset then    begin      Result:= False;      Exit;    end;    SetFilePointer(hFile, BytesMask[i].Offset, nil, FILE_BEGIN);    ReadFile(hFile, Buf, 1, Reads, nil);    if Buf <> BytesMask[i].Value then    begin      Result:= False;      Exit;    end;      end; finally CloseHandle(hFile); end; end;

Оба случая в 98 - ои винде заканчиваются ошибкой во время CreateFile (или TFileStream.Create при использовании TFileStream). Проверка происходит в момент запуска Аллодов2(стоит WH_CBT - хук). Такое ощущение, что в 98 - ои винде файл при запуске открывается в эксклюзивном чтении и я не могу его после этого открыть. В чем может быть дело? Если ни чего не поможет придется перехватывать вызов CreateFile системой.

Это сообщение отредактировал(а) <Spawn> - 25.12.2003, 23:30

предлагаю установить dwShareMode в FILE_SHARE_READ, может поможет (мой любимый стих )

cully сенк)) все сработало. А я хотел проверить, но что то не стал тогда. Еще раз спасибо.