如何用Delphi调用IE打开网页
2009-12-07 09:41
381 查看
www.u8686.com-信息发布平台
如何用Delphi调用IE打开网页
//调用相应程序打开
uses ShellAPI;
procedure TForm1.Button1Click(Sender: TObject);
begin
//用IE打开
ShellExecute(Handle, 'open', 'IExplore.EXE', 'about:blank', nil, SW_SHOWNORMAL);
//用火狐打开
ShellExecute(Handle, 'open', 'firefox.exe', 'about:blank', nil, SW_SHOWNORMAL);
//用默认浏览器打开
ShellExecute(Handle, 'open', 'Explorer.exe', 'about:blank', nil, SW_SHOWNORMAL);
end;
//另一种调用IE打开的方法
uses ComObj;
procedure TForm1.Button1Click(Sender: TObject);
procedure OpenInIE(aURL: string);
var IE: Variant;
begin
IE := CreateOleObject('InternetExplorer.Application');
IE.Visible := true;
IE.Navigate(aURL);
end;
begin
OpenInIE('www.132435.com');
end;
//第二种方法可以有更多控制
uses ComObj;
procedure TForm1.Button1Click(Sender: TObject);
procedure OpenInIE(aURL: string);
var IE: Variant;
begin
IE := CreateOleObject('InternetExplorer.Application');
IE.Visible := true; //可见
IE.left := 0;
IE.top := 0;
IE.height := 600; //高度
IE.width := 800; //宽度
IE.menubar := 0; //取消菜单栏
IE.addressbar := 0; //取消地址栏
IE.toolbar := 0; //取消工具栏
IE.statusbar := 0; //取消状态栏
IE.resizable := 0; //不允许用户改变窗口大小
IE.Navigate(aURL);
end;
begin
OpenInIE('www.XXX.com');
end;
如何用Delphi调用IE打开网页
//调用相应程序打开
uses ShellAPI;
procedure TForm1.Button1Click(Sender: TObject);
begin
//用IE打开
ShellExecute(Handle, 'open', 'IExplore.EXE', 'about:blank', nil, SW_SHOWNORMAL);
//用火狐打开
ShellExecute(Handle, 'open', 'firefox.exe', 'about:blank', nil, SW_SHOWNORMAL);
//用默认浏览器打开
ShellExecute(Handle, 'open', 'Explorer.exe', 'about:blank', nil, SW_SHOWNORMAL);
end;
//另一种调用IE打开的方法
uses ComObj;
procedure TForm1.Button1Click(Sender: TObject);
procedure OpenInIE(aURL: string);
var IE: Variant;
begin
IE := CreateOleObject('InternetExplorer.Application');
IE.Visible := true;
IE.Navigate(aURL);
end;
begin
OpenInIE('www.132435.com');
end;
//第二种方法可以有更多控制
uses ComObj;
procedure TForm1.Button1Click(Sender: TObject);
procedure OpenInIE(aURL: string);
var IE: Variant;
begin
IE := CreateOleObject('InternetExplorer.Application');
IE.Visible := true; //可见
IE.left := 0;
IE.top := 0;
IE.height := 600; //高度
IE.width := 800; //宽度
IE.menubar := 0; //取消菜单栏
IE.addressbar := 0; //取消地址栏
IE.toolbar := 0; //取消工具栏
IE.statusbar := 0; //取消状态栏
IE.resizable := 0; //不允许用户改变窗口大小
IE.Navigate(aURL);
end;
begin
OpenInIE('www.XXX.com');
end;
相关文章推荐
- Delphi调用IE打开网页
- Delphi调用IE 火狐 打开网页
- Delphi调用IE打开网页
- WinForm 如何打开IE的HTML网页
- C# 调用IE打开网页链接 or 直接使用默认浏览器打开网页链接
- 如何打开web Service的远程IE调试调用
- 如何在Delphi中调用网页中的JavaScript
- 安装Win8.1系统桌面上只有回收站没有IE图标如何打开网页
- Delphi控件IE窗口打开网页
- 如何保持网页打开速度不受JS调用
- 调用C盘ie打开网页
- 如何打开web Service的远程IE调试调用
- 如何禁止ie打开本地网页文件时的安全提示
- IE如何让网页链接打开本地程序
- C#直接调用IE打开指定的网页文件
- 高手分享:快速处理IE如何打开网页的问题——认证系统
- Delphi获取所有打开的IE窗口的网页源码
- 如何在WebBrowser打开的网页链接后直接在WebBrowser打开而不是新弹出一个IE窗口来打开
- 如何打开web Service的远程IE调试调用