Показать сообщение отдельно
  #5  
Старый 30.08.2007, 21:12
Аватар для zip000
zip000 zip000 вне форума
Начинающий
 
Регистрация: 24.07.2007
Сообщения: 194
Репутация: 25
По умолчанию

Artem28 стандартный таймер очень не точный, его лучше не использовать.

Код:
var
  LastTick : Cardinal;
  ThisTick : Cardinal;
const
  Interval = 10000; // 10 сек
..................
  LastTick := GetTickCount;
  while True do begin
    ThisTick := GetTickCount;
    if ThisTick - LastTick >= Interval then begin
      PlaySound('SomeSound.wav', 0, SND_FILENAME);
      LastTick := ThisTick;
    end;
  end;
Это бесконечный цикл в котором с интервалом Interval (в МИЛЛИСЕКУНДАХ) будет проигрываться звуковой файл. Если надо определенное количество раз то вот
Код:
var
  LastTick : Cardinal;
  ThisTick : Cardinal;
  PlayedTimes : Integer;
const
  Interval = 10000; // 10 сек
  TimesToPlay = 10; // скока раз воспроизвести
..................
  PlayedTimes := 0;
  LastTick := GetTickCount;
  while True do begin
    ThisTick := GetTickCount;
    if ThisTick - LastTick >= Interval then begin
      PlaySound('SomeSound.wav', 0, SND_FILENAME);
      PlayedTimes := PlayedTimes + 1;
      if PlayedTimes = TimesToPlay then
        Break;
      LastTick := ThisTick;
    end;
  end;
__________________
Не профи, но и не чайник . D6 - лучше не придумали. Пока.
Ответить с цитированием