Уведомление о создании файла срабатывает 2 раза

[HellMercenariess]

DirectoryChangeNotify при создании файла срабатывает два раза подряд

procedure TFrmPrinc.SthChange(Sender: TDirChangeNotifier;
 const FileName, OtherFileName: WideString; Action: TDirChangeNotification);
var
  Fmt, Line: WideString; 
begin
  case Action of
    dcnFileAdd: AdvNotify(FileName);
    dcnFileRemove: Fmt := 'Remove file %s';
    dcnRenameFile, dcnRenameDir: Fmt := '%s renamed to %s';
     dcnLastAccess: Fmt := 'Date last access file %s  modified';
    dcnLastWrite: Fmt := 'Date last write file %s modified';
    dcnCreationTime: Fmt := 'Creation time file %s modified';
    end;

Интересно почему?

Ну если отлавливать нажатия клавиш хуком то там тоже HC_ACTION идет два раза с тем же кодом клавиши один раз с отрицательным значением LParam второй раз с положительным так его можно отфильтровать (lParam>0).

[HellMercenariess]

   procedure SthChange(Sender: TDirChangeNotifier; const FileName,
     OtherFileName: WideString; Action: TDirChangeNotification);


procedure TFrmPrinc.SthChange(Sender: TDirChangeNotifier;
 const FileName, OtherFileName: WideString; Action: TDirChangeNotification);
var
  Fmt, Line: WideString;
  I: Integer;
  MayBeFile:string;
begin
  case Action of
    dcnFileAdd: AdvNotify(FileName);
    dcnFileRemove: Fmt := 'Remove file %s';
    dcnRenameFile, dcnRenameDir: Fmt := '%s renamed to %s';
     dcnLastAccess: Fmt := 'Date last access file %s  modified';
    dcnLastWrite: Fmt := 'Date last write file %s modified';
    dcnCreationTime: Fmt := 'Creation time file %s modified';
    end;

Подскажите пожалуйста почему на одно любое изменение в каталоге срабатывает по 3 раза и как этого избежать

[Stilet]

срабатывает по 3 раза

А какие акции при этом срабатывают?

там тоже HC_ACTION идет два раза с тем же кодом клавиши один раз с отрицательным значением LParam второй раз с положительным

Это другое - захват - отпускание.

[HellMercenariess]

Сообщение от Stilet

А какие акции при этом срабатывают?

Одна и та же, если добавлен фалй то
dcnFileAdd

Если файл изменен то 3 раза dcnModified

[HellMercenariess]

Никто не сталкивался с необходимостью отслеживать изменения на дисках?