一个关于检索窗口的问题。

Question

我想得到桌面所有已经打开窗体的标题。请问如何做呢？？

Answer 1

function EnumWindowsFunc(Handle: THandle; List: TStringList): boolean; stdcall;
var Caption: array[0..256] of Char;
begin
  if GetWindowText(Handle, Caption, SizeOf(Caption)-1) <> 0 then
  begin
    List.Add(Caption);
  end;
  Result:=True;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Clear;
  EnumWindows(@EnumWindowsFunc, LParam(Memo1.Lines));
end;