dlephi7里如何获得多个同标题窗口的句柄！

水云

        在dlephi7里试了很久，和度娘闹了好几天。还是木有搞定，泪崩啊! @@
        在打开多个相同程序时，就有了多个相同类名和标题的窗口，但是他们的句柄不同，如何才能获得；比如有3个记事本都开着，窗口类名都是：’Notepad‘；窗口标题都是：‘无标题 - 记事本’；但是有3个句柄，如何吧3个不同的句柄都找到

aminghanhua

1. var
   
2.   h: array[0..2] of Char;
   
3.   hedt: array[0..2] of HWND;
   
4.   str:string;
   
5.   i:integer;
   
6. 
   
7. function GetHWndByPID(const hPID: THandle): THandle;
   
8. type
   
9.   PEnumInfo = ^TEnumInfo;
   
10.   TEnumInfo = record
    
11.   ProcessID: DWORD;
    
12.   HWND: THandle;
    
13. end;
    
14.   function EnumWindowsProc(Wnd: DWORD; var EI: TEnumInfo): Bool; stdcall;
    
15.   var
    
16.     PID: DWORD;
    
17.   begin
    
18.     GetWindowThreadProcessID(Wnd, @PID);
    
19.     Result := (PID <> EI.ProcessID) or (not IsWindowVisible(Wnd)) or
    
20.       (not IsWindowEnabled(Wnd));
    
21.     if not Result then
    
22.       EI.HWND := Wnd;
    
23.   end;
    
24.   function FindMainWindow(PID: DWORD): DWORD;
    
25.   var
    
26.     EI: TEnumInfo;
    
27.   begin
    
28.     EI.ProcessID := PID;
    
29.     EI.HWND := 0;
    
30.     EnumWindows(@EnumWindowsProc, Integer(@EI));
    
31.     Result := EI.HWND;
    
32.   end;
    
33.   begin
    
34.   if hPID <> 0 then
    
35.     Result := FindMainWindow(hPID)
    
36.   else
    
37.     Result := 0;
    
38.   end;
    
39. 
    
40. procedure TForm1.Button1Click(Sender: TObject);
    
41. var
    
42.   ProcessName: string;
    
43.   FSnapshotHandle: THandle;
    
44.   FProcessEntry32: TProcessEntry32;
    
45.   ContinueLoop: Bool;
    
46.   MyHwnd: THandle;
    
47. begin
    
48.   FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
    
49.   FProcessEntry32.dwSize := Sizeof(FProcessEntry32);
    
50.   ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);
    
51.   while ContinueLoop do
    
52.   begin
    
53.     ProcessName := FProcessEntry32.szExeFile;
    
54.     if (ProcessName = 'notepad.exe') then
    
55.     begin
    
56.       MyHwnd := GetHWndByPID(FProcessEntry32.th32ProcessID);
    
57.       Memo1.Lines.Add(inttostr(MyHwnd));
    
58.     end;
    
59.     ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
    
60.   end;
    
61.   CloseHandle(FSnapshotHandle);
    
62.     for i := 0 to memo1.Lines.Count - 1 do
    
63.   begin
    
64.     hedt[i]:=FindWindowEx(strtoint(memo1.Lines[i]),0,'edit',nil);
    
65.   end;
    
66. end;
    
67. 
    
68. procedure TForm1.Button2Click(Sender: TObject);
    
69. begin
    
70.                ;
    
71. SendMessage(hedt[0], WM_SETTEXT, 255, LongInt(Pchar('内容写入记事本一')));
    
72. end;
    
73. 
    
74. procedure TForm1.Button3Click(Sender: TObject);
    
75. begin
    
76. SendMessage(hedt[1], WM_SETTEXT, 255, LongInt(Pchar('内容写入记事本二')));
    
77. end;
    
78. 
    
79. procedure TForm1.Button4Click(Sender: TObject);
    
80. begin
    
81. SendMessage(hedt[2], WM_SETTEXT, 255, LongInt(Pchar('内容写入记事本三')));
    
82. end;

复制代码