演示地址：
http://www.qinai.de/viewthread.php?tid=820
添加方法：
1、进入系统设置–点击帖子管理–点击左侧的Discuz！代码.
2、在新增处添加rm,图标文件自己确定咯(6.0本身也有的：bb_rm.gif).点击"提交"按钮.
3、提交后会出现新的一栏rm 点击最右边的详情 进入代码编辑页面,输入以下代码:
复制内容到剪贴板
代码:
<object id="rmplayer" classid="clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA" width="600" height="450">
<param name="_ExtentX" value="15875">
<param name="_ExtentY" value="11906">
<param name="AUTOSTART" value="-1">
<param name="SHUFFLE" value="0">
<param name="PREFETCH" value="0">
<param name="NOLABELS" value="0">
<param name="SRC" value="{1}">
<param name="CONTROLS" value="imagewindow">
<param name="CONSOLE" value="kingege">
<param name="LOOP" value="0">
<param name="NUMLOOP" value="0">
<param name="CENTER" value="0">
<param name="MAINTAINASPECT" value="0">
<param name="BACKGROUNDCOLOR" value="#000000">
</object>
<br>
<object classid="clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA" width="537" height="22">
<param name="_ExtentX" value="7964">
<param name="_ExtentY" value="794">
<param name="AUTOSTART" value="0">
<param name="SHUFFLE" value="0">
<param name="PREFETCH" value="0">
<param name="NOLABELS" value="0">
<param name="CONTROLS" value="statusbar">
<param name="CONSOLE" value="kingege">
<param name="LOOP" value="0">
<param name="NUMLOOP" value="0">
<param name="CENTER" value="0">
<param name="MAINTAINASPECT" value="0">
<param name="BACKGROUNDCOLOR" value="#000000">
</object>
<img src="http://www.qinai.de/images/Qinaide/rmplayer.gif" width="63" height="22" alt="全屏" onclick="javascript:rmplayer.SetFullScreen()"><br>
<object classid="clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA" width="600" height="25">
<param name="_ExtentX" value="15875">
<param name="_ExtentY" value="661">
<param name="AUTOSTART" value="0">
<param name="SHUFFLE" value="0">
<param name="PREFETCH" value="0">
<param name="NOLABELS" value="0">
<param name="CONTROLS" value="controlpanel">
<param name="CONSOLE" value="kingege">
<param name="LOOP" value="0">
<param name="NUMLOOP" value="0">
<param name="CENTER" value="0">
<param name="MAINTAINASPECT" value="0">
<param name="BACKGROUNDCOLOR" value="#000000">
</object>
<script language="VBScript">
rmplayer.SetWantErrors(true)
rmplayer.SetWantMouseEvents(true)
luptime=0
ldntime=0
lsetime=0
Sub rmplayer_OnLButtonUp(ByVal nFlags, ByVal nX, ByVal nY)
luptime=timer()
End Sub
Sub rmplayer_OnLButtonDown(ByVal nFlags, ByVal nX, ByVal nY)
ldntime=timer()
if ((ldntime-luptime)<0.25) and ((ldntime-lsetime)>0.75) then
if rmplayer.GetFullScreen() then
rmplayer.SetOriginalSize()
else
rmplayer.SetFullScreen()
end if
lsetime=ldntime
end if
End Sub
</script>其中：
复制内容到剪贴板
代码:
http://www.qinai.de/images/Qinaide/rmplayer.gif是播放器右下脚"全屏播放!"的图片。按自己需要修改。也可以用我的。
在网上找个rm或者rmvb电影，测试下看看效果？
以上方法copy From baidu.com，并作修正.目前在discuz!里暂未见关于插入real全屏功能介绍。
若侵犯版权或相关法律，本人立即改正或删除。
[
本帖最后由 duguxi 于 2007-8-24 01:11 编辑 ]
