Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.06.17;
Скачать: CL | DM;

Вниз

Файловые события   Найти похожие ветки 

 
Saint_Byte   (2002-04-16 15:33) [0]

Тут такая проблема , файловые события не ловяться , но на данный код Нуль эмоций :
hNotifyFilter:=
FILE_NOTIFY_CHANGE_FILE_NAME and
FILE_NOTIFY_CHANGE_DIR_NAME and
FILE_NOTIFY_CHANGE_ATTRIBUTES and
FILE_NOTIFY_CHANGE_SIZE and
FILE_NOTIFY_CHANGE_LAST_WRITE and
FILE_NOTIFY_CHANGE_SECURITY ;
ChangeHandle:= FindFirstChangeNotification(PChar("C:\"),true, hNotifyFilter);
if ChangeHandle <> INVALID_HANDLE_VALUE then
while true do
application.ProcessMessages;
application.ProcessMessages;
begin
if WaitForSingleObject(ChangeHandle,500) = WAIT_OBJECT_0 then
begin
case ChangeHandle of
FILE_NOTIFY_CHANGE_FILE_NAME :
memo1.Lines.Add("FILE_NOTIFY_CHANGE_FILE_NAME");
FILE_NOTIFY_CHANGE_DIR_NAME :
memo1.Lines.Add("FILE_NOTIFY_CHANGE_DIR_NAME");
FILE_NOTIFY_CHANGE_ATTRIBUTES :
memo1.Lines.Add("FILE_NOTIFY_CHANGE_ATTRIBUTES");
FILE_NOTIFY_CHANGE_SIZE :
memo1.Lines.Add("FILE_NOTIFY_CHANGE_SIZE");
FILE_NOTIFY_CHANGE_LAST_WRITE :
memo1.Lines.Add("FILE_NOTIFY_CHANGE_LAST_WRITE");
FILE_NOTIFY_CHANGE_SECURITY :
memo1.Lines.Add("FILE_NOTIFY_CHANGE_SECURITY");
end;
end;
FindNextChangeNotification(ChangeHandle);


 
panov ©   (2002-04-16 16:02) [1]

Приведенный выше код используй только под WINNT4 или выше.


 
Saint_Byte   (2002-04-17 17:26) [2]

Так а что делать в 9х виндах? Линк плз киньте

Там же тоже собития есть и етс

Да я тоже так подумал "FILE_NOTIFY_CHANGE_SECURITY" Но потом подумал что будует и так работать ...





Страницы: 1 вся ветка

Текущий архив: 2002.06.17;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.013 c
4-55358
IGOREK
2002-04-10 18:21
2002.06.17
Какие есть еще пути реализации глобальных хуков?


1-55055
DenNNis
2002-06-05 13:57
2002.06.17
Как создать загрузочный диск ??


3-55036
Onio
2002-05-23 18:44
2002.06.17
Ошибка при импорте данных в Oracle


4-55366
Esa
2002-04-09 11:54
2002.06.17
Ресурсы


6-55239
Beginer
2002-04-07 15:33
2002.06.17
Убить все коннекты