function EnumChildWindowsProc(hwnd: Integer; lparam: Longint): Boolean; stdcall; var buffer: array[0..255] of char; begin Result := True; GetClassName(hwnd,buffer,256); if StrPas(Buffer)='Edit' then begin SendMessage(hwnd,WM_GETTEXT,256,lparam); Result:=False; end; end;
----------------------------------------------
-
function EnumChildWindowsProc(hwnd: Integer; lparam: Longint): Boolean; stdcall; var buffer: array[0..255] of char; begin Result := True; GetClassName(hwnd,buffer,256); if SameStr(WideCharToString(@Buffer),'Edit') then begin SendMessage(hwnd,WM_GETTEXT,256,lparam); Result:=False; end; end; procedure TForm_Main.Button5Click(Sender: TObject); var hwnd:NativeInt; buffer:array[0..255] of char; s:string; begin hwnd:=FindWindow('IEFrame',nil); if hwnd<>0 then begin EnumChildWindows(hwnd,@EnumChildWindowsProc,NativeInt(@buffer)); s:=WideCharToString(@buffer); Memo_Info.Lines.add(s); end; end;
----------------------------------------------
http://blog.sina.com.cn/bmsrnote