authorware函数

--authorware常用函数
一、播放器
CDPlay(track,FALSE) 声音播放CDPlay() 声音停止
if Checked then
CDPause()
else
CDResume()
end if 声音暂停
if track>1 then
track:=track-1
else
track:=CDTracks()
end if
CDPlay(track,FALSE) 上一曲
if track track:=track+1
else
track:=1
end if
CDPlay(track,FALSE) 下一曲
CDStop()
CDEject()
Quit() 退出声音播放
二、音乐播放和暂停
if x=l then
mediapause(IconID@"音乐",TRUE) x:=0
else
mediaplay(IconID@"音乐")
x:=1
end if
三、显示日期和时间
今天是{FullDate}
现在的时间是{FullTime}
四、计算机图标返回到哪里
GoTo(IconID@"鸟叫")
五、调用其它应用程序
关闭源程序打开新窗口
JumpOut("down\\\\msjavx86.exe")
或调用IE
JumpOutReturn( "C:\\\\Program Files\\\\Internet Explorer\\\\IEXPLORE") 其它程序
JumpFile(FileLocation^"看守所.exe")
六、AUTHORWARE中调用网页文件的几种方法
1 使用控件。

2 使用WebXtra插件。

3 使用Budapi中的函数baOpenURL( URL , State )，要求你的Authorware文件夹中有Budapi.u32。

使用时先导入函数baOpenURL().如：
baOpenURL( "hpage\\\\bus.htm", 1 )
4 使用OpenURL.x32。

确保你的Xtas文件夹（或其子文件夹）中包含OpenURL.x32，不用导入函数，可以直接使用
gsOpenURL( ""; )来打开网页。

如：gsOpenURL( "hpage\\\\index.htm" ) [hpage为文件夹目录，若在当前页直接输入，hpage\\\\不要了]q 我是这样的
gsOpenURL( "index.htm" )
[OpenURL.x32文件存放在主站]
5 使用用JumpOutReturn（“程序名”，“文件的路径与文件名”）函数实现。

如：JumpOutReturn("",FileLocation^"hpage\\\\bus.htm") JumpOutReturn("","")
推荐使用方法4、5。

openURL.x32是免费软件，可以自由使用；JumpOutReturn为系统函数。

七、在Authorware课件里调用网页
我们在做Authorware多媒体课件时，有时需要调用网页文件。

笔者学校的一位老师在上《数字与编码》一课时，要在Authorware多媒体课件里调用学校网站的留言板。

有几种方法可以实现:一种是使用
5、WBE浏览器控件法
CallSprite(@"浏览器", #navigate ,FileLocation^"问题.ppt"
这个道理上述方法是一样的
以上两种方法似乎为本人首次使用。

6、将PPT转换为SWF或EXE，再行插入或调用。

比较好的转换软件有：FlashPaper和PowerCONVERTERXP 缺点不能运行链接或视频
7、发布为网页插入。

或用Microsoft Producer编辑加工发布后再行插入。

8、转换为视频再插入。

网上有将PPT转换为视频的技术文章，但这样做好象很少。

9、在authorware中7.0，选择转换工具，powerpoint转换到authorware xml，按提示操作
九、aw中插入网页的方法
1、使用WBE浏览器控件，这是最常用的一种方法
2、使用WebXtra插入
3、使用系统函数
如JumpOutReturn("",FileLocation^"111.htm"
JumpOutReturn("",""
4、使用外部函数插入
如MJSAPI.U32中的M_OpenURL(""或Budapi.u32中的baOpenURL("", 1 ) 另外，可下载OpenURL.x32后，用gsOpenURL(""插入
5、在FLSAH用getURL链接好后插入，这是一有用的方法。

6、外部文件链接法
在外部文件做好链接，如EXCEL、WORD、RTF、PPT等等。

如果需要的话，这样做也是可以的。

7、嵌入外部程序法
嫌控件设置麻烦，可直接将IE窗口嵌入AW中
十、调用网页文件插件
在前面放入一个webxtra插件，在下面放入一个计算图标，并写入：
CallSprite(@"WebXtra2", #Navigate, FileLocation^"ftyx_0603\\\\2006030301\\\\Tourviewer_2006030301.html")
请问怎样设置DirectMedia Xtra相对路径的呢（必须用新插件覆盖原DirectMedia Xtra进行注册）
路径写法：.\\movie(文件夹)
十一、mid音乐加载
MidiLoop.u32加载路径
LoopMidi(FileLocation^"audio\\\\lgh02.mid")
十二、全屏加载方法
用AW制作课件时,有一个问题:那就是不能保证自己制作的课件能在不同分辨率的计算机上运行,有人有说可以用COVER函数啊,可以,但是如果计算机分辨率过大,那么在显示器的四周就会出现一圈白边或黑边,站长通过专研系统函数,找到了一个完美的解决方法,就是调用Altools.u32函数中的子函数"alChangeRes",
--//以下代码获取当前用户屏幕相关设置UserSetting:=alGetCurrentDispSet() UserSetting:=Replace("x","\r",UserSetting) --//以下代码保存当前用户的屏幕设置参数UserWidth:= GetLine(UserSetting,1) UserHeight:= GetLine(UserSetting,2) UserDepth:= GetLine(UserSetting,3) UserRefresh:=GetLine(UserSetting,4)
--//以下代码指定当前用户屏幕设置参数alChangeRes(1024,768,16,75)
--//以下代码隐藏Windows任务栏alHideTaskBar()
--//以下代码设定光盘程序演示窗口大小ResizeWindow(800,600)
--//以下代码使光盘程序居顶SetWindowPos(WindowHandle,-1 ,0,0,0,0,3)。