Не надо сразу отсылать в поиск, я несколько суток искал решение проблемы, прежде чем осмелился задать вопрос
Решаю проблему такого плана:
Мне надо поставить хук на открытие/чтение файла определенным приложением. Неоднократно перерыл форум и интернет, но поиски мало что дали, везде описывается как ставить глобальный хук, а про локальный лишь пара слов

Код

function SetWindowsHookEx(idHook: integer; lpfn: TFNHookProc; hmod: HINST; dwThreadID: DWORD): HHOOK; stdcall;

Выяснил только что локальную ловушку можно ставить в самой программе (без дополнительной dll), вместо hmod тогда нужно указывать 0 (поправьте если не так), а вот что делать с idHook и dwThreadID пока непонятно. Знаю, что можно создать поток, но все попытки реализовать это пока выдавали ошибки
Может кто сможет подкинуть ссылки или хотя бы сказать, как вставить в функцию процесс и какой тип ловушки указывать?

Вкратце опишу для чего я это делаю:
Есть игра, программа, которую я пишу, ее запускает (создает процесс), и отлавливает все обращения игры к файлам, то есть если в игре выполняется скрипт, например "loadfile "filename"" (который возвращает строковое содержимое файла filename), то мне надо перехватить обращение к файлу, и если он не существует, то вернуть свою строку (получится как будто игра прочитала файл).
Сразу предупреждаю, что делается это не в целях читерства , а в целях расширения скриптовых возможностей игры (добавления новых функций).

вот возьми и почитай, для начала думаю хватит
hook

одно но там вроде все на С, хотя должно быть все понятно

Удачи!!!

Спасибо! Немного помогло, но вот какая проблема возникла.
Например ставлю локальный хук на блокнот (из своей программы, без dll), вот функция установки:

Код

function SetupLocalHook: boolean; var   tpid: DWORD;   h: HWnd;   ProcessID: Integer; begin     Result:=false;     h:=FindWindow(nil, 'Untitled - Notepad');     If h=0 then exit;     tpid := GetWindowThreadProcessId(h, @ProcessID);     CurrentHook:=setwindowshookex(WH_KEYBOARD,@KeyBoardHook,0,tpid);     if CurrentHook<>0 then Result:=true; end;

Не работает CurrentHook=0, в чем может быть ошибка?

Если же делаю установку через

Код

CurrentHook:=setwindowshookex(WH_KEYBOARD,@KeyBoardHook,HInstance,tpid);

хук устанавливается, но при его срабатывании Блокнот закрывается (это уже хоть что-то, но хотелось бы иного результата )

Это сообщение отредактировал(а) Voyager - 5.9.2005, 12:37

Цитата

Есть игра, программа, которую я пишу, ее запускает (создает процесс), и отлавливает все обращения игры к файлам, то есть если в игре выполняется скрипт, например "loadfile "filename"" (который возвращает строковое содержимое файла filename), то мне надо перехватить обращение к файлу, и если он не существует, то вернуть свою строку (получится как будто игра прочитала файл).

Тебе надо перехватывать API... Читай об этом тут:
http://wasm.ru/article.php?article=apihook_1
можно еще тут:
http://www.rsdn.ru/article/baseserv/IntercetionAPI.xml
http://www.rsdn.ru/article/baseserv/apicallsintercepting.xml