Главная страница
    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.006 c
3-55043
nedden
2002-05-23 16:41
2002.06.17
Тормозит ClientDataSet+DataSource+Grid


14-55277
Semion
2002-05-12 15:36
2002.06.17
Нужна компонента с функциями Object Inspector


8-55222
[\/\/ \/\/ \/\/]
2002-02-03 06:53
2002.06.17
AlphaBlending


6-55236
KoLega
2002-04-05 13:55
2002.06.17
Дорогие друзья!!! А какие еще форумы и склады ПО в и-нете?


7-55337
Alex Dobrushin
2002-03-18 19:55
2002.06.17
Печать через WordApplication





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский