[adidas]

Всем драсте. Столкнулся с проблемой: нужно найти хэндл открываемого файла.
Есть процедура создания лога:

Код:

Var
  i, Cnt:Integer;
  S, Act, SDT:String;
Begin
  If chbxFileLog.Checked Then
  Begin
    AssignFile(F, Log);
    If Not(FileExists(Log)) Then ReWrite(F);
    Append(F);
  End;

  Cnt:=GetDetailInfo(Buf, Info);
  SDT:=DateTimeToStr(Now);
  For i:=0 To Cnt-1 Do
  Begin
    Case Info[i].Action Of
      FILE_ACTION_ADDED:    Act:=' Создан: ';
      FILE_ACTION_REMOVED:  Act:=' Удален: ';
      FILE_ACTION_MODIFIED: Act:=' Изменен: ';
      FILE_ACTION_RENAMED_OLD_NAME: Act:='Переименован из: ';
      FILE_ACTION_RENAMED_NEW_NAME: Act:=' Переименован в: ';
    End;
    S:=SDT+' | '+Act+Info[i].FileName;

    If chbxMemoLog.Checked Then
      mmLog.Lines.Add(S);
    If chbxFileLog.Checked Then
      WriteLn(F, S);
  End;

  If chbxFileLog.Checked Then
    CloseFile(F);
End;

Нужно узнать каким процессом создавался/изменялся/переименовывался файл. Помогите, плз.