admin管理员组文章数量:1516870
打开网页
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);varIE: Variant;beginIE := CreateOleObject('InternetExplorer.Application');IE.Visible := true;IE.Navigate(aURL);end;
beginOpenInIE('www.132435');
end;//第二种方法可以有更多控制
procedure TForm1.Button1Click(Sender: TObject);procedure OpenInIE(aURL: string); //need uses ComObj;
varIE: Variant;beginIE := 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;
beginOpenInIE('');
end;
分类: 18.Delphi 其他小技巧本文标签： 打开网页
版权声明：本文标题：打开网页 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：https://www.betaflare.com/biancheng/1701375786a388059.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。
发表评论