[angvelem]

Мне непонятно совместное использование флагов GENERIC_Write и FILE_SHARE_READ. Что это должно получиться? И как объявлена переменная h?

Код:

var
  h : HFILE;
begin
  m := 1;
  nac := RestartPos - $FFFFFFFF - 1;
  h := CreateFileA(PAnsiChar(tex), GENERIC_READ or GENERIC_WRITE, FILE_SHARE_READ or FILE_SHARE_WRITE, NIL, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
  if h <> INVALID_HANDLE_VALUE then
    p := SetFilePointer(h, nac, @m, FILE_BEGIN);