遍历当前窗口名字

procedure TForm1.btn1Click(Sender: TObject);  
var  
  h: HWnd;  
  p: array[0..254] of char;  
  TitleStr: string;  
begin  
  h := GetWindow(Handle, GW_HWNDFIRST);  
  while h <> 0 do  
  begin  
    if GetWindowText(h, @p, 255) > 0 then  
    begin  
      TitleStr := StrPas(p);  
      if AnsiPos('计算器',TitleStr)>0 then  //查找比较是否>0  
      begin  
        mmo1.Lines.Add(p);  
      end;  
  
    end;  
    h := GetWindow(h, GW_HWNDNEXT);  
  end;  
end;