Форум: "Основная";
Текущий архив: 2003.07.07;
Скачать: [xml.tar.bz2];

Вниз

Как заставить встроеный динамик пищать   Найти похожие ветки 

← →
OlegM   (2003-06-25 09:35) [0]

Привет всем!
Помню где-то видел но сейчас найти не могу, подскажите кто знает как это сделать.

---

← →
McSimm2   (2003-06-25 09:36) [1]

beep ??

---

← →
McSimm2   (2003-06-25 09:38) [2]

Млин - динамик .... тады так :

Procedure Sound(Duration: Integer; Freq: Word);
var
Ver: TOsVersionInfo;
begin
Ver.dwOSVersionInfoSize := SizeOf(Ver);
GetVersionEx(Ver);
if ver.dwPlatformId = VER_PLATFORM_WIN32_NT then
Windows.Beep(Duration, Freq)
else begin
asm
mov al,0b6H
out 43H,al
mov ax,Freq
out 42h,al
ror ax,8
out 42h,al
in al,61H
or al,03H
out 61H,al
end;
sleep(Duration);
asm
in al,61H
and al,0fcH
out 61H,al
end;
end;
end;



---

← →
Lord Warlock   (2003-06-25 09:39) [3]

Он не всегда работает

---

← →
McSimm2   (2003-06-25 09:42) [4]

зависит от платформы

---

← →
OlegM   (2003-06-25 09:46) [5]

Процедурка работает в Win2000, а не скажите в 98 потянет а то пока негде проверить

---

← →
McSimm2   (2003-06-25 09:49) [6]

да

---

← →
OlegM   (2003-06-25 09:52) [7]

Спасибочки

---

← →
delphimun   (2003-06-25 10:18) [8]

Оно и в Досе потянет

---

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

Форум: "Основная";
Текущий архив: 2003.07.07;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.007 c