如何获取托盘程序的窗口句柄？

[XD王]

一个进程最小化，任务栏没有显示，只有托盘图标，
这个时候如何让去提取该进程的主窗口句柄？？

已知该进程的 PID号，用 EnumWindows(@EnumWindowsProc, Integer(@EI)); 去枚举，能枚举到该PID，但是
得到的 HND 值不正确，不知道该怎么修改 EnumWindowsProc 函数。

type
  PEnumInfo = ^TEnumInfo;
  TEnumInfo = record
    ProcessID: DWORD;
    HWND: THandle;
  end;

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

[funxu]

用EnumWindows获得的顶层窗体句柄先别急着用，用getwindowtext获取标题看看是不是你要的窗体，因为有时候EnumWindows先找到的是application题窗体，然后才是你的窗体