Звук через Beeper

Приведенный ниже пример кода позволяет получить доступ к системному ди-
намику. В самом начале две процедуры напрямую работают с внешними устр-
ойствами.

Вывод в порт внешнего устройства с адресом-ADR, байта-data:

procedure
 OutPort(adr: word; data: byte); 
begin
 
  asm 
    mov dx,adr 
    mov al,data 
    out dx,al 
  end; 
end
; 

Ввод из порта внешнего устройства с адресом-ADR:

function
 InPort(adr: word):byte; 
begin
 
  asm 
    mov dx,adr 
    in al,dx 
    mov @result,al 
  end; 
end
; 

procedure
 TForm1.Button1Click(Sender: TObject); 
var

  B: Byte; 
  N: Word;
  M: Word; 
begin
 
  B := Inport ($61); 
  For N := 1 to 200 do
    begin
      {n:=200 - длительность звучания} 
      {m:=700 - частота звучания} 
      for m:=1 to 700 do Outport($61,b and not(2)); {установить 2-ой бит в 0} 
      for m:=1 to 700 do Outport($61,b or 2); {установить 2-ой бит в 1} 
    end; 
end
;

Другое по теме:

• Как воспроизвести wav-файл из ресурса (в EXE)
• Работа с микрофоном
• Изменение громкости