s 的 API 和资源。将资源文件----{$R myfist.res}加入。在 Begin 和 end 之间写下: readln; playsound(pchar('mywav'),hinstance,snd_sync or snd_resource); writeln('
演示结束!');
运行程序,将弹出一个标准 DOS 窗口,按任意键播放声音文件。是不是很 COOL 呢!我曾下载过一个播放器,在其安装目录下我发现有一"DOS 程序",用鼠 标双击它便弹出一个 DOS 窗口,显示 DOS 时代特有的画图,并有背景音乐!可 能就是用这个方法做的。
3.Delphi 本身自带了一个叫 Image Editor 的工具,同样可以编辑资源文本, 但和本文的方法比较,可得出下表: Image Editor Brcc32
BMP 光标 ICO AVI WAV 字符串
只支持 16 位色 黑白两色 只支持 16 位色 不支持 不支持 不支持
任意色 任意色 任意色 支持 支持 支持
上面说的是直接在程序本身的调用。其实资源文件还有其它用法。比如说在 你的程序携带其它文件,要用的时候释放出来。 例如: myexe exefile 'ha1.exe'//脚本文件 下面是自定义释放函数 ExtractRes,本例中使用如下: 就把 ha1.exe 以 new.exe 为名字保存到 C 盘根目录下了. var Res: TResourceStream; begin try Res := TResourceStream.Create(Hinstance, Resname, Pchar(ResType)); try Res.SavetoFile(ResNewName); Result := true; finally Res.Free; end; except Result := false; end; end;