| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Слежение за файловой системой [D6, D7, Win2k, WinXP]

maxim161 ©   (2006-01-28 18:48:00) 

Люди, подскажите мне, Как мне следить за изменением файловой системы, например, кто-то хотит удалить файл, а тут, как на зло, появляется сообщение "Нельзя!", и узнать имя удаляемого файла...

---

Alex Konshin   (2006-01-29 02:04:00) [1]

Все намного проще. Нужно не рагировать на удаление, а не допускать его. Достаточно просто настроить права доступа.

---

kaZaNoVa   (2006-01-28 20:51:00) [2]

пример работы с ней: (не мой)
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, StdCtrls, ExtCtrls, ClipBrd;
const
BUF_SIZE = 2048;

procedure WorkThread(LV : TListView);stdcall;
var
hDir : THandle;

lpBuf : Pointer;
Ptr   : Pointer;

cbReturn : Cardinal;
FileName : PWideChar;

Item : TListItem;
sTime : _SYSTEMTIME;
begin
// Сначала нам надо получить описатель каталога, за которым мы будем следить
// В данном примере это будет весь диск C:
hDir := CreateFile ('C:\',GENERIC_READ,FILE_SHARE_READ or FILE_SHARE_WRITE
 or FILE_SHARE_DELETE,nil,OPEN_EXISTING,FILE_FLAG_BACKUP_SEMANTICS,0);
// Если ошиблись...
if hDir = INVALID_HANDLE_VALUE
then begin ShowMessage(SysErrorMessage(GetLastError)); exit; end;

// Выделяем память под буфер
// const BUF_SIZE = 2048 - думаю вполне достаточно
GetMem(lpBuf,BUF_SIZE);

repeat
// очищаем память перед записью в нее (на всякий случай)
ZeroMemory(lpBuf,BUF_SIZE);

// Теперь мы будем ждать пока чего-нибудь в интересующем нас каталоге
// изменится или произойдет ошибка (и мы выйдем из цикла)
// FILE_NOTIFY_CHANGE - это список флагов - о них ниже.
if not ReadDirectoryChangesW(hDir,lpBuf,BUF_SIZE,true,
FILE_NOTIFY_CHANGE_FILE_NAME  +  FILE_NOTIFY_CHANGE_DIR_NAME + FILE_NOTIFY_CHANGE_LAST_WRITE,@cbReturn,nil,nil)
 then Break;

// Сюда мы попадаем, если функция выполнилась успешно
// и lpBuf указывает на одну или несколько структур FILE_NOTIFY_INFORMATION
Ptr:=lpBuf;
repeat
 // Добавляем новый элемент в TListView (ViewStyle = vsReport )
 Item := LV.Items.Add;

 // Выделяем память под имя файла. Вот именно слово PFileNotifyInformation нужно как-то объявить, ноя не знаю как, а может какуюто библиотеку нужно подключить:
 GetMem(FileName,PFileNotifyInformation(Ptr).FileNameLength+2);//Ошибка
 // Очищаем память - чтобы последним символом после копирования
 // был бы #0 нуль
 ZeroMemory(FileName,PFileNotifyInformation(Ptr).FileNameLength+2);
 // WinAPI функция для копирования Unicode строки
 lstrcpynW(FileName,PFileNotifyInformation(Ptr).FileName,
           PFileNotifyInformation(Ptr).FileNameLength div 2+1);
 // Имя файла у нас дается относительно папки
 // т.е.если изменится файл C:\File\test.dat, то FileName
 // будет равно File\test.dat
 Item.Caption:='C:\'+FileName;
 // Имя файла нам больше не нужно - очищаем память
 FreeMem(FileName);

 // Определяем тип произошедшего действия
 case PFileNotifyInformation(Ptr).Action of
  FILE_ACTION_ADDED    : Item.SubItems.Add('Файл был создан');
  FILE_ACTION_REMOVED  : Item.SubItems.Add('Файл был удален');
  FILE_ACTION_MODIFIED : Item.SubItems.Add('Файл был изменен');
  FILE_ACTION_RENAMED_OLD_NAME :
 Item.SubItems.Add('Файл был переименован и в имени файла - предыдущее имя');
  FILE_ACTION_RENAMED_NEW_NAME :
Item.SubItems.Add('новое имя после переименования');
  else Item.SubItems.Add('Произошло что-то странное');
 end;

 // Время, когда произошло событие
 GetLocalTime(sTime);
 with sTime do
  Item.SubItems.Add(Format('%.2d:%.2d:%.2d',[wHour,wMinute,wSecond])); // 13:54:20

 // Если эта запись не последняя (NextEntryOffset < >  0), то...
 if PFileNotifyInformation(Ptr).NextEntryOffset=0
  then Break
   else begin
 // ... добавляем строку в примечания (если интересно посмотреть смещение)
    Item.SubItems.Add('Offset : '+
     IntToStr(PFileNotifyInformation(Ptr).NextEntryOffset));
 //Передвигаем указатель на NextEntryOffset байт вперед
    Inc(Cardinal(Ptr),PFileNotifyInformation(Ptr).NextEntryOffset);
 // Теперь Ptr указывает на следующую запись
   end;

// Передвигать надо именно Ptr, а не lpBuf
until false;

until false;

// Очищаем память
FreeMem(lpBuf);
end;


---

kaZaNoVa   (2006-01-28 20:50:00) [3]

maxim161 ©   (28.01.06 20:44) [5]
Ну а следить как?
смотреть в сторону ReadDirectoryChangesW

---

maxim161   (2006-01-28 20:44:00) [4]

Ну а следить как?

---

kaZaNoVa   (2006-01-28 20:30:00) [5]

вот "следить" то конечно можно и довольно просто, а "запрещать" удаления -и вообще влиять на что-то сложнее ..

---

kaZaNoVa   (2006-01-28 20:28:00) [6]

тут раньше был код перехватов WinAPI-функций .. но он очень большой .. и там много разных ньюансов...
и возможно файл может быть удален не только через DeleteFile но и даже к примеру созданием файла с таким же именем (пустого) .. в общем случае задача довольно сложна ..

имхо проще вообще не давать прав на запись тогда и давать их тока тогда  когда потребуется ..

---

maxim161   (2006-01-28 20:21:00) [7]

А подробнее, please?

---

kaZaNoVa   (2006-01-28 19:04:00) [8]

перехват DeleteFile() :)) ?

---

Наверх