Ich merke gerade, dass meine
Unit der DirectoryWatch um einiges anders aussieht als die Version bei Github.
Da ich meine
Unit erst seit 2012 nutze denke ich, dass sie neuer ist. Wo auch immer ich die gefunden habe.
Beispielsweise lautet in Execute eine Zeile bei mir
Delphi-Quellcode:
procedure TDirWatchThread.Execute;
...
if ReadDirectoryChangesW(FDirHandle, FIOResult, IO_BUFFER_LEN, FWatchSubTree, FFilter, @ResSize, @Overlap, nil) then
begin
WaitResult := WaitForMultipleObjects(2, @Events[0], False, INFINITE);
Bei Github
Delphi-Quellcode:
procedure TDirWatchThread.Execute;
...
if ReadDirectoryChangesW(FDirHandle, FIOResult, FBufferSize, FWatchSubtree, FFilter, @ResSize, @Overlap, nil) then
begin
WaitResult := WaitForMultipleObjects(Length(Events), @Events, FALSE, INFINITE);
BeyondCompare zeigt mir 61 unterschiedliche Abschnitte.