新版QQ中:EnumChildWindows怎么总是返回False呢？(20分)

function TForm1.Getch(hWnd:Integer;lparam:LongInt):Boolean;StdCall;<br>var<br>&nbsp; ClassBuffer:array [0..50] of char;<br>begin<br>&nbsp; showmessage('ok');<br>end;<br><br>procedure TForm1.Button1Click(Sender: TObject);<br>var<br>&nbsp; h:Integer;<br>&nbsp; ch:array [0..255] of char;<br>begin<br>&nbsp; h:=FindWindow(nil,'TE-Oicq Receive Dlg');<br>&nbsp; if h&gt;0 then<br>&nbsp; begin<br>&nbsp; &nbsp; if not EnumChildWindows(h,@TForm1.GetCh,Integer(@ch[0])) then<br>&nbsp; &nbsp; showmessage('Open Error');<br>&nbsp; end;<br>end;<br>0720版的QQ可以正确进入到GetCh中的。<br>

关注啊

接受答案了.