Delphirus - прграммирование на delphi
   Все о delphi Delphirus - прграммирование на delphi
blocks.gif
Навигация
 

Главная
Статьи
Базы данных
Графика
Защита
Интернет
Система
Тексты
Мультимедиа
Файлы
Формы и окна
Другое
Советы
Базы данных
Графика
Интернет
Мультимедиа
Система
Тексты
Файлы
Файлы
Исходники
Компоненты
Инфо
Поиск по сайту
Обратная связь
Самое популярное
Аккаунт
Карта сайта

 
 
 

Советы по delphi \ Мультимедиа \ Аудио \ Заставить динамик пикнуть несколько раз с задержкой между сигналами, не зависящей от частоты процессора

Заставить динамик пикнуть несколько раз с задержкой между сигналами, не зависящей от частоты процессора

Нужно воспользоваться следующей процедурой:

procedure Delay(ms : longint);
{$IFNDEF WIN32}
var
  TheTime : LongInt;
  {$ENDIF}
begin
  {$IFDEF WIN32}
  Sleep(ms);
  {$ELSE}
  TheTime := GetTickCount + ms;
  while GetTickCount < TheTime do
    Application.ProcessMessages;
  {$ENDIF}
end;

А воспользуемся ею, например, в обработчике нажатия кнопки:

procedure TForm1.Button1Click(Sender: TObject);
begin
  MessageBeep(word(-1));
  Delay(200);
  MessageBeep(word(-1));
  Delay(200);
  MessageBeep(word(-1));
end;

Название: Заставить динамик пикнуть несколько раз с задержкой между сигналами, не зависящей от частоты процессора
Дата публикации: 2004-03-21 (2800 Прочтено)

 
 

 

Page generation 0.032 seconds