急用!!!怎么在Win9x下让Windows发声.(在线等.在线结贴)

Question

如题.
  急啊....

Answer 1

试一下这个:
// 在Win9X下让喇叭发声procedure BeepEx(const Freq: WORD = 1200; const Delay: WORD = 1);
const
  FREQ_SCALE = $1193180;
var
  Temp: WORD;
begin
  Temp := FREQ_SCALE div Freq;
  asm
    in al,61h;
    or al,3;
    out 61h,al;
    mov al,$b6;
    out 43h,al;
    mov ax,temp;
    out 42h,al;
    mov al,ah;
    out 42h,al;
  end;
  Sleep(Delay);
  asm
    in al,$61;
    and al,$fc;
    out $61,al;
  end;
end;

Answer 2

谢谢:回复人： GoldShield(金盾) 
  问题已解决.