请问如何得到本进程中所有的窗口句柄？

Question

恕小弟笨拙，能给个例子吗。
BOOL EnumWindows(
  WNDENUMPROC lpEnumFunc,  // callback function
  LPARAM lParam            // application-defined value
);
我如何用这个函数呢？他返回yes or no, 那么窗口在哪里？我又如何得到窗口句柄？

Answer 1

function EnumFunc(AHwnd: THandle; AParam: Integer): Boolean; stdcall;
var
  S: string;
begin
  Result := True;
  SetLength(S, 20);
  SetLength(S, GetWindowText(AHwnd, PChar(S), 20));
  listbox1.Items.Add('窗口句柄:'+inttostr(ahwnd)+' 窗口名称：'+s); 
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  EnumWindows(@EnumFunc, 0);
end;