本文整理自网络,侵删。
procedure TForm1.Button1Click(Sender: TObject);
var
IE_URL: Array[0..1000] Of char; //得到的字符串
IE_Hwnd:thandle;
i:integer;
Const
CtlNames:array[0..3] of string=(
'WorkerW', //获得IE窗口的工作区的句柄
'ReBarWindow32', //获得IE窗口的菜单栏的句柄
'Address Band Root', //获得IE窗口的下拉菜单的句柄
'Edit' //获得编辑框句柄 www.delphitop.com
);
begin
try
IE_Hwnd:=findwindow(pwidechar('IEFrame'),nil);
if IE_Hwnd<=0 then exit;
for i:=0 to length(ctlnames)-1 do
begin
IE_Hwnd:=FindWindowEx(IE_Hwnd,0,PChar(CtlNames[i]),nil);
//showmessage(CtlNames[i]);
end;
except
end;
if IE_Hwnd<=0 then exit;
SendMessage(IE_Hwnd, WM_GetTEXT, 256,integer(@IE_URL[0])); //取值
Memo1.Lines.Add(IE_URL);
end;
相关阅读 >>
Delphi makeuniquefilename 创建文件名如果已经存在自动更改文件名
Delphi imagelist-图片(bmp)按名称而不按索引
更多相关阅读请进入《Delphi》频道 >>