DELPHI查找带某个字符的标题

Question

DELPHI查找带某个字符的标题，找到就在得到该标题的句柄，如果找到多个符合条件的标题就随即得到标题的句柄
给个代码参考

Answer 1

枚举窗体,依次查找符合条件的窗体function EnumWndProc(AWnd: HWND; AlParam: LPARAM):Boolean;stdcall; 
var 
  WndCaption: array[0..254] of Char; 
  str:string; 
begin 
  GetWindowText(AWnd, @WndCaption, 254); 
  if WndCaption[0]<>chr(0) then 
  begin 
    str:=Trim(string(WndCaption)); 
    if str='Form1' then 
    begin 
      lst.Add(IntToStr(AWnd)); 
      Form1.ListBox1.Items.Add(Format('%d  =  %s',[AWnd,StrPas(WndCaption)])); 
    end; 
  end; 
  Result := True; 
end; 

Answer 2

findwindow(类名,窗口标题)
如果是本机你可以取进程快照,得到handle.
再通过handle取标题.

Answer 3

procedure TForm1.Button1Click(Sender: TObject); 
var fHwnd:hwnd; 
begin 
fHwnd:=FindWindowEx(0,0,nil,'form1');  //获得form1句柄 
end;