delphi 句柄问题

来源：百度知道 编辑：UC知道 时间：2024/05/26 03:18:22
比如我想获得FindWindow获得QQ聊天窗口的句柄。后面的窗口标题该怎么写。获得所有的。如果写 与 上帝 交谈中就只能获得这个窗口的句柄。我怎么样才能获得QQ聊天窗口的句柄。只要是聊天窗口就要获取

用枚举法：
Function EnumWinProc(Wnd:HWND;lParam:DWORD) : Boolean; Export;StdCall;
var
WinText : Array[0..255] of Char;
begin
GetWindowText(Wnd, WinText, 255);
Result:=true;
if (pos('与',StrPas(WinText))>0) and (pos('聊天',StrPas(WinText))>0) then
begin
......
end;
end;

EnumWindows(@EnumWinProc,0);