Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Звук Beep

Автор: Serhik_z 25.8.2007, 06:36

Звук Beep.
Можно в анимацию окна вставить повторяющийся звуковой сигнал Windows.Beep

Код


Form1.Hide;
AnimateWindow(Handle, 2000, AW_VER_POSITIVE, (Windows.Beep));// Плавное открытие формы
Form1.Show;

Автор: Snowy 25.8.2007, 08:19

Код


  Form1.Hide;
  PlaySound('.Default', 0, SND_ALIAS or SND_ASYNC or SND_LOOP);
  AnimateWindow(Handle, 2000, AW_VER_POSITIVE);
  PlaySound(nil, 0, 0);
  Form1.Show;

Вместо .Default можно указать любой стандартный звук из перечислнггых в HKEY_CURRENT_USER\AppEvents\Schemes\Apps\.Default
Например

Код

  Form1.Hide;
  PlaySound('SystemStart', 0, SND_ALIAS or SND_ASYNC or SND_LOOP);
  AnimateWindow(Handle, 3000, AW_VER_POSITIVE);
  PlaySound(nil, 0, 0);
  Form1.Show;