如何检测IE和NetScape?(200分)

  • 主题发起人 主题发起人 peng_qs
  • 开始时间 开始时间
P

peng_qs

Unregistered / Unconfirmed
GUEST, unregistred user!
各位大侠:
有没有哪位高手知道如何检测用户机器上是否安装有可以正常使用的
IE和Netscape浏览器.检测的依据和标准是什么?注册表?
我还想知道它们分别装在什么地方?因为我需要分别在它们的目录下加
外挂程序.先多谢各位关注!!!
 
注册表应该可以,找找把
 
1. if (navigator.appName=="Netscape") document.write("Netscape")
else document.write("IE")

2. nameflag = (document.layers)? true:false
if (nameflag) document.write("Netscape")
else document.write("IE")
 
navigator屬性:
appName "Netscape" , "MSIE"
appVersion
language "en"英語 , "zh_CN"大陸地區的中文
platform 瀏覽器的平台 win32,win16,Mac,unix...

 
xie ke说得对,
用纯脚本就可以实现。

nameflag = (document.layers)? true:false
if (nameflag) document.write("Netscape")
else document.write("IE")
 
这是我以前编写的程序NetMonitor中的一部分。
用注册表来判断机器安装了那种浏览器和路径!
//寻找浏览器
Procedure FindBrowser;
var Reg: TRegistry;
res: string;
begin
reg:=tregistry.Create;
try
reg.rootkey:=HKEY_LOCAL_MACHINE;
//判断ie是否存在
if reg.openkeyreadonly('Software/Microsoft/Windows/CurrentVersion/App Paths/IEXPLORE.EXE') then
begin
Res:=reg.readstring('');
FileDetails.AboutFile:=Res;
// IePath:=FileDetails.FilePath;
// IeName:=FileDetails.InternalName;
IeVer:=copy(FileDetails.ProductVersion,1,4);
IeExist:=True;
end;
reg.CloseKey;

//判断netscape是否存在
reg.rootkey:=HKEY_LOCAL_MACHINE;
if reg.openkeyreadonly('Software/Microsoft/Windows/CurrentVersion/App Paths/Netscape.exe') then
begin
Res:=reg.readstring('');
FileDetails.AboutFile:=Res;
// NetscapePath:=FileDetails.FilePath;
// NetscapeName:=FileDetails.InternalName;
NetscapeVer:=copy(FileDetails.ProductVersion,1,4);
NetscapeExist:=True;
end;
finally
reg.CloseKey;
reg.free;
end;
if IeExist or NetscapeExist then
begin
MonitorTimer.Enabled:=True;
IconTimer.Enabled:=True;
MailTimer.Enabled:=True;
end
else
begin
MonitorTimer.Enabled:=False;
IconTimer.Enabled:=False;
MailTimer.Enabled:=False;
end;
end;
 
接受答案了.
 
后退
顶部