| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Почему не работает Beep(800,100) под Win95? [D5, D6, Win95/98, WinME, NT4, Win2k, WinXP]
comwad © (2002-09-12 05:09:00)Процедура Beep(800,100) модуля WinProcs прекрасно работает по
WinNT и Win2k.
Но почему не работает Beep(800,100) под Win95?
Молчит.
Спасибо.
RV (2002-09-12 09:53:00) [1]так попробуй
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;
MBo (2002-09-12 06:16:00) [2]потому что не поддерживается
| |
