FindWindow通过关键字查找窗口标题的示例delphi源码

源码资源网

FindWindow通过关键字查找窗口标题的示例delphi源码

1. // 可放在某单元中，uses Windows, Forms, SysUtils。
   
2. function FindByKeyword(const Keyword: string): HWND;
   
3. var
   
4.   h: HWND;
   
5.   len: Integer;
   
6.   title: string;
   
7. begin
   
8.   Result := 0;
   
9.   h := GetWindow(GetDesktopWindow, GW_CHILD);
   
10.   while h <> 0 do
    
11.   begin
    
12.     len := GetWindowTextLength(h);
    
13.     if len > 0 then
    
14.     begin
    
15.       SetLength(title, len);
    
16.       GetWindowText(h, PChar(title), len + 1);
    
17.       if Pos(Keyword, title) > 0 then
    
18.       begin
    
19.         ShowMessage(title);  // AfxMessageBox 等效
    
20.         Result := h;
    
21.         Exit;
    
22.       end;
    
23.     end;
    
24.     h := GetWindow(h, GW_HWNDNEXT);
    
25.   end;
    
26. end;

复制代码