var iehwnd,whwnd,rhwnd,chwnd,cbhwnd,ehwnd:integer; buf:array[0..256]of char; begin iehwnd:=findwindow('ieframe',nil); if iehwnd <> 0 then begin whwnd:=findwindowex(iehwnd,0,'workera',nil); rhwnd:=findwindowex(whwnd,0,'rebarwindow32',nil); chwnd:=findwindowex(rhwnd,0,'comboboxex32',nil); cbhwnd:=findwindowex(chwnd,0,'combobox',nil); ehwnd:=findwindowex(cbhwnd,0,'edit',nil); sendmessage(ehwnd,wm_gettext,100,integer(@buf)); end; edit1.Text:=buf; end;//得到当前的网址!
SendMessage(Hwnd,WM_GETTEXT,...);
iehwnd,whwnd,rhwnd,chwnd,cbhwnd,ehwnd:integer;
buf:array[0..256]of char;
begin
iehwnd:=findwindow('ieframe',nil);
if iehwnd <> 0 then
begin
whwnd:=findwindowex(iehwnd,0,'workera',nil);
rhwnd:=findwindowex(whwnd,0,'rebarwindow32',nil);
chwnd:=findwindowex(rhwnd,0,'comboboxex32',nil);
cbhwnd:=findwindowex(chwnd,0,'combobox',nil);
ehwnd:=findwindowex(cbhwnd,0,'edit',nil);
sendmessage(ehwnd,wm_gettext,100,integer(@buf));
end;
edit1.Text:=buf;
end;//得到当前的网址!
楼上的 edit1.Text:=buf;?