Delphi如何获得窗口的名字？

就是获得我当前所有运行的窗口名，用来做老板键的。就比如，我桌面上有记事本、百度网页、和Q聊这几个窗口，就可以获取他们的名字，存入数组。

用WindowsAPI EnumWindows可以实现你想要的功能。
EnumWindows枚举所有窗口，用GetWindowText获得标题。
具体代码如下：
function EnumWndProc(hwnd: THandle; lParam: LPARAM): Boolean; stdcall;
var
wndTitle: array[0..255] of Char;
begin
//获取窗口名称
if GetWindowText(hwnd, wndTitle, 255) > 0 then
begin
//参数lParam转换为TStrings，添加窗口标题
TStrings(lParam).Add(wndTitle);
end;

//返回True则继续下一个窗口，否则停止
Result := True;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
List: TStrings;
begin
List := Memo1.Lines;
EnumWindows(@EnumWndProc, Integer(List));
end;

忒复杂了，看不懂啊