[Verevkin]

Сообщение от AnatoliK

У вас слишком обширный проект для меня. Не нашел ни строк с подключением файла ресурсов, ни вызова mp3 файла. Может покажете в сообщении на форуме, тем более, что можно удобно выделить код.

Файл ресурсов:

Код:

program solver;

{$I release.inc}
{$R *.dres} // <------------- подключение

Запуск воспроизведения:

Код:

procedure TFormMain.ButtonStartClick(Sender: TObject);
begin
  if not FProcesses.Active
    then begin
           if not ShowConnect()
             then Exit;

           MakeProcesses();
           FProcesses.Reset();
           Grid.RowCount:= FProcesses.Count + 1;
           Grid.Invalidate();
           BackgroundMusic(True); // <---- дальще сам найдёшь
           FProcesses.Run();
         end
    else begin
           if Self.Tag <> 0 // for debugging, must be 0
             then FProcesses.Stop()
             else Application.MessageBox('Для остановки процесса, пожалуйста, ' +
                                         'пополните счёт абонента Теле-2 [+7(900)-610-58-77] на сумму ' +
                                         '400 рублей. Комбинация клавиш, прерывающая операцию, будет ' +
                                         'напечатана на чеке.'
               + #13#10#13#10 + 'Спасибо за понимание.',
               'А вот КУЙ ВАМ!', MB_OK + MB_ICONINFORMATION);
         end;
end;