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

Вниз

beep   Найти похожие ветки 

← →
Юлиана   (2002-07-12 20:54) [0]

подскажите пожалуйста как выдать стандартный звуковой сигнал(как в досе).- у процедуры beep упразднили параметры, а мне необходима длительность и тон,а messagebeep выдает стандартный, но виндо-й сигнал

---

← →
LENIN INC   (2002-07-12 20:58) [1]

type
procedure Beep(Tone: Word; Delay: Integer);

//Функция подачи сигнала системным спикером
//Tone - тональность сигнала
//Delay - задержка сигнала
procedure TForm1.Beep(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;

//Вызов функции...
procedure TForm1.Button1Click(Sender: TObject);
begin
Beep(1000,1000);
end;

---

← →
Юлиана   (2002-07-12 21:01) [2]

спасибо огромное

---

← →
Anatoly Podgoretsky ©   (2002-07-12 21:27) [3]

Ты не указала ОС, поэтому возможно совет окажется бесполезным

---

← →
drpass ©   (2002-07-12 23:07) [4]

Только пришел, и сразу вижу конкретное извращение :)
Почему не написать вместо всей этой лабуды просто windows.beep(tone, delay)???

---

← →
mukha ©   (2002-07-12 23:12) [5]

drpass © (12.07.02 23:07)

Сигнал то нужен не Windows, а из сист.динамика.

---

← →
drpass ©   (2002-07-12 23:33) [6]

> mukha ©

Да нет, девушка же написала, что не может воспользоваться стандартной функцией Windows, так как та переопределена в Delphi. Я просто показал ей, как ее вызвать

---

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

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

Наверх

Память: 0.47 MB
Время: 0.017 c