| ← Ноябрь 2004 → | ||||||
|
2
|
||||||
За последние 60 дней ни разу не выходила
Сайт листа:
http://codeguru.ru
Открыт:
21-09-2003
Пре-модерация: Нет
Адрес для писем в лист: comp.soft.prog.prog-list@subscribe.ru
Адрес
модератора: comp.soft.prog.prog-owner@subscribe.ru
Здравствуйте, soft.prog.
Моя программа должна работать с любыми типами файлов, перехватывая
системные функции. Как узнать что над каким либо объектом вызвана
определенная вункция(например удаление) и перехватить ее.
Здравствуйте, Томилов.
Вы писали 14 ноября 2004 г., 22:14:54:
Статейку давай. Вообше мне надо перехватить удаление файлов/папок.
Norton Utils мне не нравится, хочу сам управлять удалением файлов, что
сразу, что придержать. А формат файла info? из Корзины не знаешь?
Здоровеньки булы, janalex!
14 ноября 2004 г., воскресенье, 23:02:34 (GMT+05:00), пришел ко мне
почтальон Почкин и всучил письмо с пометкой "Delphi Реакция на событе в системе",
в котором сообщалось следующее:
Мда, амбиции :-)
Чо еще за файл?
Здравствуйте.
Подскажите, как из VB ADDin'a обновить содержание в
документе MS WORD.
Такие вещи делаются с помощью хуков (Hooks).
Посмотреть можно, например, на http://www.delphimaster.ru/articles/hooks/index.html
Здравствуйте, janalex.
Вы писали 14 ноября 2004 г. в 15:55:48 [GMT +2:00]:
вот держи выписку из одного сайта:
Отслеживаем изменения файловой системы
В API есть несколько функций, позволяющих осуществлять контроль за файловой системой.
Так же необходимо подключить компонент TDirWatcher, который содержиться в демонстрационно
проекте.
Компилятор: все версии Delphi
Следующий цикл показывает, как можно получать сообщения о изменениях файловой
системы:
var
ChangeHandle: THandle;
...
ChangeHandle:= FindFirstChangeNotification(PChar(WatchPath), false,
hNotifyFilter);
if ChangeHandle <> INVALID_HANDLE_VALUE then
while true do
begin
if WaitForSingleObject(ChangeHandle,500) = WAIT_OBJECT_0 then
begin
// Событие...
end;
FindNextChangeNotification(ChangeHandle);
end;
Компонент TDirWatcher, используемый в этом цикле, запускается в собственном потоке.
При изменениях в указанной дирректории или поддирректории возникает событие OnChange.
TDirWatcher с демо-программкой здесь:
http://www.sources.ru/delphi/DirWatcher.zip
Здоровеньки булы, janalex!
14 ноября 2004 г., воскресенье, 18:55:48 (GMT+05:00), пришел ко мне
почтальон Почкин и всучил письмо с пометкой "Delphi Реакция на событе в системе",
в котором сообщалось следующее:
Где-то у меня была статейка насчет перехвата функций WinAPI, по-моему
с www.wasm.ru я её скоммуниздил, но там asm, если с asm-ом хочешь
связаться - могу поискать. Может проще ты перечислишь все действия
которые надо перехватить и все типы файлов. Например:
Удаление, копирование и т.п. ловиться через
FindFirstChangeNotification/FindNextChangeNotification
Запуск exe-файлов ловиться через реестр - как-то давно насчет этого
тред был (не отлавливаются запуски через VC, NC и т.п.)
В общем, ИМХО, разбить задачу на несколько более простых чем лезть в
дебри вирмейкерства, тем более могут дырки через которые пролазит
перехват API закрыть.