delphi 如何打开IE浏览器。。。打开网页? ( 积分: 19 )

  • 主题发起人 主题发起人 文生
  • 开始时间 开始时间

文生

Unregistered / Unconfirmed
GUEST, unregistred user!
我用 shellexecute(handle,'open',pchar('http://www.163.com'),nil,nil,sw_show);

能打开网页,
1、当桌面上没有打开任何网页时,用上面的语句可以打开一个新的IE窗口,
2、当桌面上有打开的IE窗口时,用上面的语句时,当前活动的IE窗口会前进到163页面。
如:当前活动的IE窗口是baidu,当用上面的语句打开网页时,前活动的IE窗口会从baidu前进到163页面.
我想要的是,每次点击时,都重新打开IE窗口,
 
我用 shellexecute(handle,'open',pchar('http://www.163.com'),nil,nil,sw_show);

能打开网页,
1、当桌面上没有打开任何网页时,用上面的语句可以打开一个新的IE窗口,
2、当桌面上有打开的IE窗口时,用上面的语句时,当前活动的IE窗口会前进到163页面。
如:当前活动的IE窗口是baidu,当用上面的语句打开网页时,前活动的IE窗口会从baidu前进到163页面.
我想要的是,每次点击时,都重新打开IE窗口,
 
ShellExecute(Handle, 'open', PChar('C:/Program Files/Internet Explorer/IEXPLORE.EXE'), PChar('http://www.163.com'), nil, SW_SHOW);
 
给分,我亲爱的兄弟。哈
 
如果,IEXPLORE.EXE'不在C盘那怎么办呀?
 
只要你装过IE:
uses ComObj;

var
IEApp: Variant;
begin
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.163.com');
end;
 
ShellExecute(Handle, 'open', PChar('IEXPLORE.EXE'), PChar('http://www.163.com'), nil, SW_SHOW);
 
谢谢了,我们交个朋友吧,
我的QQ:372199229
 
多人接受答案了。
 
后退
顶部