Hardware Delphi

  1. Home
  2. Delphi
  3. Hardware
  4. Speakerdan belirlenen süre kadar ses çıkartmak
procedure SesCikar(Zaman : Integer);
begin
Asm mov al, 255; out 97, al; end;
Sleep(Zaman);
Asm mov al, 0; out 97, al; end;
end;