客服电话
APP下载
迪恩网络APP
随时随地掌握行业动态
官方微信
扫描二维码
关注迪恩网络微信公众号
|
Delphi打开网址链接的几种方法
1、使用shellapi打开系统中默认的浏览器 首先需在头部引用 shellapi单元即在uses中添加shellapi，这里我们需要知道有3个api函数可以运行可执行文件WinExec、ShellExecut和CreateProcess。 下面为 ShellExecute的标准用法 ShellExecute(Application.Handle, nil, 'http://www.baidu.com', nil, nil, SW_SHOWNORMAL); 从左往右开始，Application.Handle代表应用程序主窗口作为windows消息窗口的父窗口；第一个nil为执行默认“open”操作；'http://www.baidu.com'是要打开的网址，一般为打开应用程序的名称；第二个nil代表若上一个是个可执行文件则指定命令行参数，不然为nil；第三个nil用于指定默认目录；SW_SHOWNORMAL代表程序初始化窗口显示的方式，该方式为用原来大小和方式显示，并进行活动状态。 其实 ShellExecute(Application.Handle, nil, 'http://www.baidu.com', nil, nil, SW_SHOWNORMAL);是ShellExecut的特殊用法，当'http://www.baidu.com'这里不是应用程序名称时，是http：协议参数格式时，该函数将打开默认浏览器的兵连接到指定url地址，若用户安装多个浏览器，将另外根据注册表中设置打开哪个 2：用IE浏览器打开的3种方法： 方法1：ShellExecute(Application.Handle, 'open','Iexplore.exe','http://www.baidu.com',nil,SW_SHOWNORMAL); 方法2： {uses SHDocVw;} 插入个按键，其按下函数如下： var IE : OleVariant; begin IE := CoInternetExplorer.Create; IE.Visible := True; IE.Navigate2('http://www.baidu.com'); end; 方法3： {uses comobj;} var Ie:Variant begin Ie:=CreateOleObject('InternetExplorer.Application'); Ie.visible:=True; Ie.left:=300; Ie.top:=200; Ie.height:=400; Ie.width:=600; Ie.menubar:=0; //隐藏菜单栏 Ie.toolbar:=0; //隐藏工具栏 Ie.addressbar:=0; //隐藏地址栏 // Ie.statubar:=0; //不可调整大小 Ie.resizable:=0; Ie.navigate(URL); end; begin OpenInIe('http://www.baidu.com'); end; 3、用delphi中自带的WebBrowser控件 WebBrowser1.Navigate('http://www.baidu.com'); //WebBrowser1.Navigate('...'); //打开指定页面
|
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
六六分期app的软件客服如何联系？不知道吗？加qq群【895510560】即可！标题：六六分期
今天小编告诉大家如何处理win10系统火狐flash插件总是崩溃的问题，可能很多用户都不知
今天小编告诉大家如何对win10系统删除桌面回收站图标进行设置，可能很多用户都不知道
今天小编告诉大家如何对win10系统电脑设置节能降温的设置方法，想必大家都遇到过需要
我们在使用xp系统的过程中,经常需要对xp系统无线网络安装向导设置进行设置，可能很多
今天小编告诉大家如何处理win7系统玩cf老是与主机连接不稳定的问题，可能很多用户都不
电脑对日常生活的重要性小编就不多说了，可是一旦碰到win7系统设置cf烟雾头的问题，很
我们在日常使用电脑的时候，有的小伙伴们可能在打开应用的时候会遇见提示应用程序无法
今天小编告诉大家如何对win7系统打开vcf文件进行设置，可能很多用户都不知道怎么对win
今天小编告诉大家如何对win10系统s4开启USB调试模式进行设置，可能很多用户都不知道怎
请发表评论