Советы по Delphi

         

Звук через PC Speaker


Nomadic публикует следующий код:

    procedure TForm1.mybeep(Tone: Word; Delay: Integer);
begin
asm

mov   al,  0b6H
out   43H, al
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;

[001741]



Содержание раздела