列出所有窗口

//=========================================列出exe序的所有子窗口和上层窗口

Function findhbyexe(  h:HWND ;exename:string ):boolean; stdcall;
var

  lppe: TProcessEntry32;
  found: boolean;
  Hand1: THandle;
  pid:Cardinal;
begin
     Result:=false;

        GetWindowThreadProcessId(h,pid  );
        lppe.dwSize := Sizeof(lppe);
        Hand1 := CreateToolhelp32Snapshot(TH32CS_SNAPALL, 0);

         // 列出所有进程

          found := Process32First(Hand1, lppe);
          while found do
          begin
            if LowerCase(ExtractFileName(lppe.szExeFile))=LowerCase(exename) then
            begin
             if pid = lppe.th32ProcessID   then
             begin
                  Result:=true;
                  break;
             end;
            end;
            found := Process32Next(Hand1, lppe);