用OLE的方法控制IE的(窗口最大化,全选,复制等)属性,该如何操作。(100分)

  • 主题发起人 主题发起人 aamao
  • 开始时间 开始时间
A

aamao

Unregistered / Unconfirmed
GUEST, unregistred user!
MyIE:=createoleobject('InternetExplorer.application');
有以下的方法
MyIE.visible:=true;
但象窗口最大化,全选,复制等方法就不知道是哪些了。
为什么当输入MyIE.后就不能出现一个窗口来显示所有属性和方法呢?
 
IEApp := CreateOLEObject('InternetExplorer.Application');
IEApp.visible := true;
IEApp.Top := 0;
IEApp.Left := 0;
IEApp.width := screen.width;
IEApp.height := screen.height;
IEApp.Navigate('http://www.delphibbs.com');
IEApp.GoForward ;
IEApp.GoBack ;
IEApp.GoHome ;
IEApp.Refresh ;
IEApp.Stop ;
IEApp.GoHome ;
IEApp.FullScreen := true;
IEApp.StatusText := Text;
IEApp.Path := Path
IEApp.FullName := Full Path
IEApp.LocationURL := Get active Url

 
好象没有我说的“窗口最大化,全选,复制”几项吧
 
IEApp := CreateOLEObject('InternetExplorer.Application');
IEApp.visible := true;

ieapp.document.documentelement.innerhtml;//网页源码
ieapp.document.body.innertext;//全部文本
ieapp.ExecWB(OLECMDID_SELECTALL, OLECMDEXECOPT_PROMPTUSER, EmptyParam, EmptyParam);//全选
ieapp.ExecWB(OLECMDID_COPY, OLECMDEXECOPT_PROMPTUSER, EmptyParam, EmptyParam);//拷贝
剪切、粘贴为OLECMDID_CUT、 OLECMDID_PASTE
 
为什么不用webbroeser呢?
 
var h:THandle;

h:=Findwindow('IEFrame',nil);//找IE窗口句柄

showwindow(h,sw_maximize);//控制窗口的api函数,对窗口句柄操作
 
取得所有IE窗口的句柄:

var h:thandle;
s:array[0..254] of char;

memo1.Clear;
h:=getwindow(handle,GW_HWNDFIRST);
while h<>0 do
begin
getClassname(h,@s,255);//取窗口类
if s='IEFrame' then //如果是IE类
begin
getwindowText(h,@s,255);//把窗口标题加到memo
memo1.Lines.Add(s);
end;
h:=getwindow(h,GW_HWNDNEXT);//下一窗口
end;
 
多人接受答案了。
 
呵呵,有意思,搞笑
 
后退
顶部