Скачать: CL | DM;

Звук на спикер   Найти похожие ветки 

← →
ShyricK ©   (2007-09-04 20:33) [0]

День добрый! Подскажите пжалуста как заставить спикер системника подавать сигналы разной частоты?

---

← →
Loginov Dmitry ©   (2007-09-04 21:09) [1]

Windows.Beep()

---

← →
Dib@zol ©   (2007-09-04 21:26) [2]

procedure ExBeep(Freq {Hz}, Duration {ms} : Word);
var
 OSV : OSVERSIONINFO;
begin
 OSV.dwOSVersionInfoSize := SIZEOF(OSVERSIONINFO);
 GetVersionEx(OSV);
 if OSV.dwPlatformId = 2 then Windows.Beep(Freq, Duration)
 else begin
   asm
     movzx ecx,Freq
     mov eax,1193180
     sub edx,edx
     div ecx
     mov ecx,eax
     mov al,182
     out 43h,al
     mov al,cl
     out 42h,al
     mov al,ch
     out 42h,al
     in al,61h
     or al,3
     out 61h,al
   end;
   sleep(Duration);
   asm
     in al,61h
     and al,0fch
     out 61h,al
   end;
 end;
end;

---

← →
Инс ©   (2007-09-04 21:31) [3]

> [2] Dib@zol ©   (04.09.07 21:26)

Это на XP ну никак не заработает :(( Правильный ответ - [1]

---

← →
Инс ©   (2007-09-04 21:33) [4]

А, тут еще и проверка на номер версии. Не заметил, сорри.

---

← →
Инс ©   (2007-09-04 21:35) [5]

Все равно лишнее. Функция beep из kernel32 есть на всех версиях Windows.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.015 c