中科新闻网天下粉翅膀:Pascal 中，uses函数里怎样发出声音？
来源：百度文库 编辑：中科新闻网 时间：2024/04/28 18:00:57
Pascal 中，uses函数里怎样发出声音？
请给出一下源程序代码
要用pascal的
请给出一下源程序代码
要用pascal的
uses没听说能发声音
但是uses windows;以后
可以使用这个函数发声音（而且不用音响，强吧）
function Beep(dwFreq, dwDuration: DWORD): BOOL; stdcall;
参数 类型及说明
dwFreq Long，声音频率（从37Hz到32767Hz）。在windows95中忽略
dwDuration Long，声音的持续时间，以毫秒为单位。如为-1，表示一直播放声音，直到再次调用该函数为止。在windows95中会被忽略
返回值
Long，TRUE（非零）表示成功，否则返回零。会设置GetLastError
当然你也可以播放声音文件
首先是, uses不是函数, 它声明所用的单元, 我们一般称为uses子句. 其次, 如楼上所述, 可以用Beep. 另外, 如果不考虑频率, 可以用Write(#7), 它不用声明uses Windows也能用.