Перехват CreateFileA (Delphi)

[Zer0]

Всем доброго дня
Возникла такая проблема: пишу под себя небольшую утилитку, использующую TWebBrowser, основная проблема - хранение куки в разных местах (например, запустили два экземпляра приложения - куки от первого пишутся в папку D:\cok1, куки от второго D:\cok2)

Перехватом CreateFileA удалось добиться подмены папки, файлы сохраняются. Затруднения возникают на стадии изменения этих файлов
Хоть перехват и работает, почему то не ловятся следующие обращения:


В трейсе последнего вызова вообще нету CreateFile + как мне показалось (хотя я мог что-то упустить) - все остальные функции работы с файлами не принимают путь до файла - только хэндл. Откуда он получается - тоже не нашел:


Собственно вопрос - как это исправить? Где может быть ошибка?
Используемый для хуков код ниже:

var   CreateFileBridge,OpenFileBridge:TFunctionRestoreData;
...
function NewCreateFile(lpFileName: PAnsiChar; dwDesiredAccess, dwShareMode: DWORD;
  lpSecurityAttributes:PSecurityAttributes; dwCreationDisposition, dwFlagsAndAttributes:DWORD; hTemplateFile:Cardinal):Cardinal; stdcall;
var t,newFileName:ansistring;
begin
  UnHookcodeHook(@CreateFileBridge);
  result:=0;
  try
  newFileName:=lpFileName;
  CheckForCookies(newFileName);
 result:=CreateFileA(PAnsiChar(newFileName),dwDesiredAccess,dwShareMode,lpSecurityAttributes,dwCreationDisposition,dwFlagsAndAttributes,hTemplateFile);
  finally
 SetProcedureHook(GetModuleHandle('kernel32.dll'),'CreateFileA',@NewCreateFile,@CreateFileBridge);
  end;
end;

...

  if not (@CreateFileBridge=nil) then
    UnHookcodeHook(@CreateFileBridge);
  SetProcedureHook(GetModuleHandle('kernel32.dll'),'CreateFileA',@NewCreateFile,@CreateFileBridge);

Библиотека взята отсюда (спасибо rpy3uH )

[Zer0]

Разобрался сам
Перехватил еще NtOpenFile и ZwQueryFullAttributesFile и все заработало