请白河愁白大哥来指点一下菜鸟。(0分)

case wParam of<br> &nbsp; &nbsp; &nbsp;Ord('1'):<br> &nbsp; &nbsp; &nbsp; &nbsp;begin<br> &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;if Messagebox(GetActiveWindow, 'Hook ExtTextOut', 'Message',MB_YESNO) = ID_YES then<br> &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;begin<br> &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;try<br> &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;AA:= TAPI.Create;<br> &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;AA.API1:= TAPIHooker.Create(nil);<br> &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;AA.API1.DllName:= 'gdi32.dll';<br> &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;AA.API1.DllFunction:= 'ExtTextOutA';<br> &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;AA.API1.Params:= 8;<br> &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;AA.API1.OnAPIHook:= aa.OnHookMSG;<br> &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;AA.API1.OnAPIUnHook:= aa.OnHookMSG;<br> &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;AA.API1.OnAPIHookProc:= AA.HookProc1;<br> &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;AA.API1.HookEnabled:= True;<br> &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;except<br> &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;end;<br> &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;end else<br> &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;try<br> &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;AA.API1.HookEnabled:= False;<br> &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;AA.API1.Free;<br> &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;AA.Free;<br> &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;except<br> &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;end;<br>function TAPI.HookProc1(const aParam: array of DWORD): DWORD;<br>var<br>ap5 &nbsp; :string;<br>begin<br> &nbsp;ap5:='我笨，白大哥别见怪'+pchar(aParam[5]);<br> &nbsp;Result:= dword(ExtTextOutA(aParam[0], aParam[1], aParam[2], aParam[3],PRect(aParam[4]),pchar(ap5),aParam[6],pointer(aParam[7])));<br> &nbsp;//MessageBox(GetActiveWindow, pchar(aParam[5]), '信息', 0);<br>end;<br><br>我把白大哥的这段程序改成上面的，怎么不能正确钩到消,请白大哥指点

ap5:='我笨，白大哥别见怪'+pchar(aParam[5]);<br>这句代码好玩。

接受答案了.