|
实例分析：
1） 获取用户计算机的机器码
新建一个“HardKey.a6p”文件，在流程上拖入一个计算图标，并命名为“获得机器码”，在计算图标里写入以下代码：
ResizeWindow(320,160) ---设置屏幕演示大小
SetWindowText(WindowHandle,"获取本机机器码") ---设置窗口标题
mem2 := AllocMem(1)
GetVolumeInformation("c:\\","",30,mem2,256,"","",30)
HardSerialNumber:=mem2
FreeMem(mem2)
其中SetWindowText是窗口标题设置函数，封装于Winapi.u32，它是Authorware 6.0的一个附带扩展函数库，在Authorware
6.0的安装根目录下可以找到。AllocMem、FreeMem这两个函数是封装于memtools.u32的内存分配函数，memtools.u32也是Authorware
6.0的一个附带扩展函数库。本代码中的关键函数就是GetVolumeInformation，它也是Winapi.u32的函数一员，用于实现对硬盘某分区序列号的获取，并返回一个10进制的序列号。
2） 设计程序背景图
在1）中我们建立了一个自定义变量“HardSerialNumber”来记录读取出来的序列号，即我们所谓的机器码，程序背景图设计如下图6.20所示：
图6.20 背景图的设计
这里要注意要把显示图标“显示机器码”的显示属性“Update Displayed
Variables”选项选中，这样变量才会动态改变。
|
