Звук через PC Speaker procedure TForm1.mybeep(Tone: Word; Delay: Integer); begin asm mov   al,  0b6H out &nbsal mov ax,Tone out 42h,al ror ax,8 out 42h,al in    al,  61H or    al,  03H out   61H, al end; sleep(Delay); asm in    al,  61H and   al,  0fcH out   61H, al end; end;   « Предыдущая статья   Следующая статья »