EnumWindow+GetWindowThreadId

谢谢， 不知你有没有试过，我以前试过了，好像不能起到识别的作用，同时比较“PID”和“TID”也没多大的识别作用， 因为，好像大部分程序都会自动创建有一个“输入法窗口（类名是：MSCTFIME UI 和 M）”的。

  我想， 如果可以通过“PID”或“TID”传个自定义标记给当前窗口，这样就可以通过“EnumWindow”或“EnumThreadWindow”来识别做过标记的“主窗口”了，不过，好像有没有相关的 API。

下面是我现在的一种方法，很不可靠：

if ThreadCount = 1 then  // 单线程的程序，调用“EnumThreadWindows” 来得到主窗口句柄 //_SYSTEM_PROCESSES
  EnumThreadWindows(MyGetThreadID(Threads[0].ClientId), @EnumThreadWndProc, Integer(@HWND_A))
else
begin   
//  多线程的的程序，想不出有什么好的方法来识别主窗口句柄，等高手出手了      
end;

// 这个是我调用来识别“单线程的程序”的主窗口，可靠。
function EnumThreadWndProc(WinHWND : HWND; var ResultWinHWND : HWND): Bool; stdcall;
begin
Result:=False;
  ResultWinHWND :=WinHWND;
end;

//这是我以前用调用的“EnumWindow”和“EnumThreadWindow”的识别过程，想不出有什么好的方法来识别主窗口句柄，所以未调用。

function EnumWindowsProc(Wnd: DWORD; var EI: TEnumInfo): Bool; stdcall;   EnumWindow var
  PID : DWORD;
begin
  GetWindowThreadProcessID(Wnd, @PID);
  Result := (PID <> EI.ProcessID) or (not IsWindowVisible(WND)) or (not IsWindowEnabled(WND));
  if not result then EI.WinHandle := WND;
end;

function EnumThreadWndProcEX(WinHWND : HWND; var ResultWinHWND : HWND): Bool; stdcall; // 多线程的程序,很不可靠
var
  PClassName : array[0..12] of Char;
  ParentHWND, PID : HWND;
   AA : String;
begin
Result:=True;
ResultWinHWND:=Windows.GetParent(WinHWND);  //
   if ResultWinHWND = 0 then    // 没有父窗口，则它就是主窗口
   begin
   ResultWinHWND:= WinHWND;
   Result:=False;
   end;
end;

想起就头痛，等深入了解“窗口”关系的高手....
查句柄表也没用吧?

看看, 比喻：
单单是这个"Error Show"的进程，想找出这个进程的窗体句柄, 但有很多的窗体 PID 和 TID 是相同的（类名是：MSCTFIME UI 和 M）



其实我要做的只是显示当前系统的所有进程的主窗口标题、类名、等等。