Вниз
Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.015 c
4-55371
ProNix
2002-04-17 16:04
2002.06.17
Файлвая система


7-55342
Victor N Golutvin
2002-03-19 00:49
2002.06.17
Собственный обработчик прерываний


14-55266
kontra
2002-05-10 13:04
2002.06.17
Программирование на Delphi


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


1-55179
Vladimir B.
2002-06-04 09:44
2002.06.17
Как правильно удалять объект?




   Наверх