遍历当前窗口名字

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;