Главная страница
    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.44 MB
Время: 0.005 c
14-55316
Владимир Комиссаров
2002-05-13 14:45
2002.06.17
расширение палитры Дельфи 5


4-55347
AlexanderSK
2002-04-11 17:17
2002.06.17
Handle Dll


1-55118
SleD
2002-06-05 16:12
2002.06.17
Насчёт формата файла для программы, но...


14-55301
Alexandr
2002-05-15 11:31
2002.06.17
Decompress UPX


14-55315
Anonymous
2002-05-16 17:45
2002.06.17
Б Е С П Р Е Д Е Л





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский