取IE的url
来源:百度文库 编辑:神马文学网 时间:2024/05/23 13:44:47
[Delphi]取IE的url
来源:大富翁
function GetIEAddress(IEHandle:THandle;var Address:string):Boolean;
Const WM_GETTEXT = $D;
WM_GETTEXTLENGTH =$E;
CtlNames:array[0..4] of string=(
‘WorkerA‘, //获得IE窗口的工作区的句柄
‘ReBarWindow32‘, //获得IE窗口的菜单栏的句柄
‘ComboBoxEx32‘, //获得IE窗口的下拉菜单的句柄
‘ComboBox‘, //获得IE窗口的下拉菜单当前项的句柄
‘Edit‘ //获得这个下拉菜单的编辑框句柄
);
var
hwnd :THandle;
i,AddLen:integer;
AddBuf :Array[0..4095] of char;
s :string;
begin
Result:=True;
hwnd:=IEHandle;
try
for i:=0 to length(ctlnames)-1 do
hwnd:=FindWindowEx(hwnd,0,PChar(CtlNames[i]),nil);
except
Result:=false;
end;
if (Result) then begin
AddLen:=SendMessage(Hwnd,WM_GETTEXTLENGTH,0,0);
//向系统发送获得IE窗口的地址栏中的字符串长度命令
SendMessage(Hwnd,WM_GETTEXT,AddLen+1,DWord(@AddBuf));
//向系统发送获得IE窗体地址栏中的字符串命令
if length(AddBuf)>0 then
begin
Address:=AddBuf;
GetWindowText(IEHandle,AddBuf,length(AddBuf)+1);
s:=Addbuf;
i:=pos(Uppercase(‘ - Microsoft Internet Explorer‘),
Uppercase(s));
if i>0 then s:=Trim(copy(s,1,i-1));
Address:=Address+‘ [‘+s+‘]‘;
end
else Result:=false;
end;
end;
function EnumIEProc(hwnd:THandle;Param:LPARAM):Boolean;stdcall;
const NAME_LEN=1024;
type
PStrings=^TStrings;
var
sClassName:Array[0..NAME_LEN] of char;
IEAddress:string;
AddLen:Integer;
begin
AddLen:=GetClassName(hwnd,@sClassName,NAME_LEN);
if (AddLen=7) and (sClassName=‘IEFrame‘) then
if GetIEAddress(hwnd,IEAddress) then
PStrings(Param).Add(IEAddress);
Result:=true;
end;
function GetAllIEAddress(var Addresses:TStrings):Integer;
var
s:TStrings;
begin
s:=TStringList.Create ;
EnumWindows(@EnumIEProc,LPARAM(@s));
Result:=s.Count ;
if Result>0 then Addresses.Assign (s);
s.free;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
s:TStrings;
begin
s:=TStringList.Create ;
GetAllIEAddress(s);
if s.Count >0 then Memo1.Lines.Assign (s);
s.free;
end;
来源:大富翁
function GetIEAddress(IEHandle:THandle;var Address:string):Boolean;
Const WM_GETTEXT = $D;
WM_GETTEXTLENGTH =$E;
CtlNames:array[0..4] of string=(
‘WorkerA‘, //获得IE窗口的工作区的句柄
‘ReBarWindow32‘, //获得IE窗口的菜单栏的句柄
‘ComboBoxEx32‘, //获得IE窗口的下拉菜单的句柄
‘ComboBox‘, //获得IE窗口的下拉菜单当前项的句柄
‘Edit‘ //获得这个下拉菜单的编辑框句柄
);
var
hwnd :THandle;
i,AddLen:integer;
AddBuf :Array[0..4095] of char;
s :string;
begin
Result:=True;
hwnd:=IEHandle;
try
for i:=0 to length(ctlnames)-1 do
hwnd:=FindWindowEx(hwnd,0,PChar(CtlNames[i]),nil);
except
Result:=false;
end;
if (Result) then begin
AddLen:=SendMessage(Hwnd,WM_GETTEXTLENGTH,0,0);
//向系统发送获得IE窗口的地址栏中的字符串长度命令
SendMessage(Hwnd,WM_GETTEXT,AddLen+1,DWord(@AddBuf));
//向系统发送获得IE窗体地址栏中的字符串命令
if length(AddBuf)>0 then
begin
Address:=AddBuf;
GetWindowText(IEHandle,AddBuf,length(AddBuf)+1);
s:=Addbuf;
i:=pos(Uppercase(‘ - Microsoft Internet Explorer‘),
Uppercase(s));
if i>0 then s:=Trim(copy(s,1,i-1));
Address:=Address+‘ [‘+s+‘]‘;
end
else Result:=false;
end;
end;
function EnumIEProc(hwnd:THandle;Param:LPARAM):Boolean;stdcall;
const NAME_LEN=1024;
type
PStrings=^TStrings;
var
sClassName:Array[0..NAME_LEN] of char;
IEAddress:string;
AddLen:Integer;
begin
AddLen:=GetClassName(hwnd,@sClassName,NAME_LEN);
if (AddLen=7) and (sClassName=‘IEFrame‘) then
if GetIEAddress(hwnd,IEAddress) then
PStrings(Param).Add(IEAddress);
Result:=true;
end;
function GetAllIEAddress(var Addresses:TStrings):Integer;
var
s:TStrings;
begin
s:=TStringList.Create ;
EnumWindows(@EnumIEProc,LPARAM(@s));
Result:=s.Count ;
if Result>0 then Addresses.Assign (s);
s.free;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
s:TStrings;
begin
s:=TStringList.Create ;
GetAllIEAddress(s);
if s.Count >0 then Memo1.Lines.Assign (s);
s.free;
end;
取IE的url
URL
面向搜索引擎的URL优化
面向搜索引擎的URL优化
Microsoft Online Services 的 URL
Servlet和Filter的url匹配url-pattern
高层次IE的思考
IE进程的恢复
IE的优化设置
IE的作用
IE故障的解决办法
IE浏览器的使用方法
urlRewriteFilter来实现url的美化
Servlet,Filter的url-pattern详解
快速URL排重的方法
人生的故??url=undefined
各种漂亮的鼠标URL代码
如何获取FLASH动画的URL地址
Servlet和Filter的url匹配
如何优化网页的URL结构
如何获得图片的网址(URL)_
fckeditor的取值
取名字的要点
IE开发组的Blog