Текущий архив: 2002.11.14;
Скачать: CL | DM;

Вниз

Почему не работает Beep(800,100) под Win95?   Найти похожие ветки 

← →
comwad ©   (2002-09-12 05:09) [0]

Процедура Beep(800,100) модуля WinProcs прекрасно работает по
WinNT и Win2k.
Но почему не работает Beep(800,100) под Win95?
Молчит.
Спасибо.

---

← →
MBo ©   (2002-09-12 06:16) [1]

потому что не поддерживается

---

← →
RV ©   (2002-09-12 09:53) [2]

так попробуй

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;

---

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

Текущий архив: 2002.11.14;
Скачать: CL | DM;

Наверх

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