Отловить открытие определенной папки

procedure TMonDirThread.Execute;
  var 
  HandleChange: THandle;  //Handle создаваемого объекта для ожидания события
begin
//-- Создаем объект для ожидания события
  HandleChange :=     CreateFile('c:\tst', GENERIC_READ,
    FILE_SHARE_READ or FILE_SHARE_DELETE or FILE_SHARE_WRITE,
    nil,
    OPEN_EXISTING,
    FILE_FLAG_BACKUP_SEMANTICS or
    FILE_FLAG_OVERLAPPED, 0);
 
//-- При ошибке Win32Check выводит сообщение и прерывает Execute.
 //   Win32Check(HandleChange <> INVALID_HANDLE_VALUE);
      Synchronize(ThreadStart);               //Сообщение о старте потока
  try
//-- Цикл, пока для потока не будет выдана команда Terminate
    while not Terminated do
    begin
      case WaitForSingleObject(HandleChange,1000) of
        WAIT_FAILED: Terminate;                //Ошибка, завершаем поток
        WAIT_OBJECT_0: Synchronize(UpdateLog); //Сообщаем об изменении
      end;
     // FindNextFile(HandleChange);
    end;
  finally
    FindCloseChangeNotification(HandleChange);
  end;
  Synchronize(ThreadStop);                     //Сообщаем о завершении потока
end;

CreateFile('c:\tst', GENERIC_READ,
    FILE_SHARE_READ or FILE_SHARE_DELETE or FILE_SHARE_WRITE,
    nil,
    OPEN_EXISTING,
    FILE_FLAG_BACKUP_SEMANTICS or
    FILE_FLAG_OVERLAPPED, 0);

OPEN_EXISTING,

procedure TMonDirThread.Execute;
  var      Buffer: array[0..4095] of Byte;
 h : HWND; hDir: THandle;  //Handle создаваемого объекта для ожидания события
begin    h:= FindWindow(nil,'fMonDirMain');
 hDir := CreateFile('c:\tst', GENERIC_READ,
    FILE_SHARE_READ or FILE_SHARE_WRITE
    or FILE_SHARE_DELETE, nil, OPEN_EXISTING, FILE_FLAG_BACKUP_SEMANTICS, 0);
  repeat
        if Terminated then
          Exit;
        if ReadDirectoryChangesW(hDir,
        @Buffer,
        1024,
        True,
        FILE_NOTIFY_CHANGE_LAST_ACCESS
                           , nil,
                           nil,
                           nil)
         then PostMessage(h, WM_KEYDOWN, 5, 5); // сообщаю о наличии  изменений в форму
  until false;
CloseHandle(hDir);
end;