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;