[matue]

Помогите с курсовой:
"Разработать Windows-приложение для мониторинга обращений к заданной директории/файлу. Все действия операционной системы по доступу к тому или ному файлу/директории необходимо заносить в журнал аудита расположенный в памяти, по окончанию мониторинга результаты следует заносить в текстовый файл. "
Delphi я знаю средне, помогите с сутью программы - откуда программе брать данные об обращении к указанной папке? какие библиотеки подключить?

[M.A.D.M.A.N.]

Собственно с дельфисорса взято когда-то.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

procedure TMonDirThread.Execute; var   HandleChange: THandle;  //Handle создаваемого объекта для ожидания события begin //-- Создаем объект для ожидания события   HandleChange :=     FindFirstChangeNotification(       PChar(FPath),                           //Проверяемый каталог       False,                                  //Подкаталоги не проверяются       FILE_NOTIFY_CHANGE_FILE_NAME +          //Проверка создания/удаления/       FILE_NOTIFY_CHANGE_ATTRIBUTES);         //переименования/изменения файлов   //-- При ошибке Win32Check выводит сообщение и прерывает Execute.     Win32Check(HandleChange <> INVALID_HANDLE_VALUE);       Synchronize(ThreadStart);               //Сообщение о старте потока   try //-- Цикл, пока для потока не будет выдана команда Terminate     while not Terminated do     begin       case WaitForSingleObject(HandleChange,1000) of         WAIT_FAILED: Terminate;                //Ошибка, завершаем поток         WAIT_OBJECT_0: Synchronize(UpdateLog); //Сообщаем об изменении       end;       FindNextChangeNotification(HandleChange);     end;   finally     FindCloseChangeNotification(HandleChange);   end;   Synchronize(ThreadStop);                     //Сообщаем о завершении потока end;

А можно сделать через драйвер (распальцовка была бы больше ).

[Zorkov Igor]

http://delphisources.ru/pages/source...ry_change.html

Что такое журнал аудита расположенный в памяти не понятно