mciSendString(PChar(Cmd), nil, 0, 0); проблема с пробелами в пути к файлу

[ArtGrek]

procedure TForm1.SendMCICommand(Cmd: string);
var
  RetVal: Integer;
  ErrMsg: array[0..254] of char;
begin
  RetVal := mciSendString(PChar(Cmd), nil, 0, 0);
  if RetVal <> 0 then
  begin
    {get message for returned value}
    mciGetErrorString(RetVal, ErrMsg, 255);
    MessageDlg(StrPas(ErrMsg), mtError, [mbOK], 0);
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  SendMCICommand('open waveaudio shareable');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  SendMCICommand('play "C:\NewFolder\NewSound.wav"');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  SendMCICommand('play "C:\New Folder\New Sound.wav"');
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  SendMCICommand('close waveaudio');
end;

Первая кнопка проигрывает, а вторая ошибка:

Указанное устройство не открыто или не опознаётся интерфейсом MCI.

Что можно зделать, что бы исправить это?

П.С. путей без пробелов избежать не удастся.

[Lasur]

Тут предлагаются два метода решения. Попробуй, может поможет.

[ArtGrek]

Спасибо, я это видел, но мне нужна именно эта функция, для одновременного воспроизведения двух звуков

[Lasur]

_ вместо пробелов пробовал?

[ArtGrek]

так в том то и дело, я ведь не смогу пользователям запретить пути с пробелами ...

[GunSmoker]

Какой-то у вас странный синтаксис команд. Документация говорит иное.

[ArtGrek]

хм, что я не понял
код есть на многих сайтах, говорят что работает, это так и есть, но с пробелами проблема

GunSmoker
то что вы дали я перевел и прочёл, но пока не соображу о чем вы

[GunSmoker]

MCI - это динозавр. Он разработан в далёкие времена даже не 16-битных Windows, а OS/2 и работает по её логике.

Там нет даже семантики DOS с кавычками.

Ему не пришёл капут в Windows практически по одной причине: это удобный способ закрывать и открывать лоток CD. Я почти 100% серьёзно. Это сказал разработчик аудио-подсистемы Windows.

Итого, я бы посмотрел в сторону чего понормальнее.

Но если охота с MCI - см. в сторону команды open и определения псевдонима для файла (alias). Тогда в play будет указываться alias. Не уверен, что там с путями.

[Dimo10xs]

Используй GetShortPathName чтобы получить короткий путь