Delphi下调用windows.Beep(X,Y)在XP系统下正常，主板可以发出蜂鸣，但在Win7下就不行，原因是Win7下Beep的驱动默认是将蜂鸣发送到声卡而不是主板，所以Beep必须打开扬声器才能听到！

试过用winio驱动来发声，在win7下也不行，用法：

下载winio包，解压，需要用到winio.dll； winio.vxd;winio.sys 三个文件

delphi可以直接调用dll

function   InitializeWinIo():   BOOL;     stdcall;     external   'WinIO.dll ';
procedure  ShutdownWinIo();     stdcall;     external   'WinIO.dll ';
function   GetPortVal(wPortAddr:   WORD;     var   pdwPortVal:   DWORD;     bSize:   BYTE):   BOOL;     stdcall;     external   'WinIO.dll ';
function   SetPortVal(wPortAddr:   WORD;     dwPortVal:   DWORD;     bSize:   BYTE):   BOOL;     stdcall;     external   'WinIO.dll ';

...

InitializeWinIO();

...

 If   bWinIOInitialized   then
    begin
        GetPortVal($61,   dwValue,   1);
        dwValue   :=   dwValue   and   $FC;
        SetPortVal($61,   dwValue,   1);
    end;

...

ShutDownWinIO;