Dateiänderungen überwachen

[SnuffMaster23]

Also nachdem ich mich ne Weile mit den API-Funktionen rumgeschlagen hab hab ich mal ShellNotify ausprobiert.
Das hat zwar immer brav geschriehen wenn was passiert is, aber es konnte mir keinen Dateinamen liefern und hat immer gemeint dass sich was am Verzeichnis geändert hat. Ein bisschen zu ungenau für mich^^
Ich habs jetz ausschließlich mit ReadDirectoryChangesW mit dem Code von hier.

Delphi-Quellcode:

procedure TMonitorThread.Execute;
var
  pBuf:         Pointer;
  dwBufLen:     DWORD;
  dwRead:       DWORD;
  FNI:          FILE_NOTIFY_INFORMATION;
  pWork:        Pointer;
  sFileName:    Widestring;
  i:            Integer;
begin
  dwBufLen := 65536;
  pBuf     := AllocMem(dwBufLen);
  while not terminated do
  begin
    ReadDirectoryChangesW(Form1.DirHandle, pBuf, dwBufLen, subDirs,
                          FILE_NOTIFY_CHANGE_LAST_WRITE,
                          @dwRead, nil, nil);
    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);
      PChar(pWork) := PChar(pBuf)+FNI.dwNextEntryOffset;
      for i := 0 to Watches.Count - 1 do                           //
        if Like(FsFileName, Watches[i]) then                       // mit ein paar Wildcard-Mustern vergleichen
        begin
          Synchronize(UploadFile);
          break;
        end;
    until FNI.dwNextEntryOffset = 0;
  end;
  FreeMem(pBuf,dwBufLen);
end;

//Edit: Fähla korrigiert