为Authorware开发用户代码文档

Authorware5．0（以下简称AW5）是最流行的多媒体课件开发平台，功能强大，AW5本身包含有数百个函数和系统变量，而且还提供了用户代码文档接口（UseCodeDocument），以扩充其功能。在AW5的系统目录内，有多个扩展名为．ucd或．u32的文件，这就是用户代码文档文件，有Macromedia公司自己开发的，也有第三方厂商或个人为AW5开发的。其中．ucd文件是在16位程序环境下运行的，现在已不适用，而．u32文件是为在32位应用程序下开发的，本文所指的用户代码文档即这一种。以前，开发AW5的用户代码文档须在VC＋＋下开发，现在在Dephi下也可以开发了。其实．u32文件就是一个DLL动态链接库文件，不过还要加一个特殊的字符串资源才能被AW5识别，下面举例说明：

　　　假设我们要实现这样三个功能的函数：打开光驱、关闭光驱、能够让AW5生成的无标题栏窗体自由移动。好像AW5中还没有实现这些功能的函数，就让我们来补充一下。

　　　 启动Dephi5后，在“New”选项卡中选择“DLL”进入动态链接库开发环境。

　　　在单元文件中输入：

　　　librarymci；　

45398 www.it55.com it55学习IT知识，享受IT生活 4dfkjn

　　　 uses SysUtils，MMSystem，／／手工加入

　　　 windows，／／手工加入 vd;k;l www.it55.com rdfg

　　　 Messages，／／手工加入

www.it55.com

　　　 Classes； ｛＄R＊．RES｝ ｛＄rcdrom．res｝／／加入特殊字符串资源

IT资讯之家 www.it55.com

　　　 functionejectcdrom：Thandle；／／弹出光驱 免费资源www.it55.com

　　　 var sflj www.it55.com kg^&fgd

　　　 thishandle：Thandle；

　　　 begin IT资讯之家 www.it55.com

　　　 thishandle：Κgetforegroundwindow（）；

vd;k;l www.it55.com rdfg

　　　 result：ΚmciSendString（′Setcdaudiodooropenwait′，nil，0，thishandle）； http://www.it55.com/

　　　 end； 免费资源www.it55.com

　　　 exports ejectcdrom； it55.com

　　　 functionclosecdrom：Thandle；／／关闭光驱 sflj www.it55.com kg^&fgd

　　　　var

sflj www.it55.com kg^&fgd

　　　 thishandle：Thandle； IT资讯之家 www.it55.com

　　　 begin

vd;k;l www.it55.com rdfg

　　　　thishandle：Κgetforegroundwindow（）；

免费资源www.it55.com

　　　 result：ΚmciSendString（′Setcdaudiodoorclosedwait′，nil，0，thishandle）； 免费资源www.it55.com

　　　 end；

　　　 exports closecdrom；

　　　 functionmovetitle：Thandle；／／移动窗体 vd;k;l www.it55.com rdfg

　　　 var 免费资源www.it55.com

　　　 thishandle：Thandle；

　　　 begin

　　　 thishandle：Κgetforegroundwindow（）；

　　　 result：ΚSendMessage（thishandle，WM－SYSCOMMAND，SC－MOVE＋HTCAPTION，0）

www.it55.com在线教程

　　　 end；

　　　 exports movetitle； IT资讯之家 www.it55.com

　　　 begin end． sflj www.it55.com kg^&fgd

www.it55.com在线教程

（编辑：IT资讯之家 www.it55.com）