procedure TForm1.Button1Click(Sender: TObject);
var
hwnd: Integer;
h1,h2,h3,h4,h5: Integer;
buffer: array[0..1023] of char;
begin
memo1.Lines.clear;
hwnd := FindWindow('IEFrame',nil);
Memo1.Lines.Append(IntToStr(hwnd));
h1 := FindWindowEx(hwnd,0,'WorkerA',nil);
Memo1.Lines.Append(IntToStr(h1));
h2 := FindWindowEx(h1,0,'ReBarWindow32',nil);
Memo1.Lines.Append(IntToStr(h2));
h3 := FindWindowEx(h2,0,'ComboBoxEx32',nil);
Memo1.Lines.Append(IntToStr(h3));
h4 := FindWindowEx(h3,0,'ComboBox',nil);
Memo1.Lines.Append(IntToStr(h4));
h5 := FindWindowEx(h4,0,'Edit',nil);
Memo1.Lines.Append(IntToStr(h5));
SendMessage(h5,WM_GETTEXT,1024,Integer(@buffer[0]));
Memo1.Lines.Append(buffer);
end;
那个h5就是了