<!-- by GaoLun and ccrun -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<SCRIPT LANGUAGE="JavaScript">
<!--
function Click()
{
window.event.returnValue = false;
}
document.oncontextmenu = Click;
function ID1_DoFSCommand(command, args)
{
if(command == "window" && args == "closeResult close")
{
document.getElementById('V1').innerHTML = '';
}
}
//-->
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
On Error Resume Next
Sub ID1_FSCommand(ByVal command, ByVal args)
Call ID1_DoFSCommand(command, args)
End Sub
</SCRIPT>
</head>
<body background="_bg4mgc.tmp" style="overflow:hidden" border= "0" topmargin="0" leftmargin="0">
<DIV ID="V1">
<object classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" id="ID1" width="400" height="400" align="middle">
<param name="movie" value="initflash.swf" />
<param name="quality" value="high" />
<param name="wmode" value="transparent" />
<param name="bgcolor" value="#ffffff" />
<param name="allowScriptAccess" value="sameDomain" />
<param name="scale" value="showall" />
</object>
</DIV>
</body>
</html>
播放透明flash (delphi)
4星 · 超过85%的资源 需积分: 34 127 浏览量
2013-05-12
23:00:57
上传
评论 1
收藏 244KB 7Z 举报 
flash.7z （17个子文件） 
模拟播放透明flash 
Untitled.rc 38B
Project1.exe 525KB Project1.res 876B Untitled.RES 1KB Unit1.dfm 535B Project1.cfg 434B Unit1.pas 3KB
target181.swf 6KB TMP2.$$$ 32B Unit2.dfm 1KB Unit2.dcu 6KB _QQMagicFlash.htm 1KB Unit2.pas 2KB Project1.dpr 300B TMP1.$$$ 32B Project1.dof 2KB Unit1.dcu 6KB
- 1
- 2
- 3
前往页