如何取得当前IE窗口的URL和TITLE(50分)

同题.这个问题我急着解决.只要能解决,不管是你自己答和或者是从论坛以前记
录中贴的,都给分.

来自：sunstone 时间：00-3-12 07:57:04 ID:198292
这分怎吗分?

我的例子

//callback过程,用于查找窗口控件
function EnumChildWindowsProc(H: HWnd; lparam: longint): Boolean; stdcall;
var
Buffer: array[0..10] of Char;
begin
Result := True; //設定為True才會再找下一個
getclassname(h,buffer,10);
if trim(StrPas(Buffer))='Edit' then
begin
ThisUrl:= StrAlloc(250);
SendMessage(h,WM_GETTEXT,249,Integer(ThisUrl));
Result:=False;//設定為false不找下一個
end;
end;

procedure GetUrl;
begin
EnumChildWindows(getforegroundwindow, @EnumChildWindowsProc, 0);
end;

wjiachun兄你好:
你的答案正常,现在问题已经全部解决.这里50分就全给你了.