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

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

Узнать о закрытии handle [D6, Win2k, WinXP]

MetalFan ©   (2006-11-21 14:50:00) 

есть такая программка, Unlocker.
она позволяет, на сколько я понимаю, закрывать окрытые другими процессами файлы...
как мне из своей программы узнать, что сторонняя программа взяла и закрыла хэндл открытого моей программой файла?
кроме периодических попыток обращения на чтение ничего в голову не приходит.
как можно "запретить" ей хозяйничать открытми в моем приложении
файлами?
з.ы. сайт программки http://ccollomb.free.fr/unlocker/index.htm

---

GrayFace   (2007-01-28 16:32:00) [1]

prisoner849 ©   (28.01.07 0:40) [8]
любопытно, что в справке Win32 Programmer's Reference об этом не упоминается...
Это далеко не единственное, о чем там не упоминается.

---

prisoner849   (2007-01-28 00:40:00) [2]

кстати, фукнция ReadDirectoryChangesW "не работает" с сетевыми папками, если размер буфера > 64 kB
любопытно, что в справке Win32 Programmer's Reference об этом не упоминается...
пришлось рыть MSDN ;)

---

MetalFan   (2006-11-22 12:27:00) [3]

> нотификацию в калбеке

сорри, именно так) не правильно выразился.

вот нашел несколько примеров
unction ReadDirectoryChangesW(
 hDirectory: THandle; // описатель каталога, за которым надо следить
 lpBuffer: Pointer;  // Указатель на буфер, в который будет записана информация
 nBufferLength: DWORD; // Размер буфера
 bWatchSubtree: Bool; // Следить ли за подкаталогами
 dwNotifyFilter: DWORD; // Фильтр действий
 lpBytesReturned: LPDWORD; // Сколько было записано в буфер
 lpOverlapped: POverlapped; // Для асинхронной работы
 lpCompletionRoutine: FARPROC // Функция, которая будет вызвана при окончании операции
 ): BOOL; stdcall;
procedure WorkThread(LV: TListView); stdcall;
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,@cbReturn,nil,nil)
  then Break;
 // Сюда мы попадаем, если функция выполнилась успешно
 // и lpBuf указывает на одну или несколько структур FILE_NOTIFY_INFORMATION
 Ptr:=lpBuf;
repeat
  // Добавляем новый элемент в TListView (ViewStyle = vsReport )
  Item := LV.Items.Add;
  // Выделяем память под имя файла
  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;
procedure TForm1.Button1Click(Sender: TObject);
var
ThID : Cardinal;
begin
// hThread - THandle - глобальная переменная
// Создаем поток
// LV - TListView, WorkThread - функция выше
hThread:=CreateThread(nil,0,@WorkThread,LV,0,ThID);
// В случае неудачи выводим сообщение
if hThread=0 then ShowMessage(SysErrorMessage(GetLastError));
end

и

var
 Dir : string = 'C:\'; \\ имя каталога
 SubDirs : boolean; \\ следить за подкаталогами ?
type
 FILE_NOTIFY_INFORMATION = record
   NextEntryOffset: DWORD;
   Action: DWORD;
   FileNameLength: DWORD;
   FileName: array [0..0] of WCHAR;
 end;
var
 hDir : THandle;
 Buf : pointer;
 Returned, BufSize : dword;
 adr : DWORD;
 fni : ^FILE_NOTIFY_INFORMATION absolute adr;
 s : string;
 ws : WideString;
const
 wcs = SizeOf(WideChar); // = 2
 FILE_LIST_DIRECTORY       = ($0001); // directory
begin
 hDir := CreateFile(PChar(Dir),
                    FILE_LIST_DIRECTORY,
                    FILE_SHARE_READ or FILE_SHARE_DELETE,
                    nil,
                    OPEN_EXISTING,
                    FILE_FLAG_BACKUP_SEMANTICS,
                    0);
 if hDir = INVALID_HANDLE_VALUE then Exit;
 BufSize := 16*1024*1024; // 16 mb
 GetMem(Buf, BufSize);
 repeat
   if ReadDirectoryChangesW(hDir, Buf, BufSize, SubDirs,
      FILE_NOTIFY_CHANGE_FILE_NAME or
      FILE_NOTIFY_CHANGE_DIR_NAME or
      FILE_NOTIFY_CHANGE_ATTRIBUTES or
      FILE_NOTIFY_CHANGE_SIZE or
      FILE_NOTIFY_CHANGE_LAST_WRITE or
      FILE_NOTIFY_CHANGE_LAST_ACCESS or
      FILE_NOTIFY_CHANGE_CREATION or
      FILE_NOTIFY_CHANGE_SECURITY, @Returned, nil, nil) then
   begin
     Adr := Cardinal(Buf);
     while Adr < (Cardinal(Buf) + Returned) do
     begin
       case fni^.Action of
         FILE_ACTION_ADDED            : s := 'Added';
         FILE_ACTION_REMOVED          : s := 'Removed';
         FILE_ACTION_MODIFIED         : s := 'Modified';
         FILE_ACTION_RENAMED_OLD_NAME : s := 'Renamed from';
         FILE_ACTION_RENAMED_NEW_NAME : s := 'Renamed to';
         else s := '0x' + IntToHex(fni^.Action, 8);
       end;
       SetLength(ws, fni^.FileNameLength div wcs);
       Move(fni^.FileName, ws[1], fni^.FileNameLength);
       ListBox1.Items.Add(s + ' "' + ws + '"');
       Inc(adr, fni^.FileNameLength - wcs + SizeOf(fni^));
     end;
   end;
 until False;
 CloseHandle(hDir);
 FreeMem(Buf);
end

первый не нравится, что лезут из потока к LV,
а второй вроде как "ловит" только одно "событие"

---

Rouse_   (2006-11-21 22:24:00) [4]

>  какое событие возникает в данном случае?
Товарищь, вы находитесь в конференции АПИ, события - это часть модели ООП :) А вот нотификацию в калбеке можно поймать на FILE_NOTIFY_CHANGE_LAST_ACCESS

---

BiN   (2006-11-21 22:21:00) [5]

Для отслеживания закрытия хэндла файла можно пойти немного неуклюжим, но рабочим путем - WaitForSingleObject

---

Джо   (2006-11-21 22:16:00) [6]

> [3] MetalFan ©   (21.11.06 22:12)
> а какое событие возникает в данном случае?

Никакого.

---

MetalFan   (2006-11-21 22:12:00) [7]

а какое событие возникает в данном случае?

---

MetalFan   (2006-11-21 16:36:00) [8]

хм... надо поискать примеры...

---

Rouse_   (2006-11-21 14:59:00) [9]

Она работает через драйвер - с драйвером может поспорить только еще один драйвер, поэтому не запретишь. А по поводу реакции на момент разблокирования, лови изменения через ReadDirectoryChangesW

---

Наверх