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;