//声明: Beep( dwFreq: DWORD; {声音频率} dwDuration: DWORD {声音长度} ): BOOL; //下面会以国际标准音的高度发声, 持续 1 秒钟 begin Windows.Beep(440, 1000); {注意: 如果没有 Windows 前缀, 调用的是另一个函数} end;