需要一个用来注入的dll(inject.dll)及一个调用程序(caller.exe) 流程: caller.exe procedure TestHook; var pwnd,hChild, hwndInject hwnd; msgtmsg; begin 通过窗口标题用FindWindow找到要注入的程序的主窗口句柄pwnd pwnd = findwindow('Progman',nil); 用FindwindowEx(hMain,0,nil,nil)找到要处理的子窗口句柄hChild hChild = findWindowEx(pwnd,0,nil,nil); 用getwindowThreadProcessid(hChild,nil)找到要注入的线程 dwThreadID = getwindowThreadProcessid(hChild,nil); 调用 inject.dll的SetInjectHook方法 SetInjectHook(dwThreadID); 等待消息返回 getmessage(msg,0,0,0); 找到注入的窗口 hwndInjec...