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;
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
; end
;