怎样调用EnumChildWindows函数?(70分)

這裡要用到CallBack方式 例:<br>//宣告一個CallBack的函式格式參照Windows API手冊<br><br>function EnumChildWindowsProc(H: HWnd; TF: TForm1): Boolean; stdcall;<br>var<br>&nbsp; Buffer: array[0..255] of Char;<br>begin<br>&nbsp; Result := True; //設定為True才會再找下一個<br>&nbsp; //開始作某事 &nbsp;<br>&nbsp; GetWindowText(H, Buffer, 255);<br>&nbsp; TF.LB.Items.Add(StrPas(Buffer));<br>end;<br><br>procedure TForm1.Button1Click(Sender: TObject);<br>begin<br>&nbsp; //第一個參數是Parant的視窗的Handle, <br>&nbsp; //第二個是CallBack函式的位址<br>&nbsp; //第三個是隨便，自行定義，這裡是傳入Tform1<br>&nbsp; EnumChildWindows(Handle, @EnumChildWindowsProc, Longint(Self));<br>end;<br><br><br>

接受答案了.