delphi 遍历所有窗口

function EnumWindowsProc_2(hwnd: HWND; lParam: LPARAM): Boolean; stdcall;
var
buf: array[Byte] of Char;
i:integer;
begin
GetWindowText(hwnd, buf, SizeOf(buf));{得到窗口的标题}
form1.memo1.Lines.Add(buf);
Result := True;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin

  //if 遍历所有窗口，如果当前激活可输入窗口非所需窗口，则激活，再判断标题

EnumWindows(@EnumWindowsProc_2, 0);{枚举所有的窗口}
end;