Пелотный выпкск

Как пользоваться+миниописание:
В архиве пример обработки.
!!!Ограничения: пока не сделано подстановки значений по умолчанию, поэтому все параметры необходимо задавать явно! Создавать можно только 1 объект. Если вам надо перехватывать во многих местах, то создавайте переменную в глобальном модуле и юзайте её.
Реализованные методы и функции:
1) Инициализировать() - выполнить перехват функций SQLPrepareA и SQLExecDirectA
2) Завершить() - Очистить массив перехватов и убрать перехват функций SQLPrepareA и SQLExecDirectA
3) Функция ДобавитьПерехват(<Исходный запрос>, <Новый запрос>, <ВидПерехвата>, <КоличествоПерехватов>)
!!!Внимание, макс. число подменяемых запросов ограничено 1000! Потом переделаю!
Новый перехват добавляеться неактивным, т.е. следует далее вызвать метод "ВключитьПерехват"!!!
Возвращаемое значение Идентификатор перехвата, его следует передавать в методы "ВключитьПерехват", "ВыключитьПерехват", "УдалитьПерехват"
Параметры:
<Исходный запрос> - текст запроса, требующего замены
<Новый запрос> - текст запроса, который будет подставлен в случае совпадения
<ВидПерехвата> - если 0, то параметр <КоличествоПерехватов> не учитывется, если 1, то учитывается
<КоличествоПерехватов> - Количество запросов, которые будут заменены, т.е. если передать 2, то 2 запроса будут заменены, остальные не будут меняться.
4) ВключитьПерехват(<Идентификатор перехвата>) - активизирует проверку добвленного перехвата и подмену запроса
5) ВыключитьПерехват(<Идентификатор перехвата>) - выключает проверку добвленного перехвата и подмену запроса
6) УдалитьПерехват(<Идентификатор перехвата>) - удаляет перехват из массива перехватов, освобождая место для нового