请问如何判断浏览器是否安装了Flash插件?(50分)

  • 主题发起人 主题发起人 amiaos
  • 开始时间 开始时间
打开一个有flash的网页就行了!!
 
to windpray:这里是delphi论坛,我问的问题肯定是怎么用Delphi来判断,
您的回答太#@$#$#&$^#~@#
 
1/一般技持Ax的浏览器都可以看FLASH
2/如果有flah的PLUG IN它应该在C:/WINDOWS/SYSTEM/Macromed/Flash
(也应可以在d中用一个判断:))
3/你可以用以下代码查看,没有flash的plug-in 如果是ie会自己下载,netscape用提示
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script language="JavaScript">
<!--
function MM_checkPlugin(plgIn, theURL, altURL, autoGo) { //v3.0
var ok=false; document.MM_returnValue = false;
with (navigator) if (appName.indexOf('Microsoft')==-1) ok=(plugins && plugins[plgIn]);
else if (appVersion.indexOf('3.1')==-1) { //not Netscape or Win3.1
if (plgIn.indexOf("Flash")!=-1 && window.MM_flash!=null) ok=window.MM_flash;
else if (plgIn.indexOf("Director")!=-1 && window.MM_dir!=null) ok=window.MM_dir;
else ok=autoGo; }
if (!ok) theURL=altURL; if (theURL) window.location=theURL;
}
//-->
</script>
</head>

<body bgcolor="#FFFFFF" onLoad="MM_checkPlugin('Shockwave Flash','','file:///E%7C/Macromedia/Dreamweaver%203/ReadMe.htm',false);return document.MM_returnValue">
</body>
<script name="Used by MM_checkPlugin" language="javascript">
<!--
with (navigator) if (appName.indexOf('Microsoft')!=-1 && appVersion.indexOf('Mac')==-1) document.write(''+
'<scr'+'ipt language="VBScript">/nOn error resume next/n'+
'MM_dir = (IsObject(CreateObject("SWCtl.SWCtl.1")) Or IsObject(CreateObject("Macromedia.ActiveShockwave.1")))/n'+
'MM_flash = NOT IsNull(CreateObject("ShockwaveFlash.ShockwaveFlash"))/n</scr'+'ipt>');
//-->
</script>
</html>

3/其它的我就不知道了!
4/等等高手吧!
 
噢!!给....了!!
白发了一个小时了!!
白天上dfw真是太:(((((((
我给你email吧!!
 
用 CreateWindow 测试一下,Flash 的ProgID 是:ShockwaveFlash.ShockwaveFlash

HWND hWnd = ::CreateWindow("AtlAxWin", "ShockwaveFlash.ShockwaveFlash",
WS_CHILD|WS_VISIBLE, 0, 0, 500, 400, hParent, NULL,
::GetModuleHandle(NULL), NULL);
 
多人接受答案了。
 
后退
顶部