function GetIEEdit():HWND;
var
IEWnd,WorkerW,ReBarWindow32,ABRoot,IEEdit:HWND;
begin
IEWnd:=0;
WorkerW:=0;
ReBarWindow32:=0;
ABRoot:=0;
IEEdit:=0;
IEWnd:=FindWindow('IEFrame',nil);
if IEWnd=0 then
begin
Exit;
end;
WorkerW:=FindWindowEx(IEWnd,0,'WorkerW',nil);
if WorkerW=0 then
begin
Exit;
end;
ReBarWindow32:=FindWindowEx(WorkerW,0,'ReBarWindow32',nil);
if ReBarWindow32=0 then
begin
Exit;
end;
ABRoot:=FindWindowEx(ReBarWindow32,0,'Address Band Root',nil);
if ABRoot=0 then
begin
Exit;
end;
IEEdit:=FindWindowEx(ABRoot,0,'Edit',nil);
if IEEdit<>0 then
begin
Result:=IEEdit;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
Edit:HWND;
Urltxt: array[0..254] of Char;
begin
Edit:=GetIEEdit();
SendMessage(Edit,WM_GETTEXT,254,Integer(@Urltxt));
if pos('hao123',Urltxt)>0 then
begin
Urltxt:='www.baidu.com';
SendMessage(Edit,WM_SETTEXT,254,Integer(@Urltxt));
PostMessage(Edit,WM_KEYDOWN,VK_RETURN,0);
end;
end;