Festplattenzugriffe

[Luckie]

Ich habe jetzt mal Christian Seehases Thread benutzt, um ein Netzwerklaufwerk zu überwachen. Die Aufgabe besteht darin neue Dateien in ein lokales Verzeichnis zu kopieren. Allerdings habe ich mit seinem Code etwas Probleme:

Delphi-Quellcode:

procedure TcsDirThread.Execute;

var
  pBuf              : Pointer;
  dwBufLen          : DWORD;
  dwRead            : DWORD;
  FNI               : FILE_NOTIFY_INFORMATION;
  pWork             : Pointer;
  sFileName         : Widestring;

begin
  FhFile := CreateFile(PChar(FsDirPath), FILE_LIST_DIRECTORY or GENERIC_READ,
    FILE_SHARE_READ or FILE_SHARE_WRITE or FILE_SHARE_DELETE, nil,
    OPEN_EXISTING, FILE_FLAG_BACKUP_SEMANTICS, 0);
  if (FhFile = INVALID_HANDLE_VALUE) or (FhFile = 0) then
    exit;
  dwBufLen := 65536;
  pBuf := AllocMem(dwBufLen);
  try
    while true do
    begin
      if ReadDirectoryChangesW(FhFile, pBuf, dwBufLen, true,
        FILE_NOTIFY_CHANGE_FILE_NAME or
        FILE_NOTIFY_CHANGE_DIR_NAME or
        FILE_NOTIFY_CHANGE_ATTRIBUTES or
        FILE_NOTIFY_CHANGE_SIZE or
        FILE_NOTIFY_CHANGE_LAST_WRITE or
        FILE_NOTIFY_CHANGE_LAST_ACCESS or
        FILE_NOTIFY_CHANGE_CREATION or
        FILE_NOTIFY_CHANGE_SECURITY,
        @dwRead, nil, nil) then
      begin
        pWork := pBuf;
        repeat
          StrMove(@FNI, pWork, 12);
          PChar(pWork) := PChar(pWork) + 12;
          sFileName := StringOfChar(#00, FNI.dwFileNameLength);
          StrMove(@sFileName[1], pWork, FNI.dwFileNameLength);
          FsFileName := WideCharToString(PWideChar(sFileName));
          FsFileName := copy(FsFileName, 1, length(FsFileName) shl 1);
          FsReason := GetReason(FNI.dwAction);

          if FNI.dwAction = FILE_ACTION_ADDED then
          begin
            Synchronize(AddReasonToMemo);
            Synchronize(AddFileToMemo);
            FError := MoveChangedFiles(FFPATH + FsFileName);
            if FError <> 0 then
              Synchronize(AddErrorToMemo);
          end;

          PChar(pWork) := PChar(pBuf) + FNI.dwNextEntryOffset;
        until FNI.dwNextEntryOffset = 0;
        Create(FFPATH);
      end
      else
      begin
        break;
      end;
    end;
  finally
    FreeMem(pBuf, dwBufLen);
  end;
end;

Es wird aber immer nur die letzte Datei verschoben. Und ich bekomme Fehlermeldungen, dass auf die Datei nicht zugegriffen werden kann.