Posol.... Вы упомянули ReadDirectoryChangesW для слежения за каталогом... У меня в некоторых прогах такое наворочено в этих целях, что вообще-то стало стыдно.... Help у меня на эту функцию не отзывается... Она что в какую-то библиотеку входит стороннюю, или апишная? Да и как-то я механизм даже понять не могу....

Нельзя ли по-подробнее.... Заранее благодарен....

Серж, запусти Пуск|Программы|Borland Delphi 6.0|Help|MS SDK Help Filses|Win32 Programmer's Reference...
Мог бы просто позвонить или зайти...

Susel, спасибо..... но ты же Дельфи не любишь... не хотел мучить....

The ReadDirectoryChangesW function returns information describing the changes occurring within a directory.

Это я подозревал.... Но как ей пользоваться? Ведь Posol упоминал, что она сама следить будет.... Все равно не понимаю как, ведь это не событие, оно не возникает само от факта изменения в каталоге.... Значит ее все-таки надо запускать с промежутком во времени....? в чем тогда выйгрыш?

кому интересно начало, то оно вот здесь.... в конце....
http://forum.vingrad.ru/index.php?showtopic=20799

Сам когда-то пробовал, щас довёл до ума...
Там ReadDirectoryChangesW в потоке живёт (для удобства)...

Вот он: zip 5 кб...

Добавлено @ 21:55
Если влом качать, то вот само слежение:

Код

var  Dir : string = 'C:\'; \\ имя каталога  SubDirs : boolean; \\ следить за подкаталогами ? type  FILE_NOTIFY_INFORMATION = record    NextEntryOffset: DWORD;    Action: DWORD;    FileNameLength: DWORD;    FileName: array [0..0] of WCHAR;  end; var  hDir : THandle;  Buf : pointer;  Returned, BufSize : dword;  adr : DWORD;  fni : ^FILE_NOTIFY_INFORMATION absolute adr;  s : string;  ws : WideString; const  wcs = SizeOf(WideChar); // = 2  FILE_LIST_DIRECTORY       = ($0001); // directory begin  hDir := CreateFile(PChar(Dir),                     FILE_LIST_DIRECTORY,                     FILE_SHARE_READ or FILE_SHARE_DELETE,                     nil,                     OPEN_EXISTING,                     FILE_FLAG_BACKUP_SEMANTICS,                     0);  if hDir = INVALID_HANDLE_VALUE then Exit;  BufSize := 16*1024*1024; // 16 mb  GetMem(Buf, BufSize);  repeat    if ReadDirectoryChangesW(hDir, Buf, BufSize, SubDirs,       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, @Returned, nil, nil) then    begin      Adr := Cardinal(Buf);      while Adr < (Cardinal(Buf) + Returned) do      begin        case fni^.Action of          FILE_ACTION_ADDED            : s := 'Added';          FILE_ACTION_REMOVED          : s := 'Removed';          FILE_ACTION_MODIFIED         : s := 'Modified';          FILE_ACTION_RENAMED_OLD_NAME : s := 'Renamed from';          FILE_ACTION_RENAMED_NEW_NAME : s := 'Renamed to';          else s := '0x' + IntToHex(fni^.Action, 8);        end;        SetLength(ws, fni^.FileNameLength div wcs);        Move(fni^.FileName, ws[1], fni^.FileNameLength);        ListBox1.Items.Add(s + ' "' + ws + '"');        Inc(adr, fni^.FileNameLength - wcs + SizeOf(fni^));      end;    end;  until False;  CloseHandle(hDir);  FreeMem(Buf); end;

Цитата

Все равно не понимаю как, ведь это не событие, оно не возникает само от факта изменения в каталоге...

Да нет вообще-то, при изменении содержимого каталога генерятся события, их можно дождаться с помощью FindFirstChangeNotification / FindNextChangeNotification + WaitFor*Object...
А ReadDirectoryChangesW сама дожидается следующего изменения, при этом выполнение потока приостанавливается.
Правда, можно в CreateFile указать FILE_FLAG_OVERLAPPED, тогда ReadDirectoryChangesW будет асинхронной... Ну это кому как удобнее...


Присоединённый файл ( Кол-во скачиваний: 267 )
 ChangeNotify.zip

Спасибо огромное.... Сколько иногда ненужной работы делаем.... по незнанию.... Сколько раз убеждаюсь....

А как следить за сетевой папкой?

указать сетевой путь, и будет следить за сетевой папкой

  В принципе, директория это тоже файл, но будет ли это работать для сетевых? Ведь на своем диске можно сделать придумать событие для драйвера HDD, которое буде оповещать о таких вещах, а как такое сделать для чужого драйвера?

указал "\\mycomp\1" - не работает

Updated
оказывается нужно сменить

на




Это сообщение отредактировал(а) 2fank - 3.4.2008, 22:55

а если вешаешь это слежение на флэху, то она блокирует ее и не дает извлечь. Можно это как-нибудь исправить?

Ничего удивительного: у нас есть открытые Handl`ы, вот система и говорит, что работа с флешкой не закончена. 
Если я не ошибаюсь, то единственно возможное решение: отлавливать "попытку безопасного отключения" и снимать слежение.

ну это логично, и мне это же приходило в голову... а как его отлавливать? оО

В коде p0s0l, есть один нюанс из-за которого нельзя переименовать файлы и папки в корне каталога.
Там нужно добавить при создание хэндла такое:
 

Нашел при исполнения кода еще один нюанс! При попытке остановки роботы потока кнопкой, поток все равно продолжает свою роботу!!!  

Могу предположить:
ThreadForScan:

DlgMain:


Это сообщение отредактировал(а) Qu1nt - 23.9.2008, 13:11