下面我们来试验一下:新建一工程,将唯一的一个Form删除,然后修改工程文件。增加一句{$Apptype console},在uses子句中加入mmsystem,并将其它引用单元删掉。将Begin和end之间语句删掉。至此,我们就可和Turbo PASCAL下编程序一样,且还可以调用windows的API和资源。将资源文件----{$R myfist.res}加入。在Begin和end之间写下:writeln('演示程序,按任意键开始!');readln;playsound(pchar('mywav'),hinstance,snd_sync or snd_resource);writeln('演示结束!');运行程序,将弹出一个标准DOS窗口,按任意键播放声音文件。是不是很COOL呢!RES是realesoft的缩写,代表创新、实用、贴近客户,真正为客户创造价值。