Мониторинг папок

[Festovec]

Уважаемые форумчане, у кого есть время и желание и хватит опыта посмотреть данную работу, когда-то она была написана в 2004 году, сейчас пытался переделать ее под RadStudio, но возникают проблемы при ведении логов - проблемы с именами объектов, и проблемы при остановке мониторинга.

[DIONISKA]

Чтобы имена нормально отображались замени:

//    Info[Result].FileName:= UnicodeToAnsi(PFNI^.FileName, PFNI^.FileNameLength);
// на
  setstring(Info[Result].FileName,PFNI.FileName,PFNI^.FileNameLength);

не забывай обнулять память в потоке перед заполнением:

 zeromemory(@buf,length(buf)); 
// а потом уже
 ReadDirectoryChangesW(hDir, @Buf, SizeOf(buf), SubDirs, FilterNotify, @BytesRet, nil, nil);

Ну, а чтобы завершить поток попробуй:

terminatethread(DirLogger.Handle,0);

PS: Может стоило организовать что-то вроде очереди? Иначе глобальный буфер один - а процедура которая идёт после его заполнения может работать уже после того, как в потоке он очередной раз заполнился.