只调用单个API函数。

解决方案 »

  1.   

    google EnumWindows
    google EnumChildWindows
      

  2.   

    定义一个公用变量 iCount ;
    function GetChildWin(hwnd: HWND; lParam: LPARAM): BOOL; stdcall;
    begin
      iCount := iCount + 1;
      result := true;
    end;
    调用
    EnumChildWindows(handle,@GetChildWin,0);
      

  3.   

    定义一个公用变量 iCount ;
    function GetChildWin(hwnd: HWND; lParam: LPARAM): BOOL; stdcall;
    begin
      iCount := iCount + 1;
      result := true;
    end;
    调用
    EnumChildWindows(handle,@GetChildWin,0);
      

  4.   

    定义一个公用变量 iCount ;
    function GetChildWin(hwnd: HWND; lParam: LPARAM): BOOL; stdcall;
    begin
      iCount := iCount + 1;
      result := true;
    end;
    调用
    EnumChildWindows(handle,@GetChildWin,0);