论坛风格切换切换到宽版
  • 3430阅读
  • 6回复

inno怎样获取系统默认的浏览器,并打开指定的网址 [复制链接]

上一主题 下一主题
离线guxiaoyu
 

发帖
36
金钱
360
威望
36
只看楼主 倒序阅读 0 发表于: 2014-06-06
inno怎样获取系统默认的浏览器,并打开指定的网址,安装后自动在桌面用默认浏览器生成快捷方式,打开快捷方式首页是我指定的网址

离线NotOrdinary

发帖
24
金钱
240
威望
24
只看该作者 1 发表于: 2014-06-06
你在安装包需要的材料里面写一个快捷方式,然后安装完成放在桌面就好了。
离线guxiaoyu

发帖
36
金钱
360
威望
36
只看该作者 2 发表于: 2014-06-06
回 1楼(NotOrdinary) 的帖子
NotOrdinary:你在安装包需要的材料里面写一个快捷方式,然后安装完成放在桌面就好了。 (2014-06-06 14:25) 

那我怎样获取到本机已经安装的浏览器是哪个浏览器呢
离线NotOrdinary

发帖
24
金钱
240
威望
24
只看该作者 3 发表于: 2014-06-06
回 2楼(guxiaoyu) 的帖子
guxiaoyu:那我怎样获取到本机已经安装的浏览器是哪个浏览器呢 (2014-06-06 14:32) 

这个我个人觉得不需要,如果是打开一个网址是默认用默认浏览器打开的,你自己不需要检测的
离线gnatix

发帖
7696
金钱
-8279
威望
-828
只看该作者 4 发表于: 2014-06-07
楼上的说得没错,直接运行一个 URL 文件时系统会自动用默认浏览器打开,不必要检测。

如果你一定要探测默认浏览器是那个,可以参考我下面的这个代码。64 系统我没有测试过。


[Code]
function getDefaultBrowser: string;
var sCmd: string;
begin
  Result:= '';
  if RegQueryStringValue(HKEY_CLASSES_ROOT, 'HTTP\shell\open\command', '', sCmd) then
    Result:= Copy(sCmd, 1, Length(sCmd)-5);
end;

procedure InitializeWizard();
begin
  MsgBox('默认浏览器路径: ' + getDefaultBrowser, mbInformation, MB_OK);
end;

离线guxiaoyu

发帖
36
金钱
360
威望
36
只看该作者 5 发表于: 2014-06-10
回 3楼(NotOrdinary) 的帖子
NotOrdinary:这个我个人觉得不需要,如果是打开一个网址是默认用默认浏览器打开的,你自己不需要检测的 (2014-06-06 16:59) 

多谢,确实是像您说的不需要
离线guxiaoyu

发帖
36
金钱
360
威望
36
只看该作者 6 发表于: 2014-06-10
回 4楼(gnatix) 的帖子
gnatix:楼上的说得没错,直接运行一个 URL 文件时系统会自动用默认浏览器打开,不必要检测。 如果你一定要探测默认浏览器是那个,可以参考我下面的这个代码。64 系统我没有测试过。 ....... (2014-06-07 05:22) 

非常感谢