Таймер

[dnskts]

Нужно в программе, написанной в Delphi7, за 2 минуты до наступления определенного времени (BossRespArray[TButton(sender).Tag].nexttime и BossRespArray[TButton(sender).Tag].nexttime2) воспроизвести звуковой файл (wav или mp3), лежащий в папке с программой, как это сделать?

procedure TForm1.ButtonAllOKClick(Sender: TObject);
begin
  BossRespArray[TButton(sender).Tag].nexttime := now + BossRespArray[TButton(sender).Tag].deltatime;
  BossRespArray[TButton(sender).Tag].nexttime2 := BossRespArray[TButton(sender).Tag].nexttime + BossRespArray[TButton(sender).Tag].deltatime + 120/86400;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  setlength(BossRespArray, 3);

  BossRespArray[0].name := '01';
  BossRespArray[1].name := '02';
  BossRespArray[2].name := '03';

  BossRespArray[0].pos := point(0, 0);
  BossRespArray[1].pos := point(0, 0);
  BossRespArray[2].pos := point(0, 0);

  BossRespArray[0].deltatime := 1800/86400;
  BossRespArray[1].deltatime := 1800/86400;
  BossRespArray[2].deltatime := 1800/86400;

  BossRespArray[0].nexttime := 0;
  BossRespArray[1].nexttime := 0;
  BossRespArray[2].nexttime := 0;

  BossRespArray[0].nexttime2 := 0;
  BossRespArray[1].nexttime2 := 0;
  BossRespArray[2].nexttime2 := 0;

end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
????????
end;
end;

[RAZOR3]

Можно через TMediaPlayer

[Пепел Феникса]

а можно через PlaySound.

[dnskts]

что через это я знаю) в этом-то и проблема, с кодом не поможете?

[VintProg]

Подключаем модуль mmSystem;

А дальше сам поймёшь

PlaySound;

[Grag]

  Uses mmSysytem;
..............................................................
  SoundName:=PChar(SoundPath+'Твой мьюзик');
  PlaySound(SoundName,0,SND_FILENAME);