widestring y string

[ecfisa]

Hola ebeltete.

Sería bueno que comentaras de que componente estas hablando así si alguién lo conoce te podrá informar. (creo que a eso se refería Casimiro)

Desconozco si Delphi 5 trae el componente TMediaPlayer, pero si lo trae:

Código Delphi [-]
procedure TForm1.btnPlayClick(Sender: TObject);
begin
 with MediaPlayer1 do
  begin
    FileName:= 'C:\ÉL ÁÑÓ DÉ MÍ VÍDÁ.mp3';
    Open;
    Play;
  end;
end
...
procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
  if MediaPlayer1.NotifyValue = nvSuccessful then
   MediaPlayer1.Close;
end;

Si no está disponible también podes usar la función API mciSendString:

Código Delphi [-]
procedure Reproducir(aFileName: string);
begin
  mciSendString('close media', nil,0, 0);
  mciSendString(PChar('open "' + aFileName + '" alias media'), nil, 0, 0);
  mciSendString('play media', nil, 0, 0);
end;
...
procedure TForm1.btnPlayClick(Sender: TObject);
begin
  Reproducir('C:\ÉL ÁÑÓ DÉ MÍ VÍDÁ.mp3');
end;

Como podrás ver en los ejemplos anteriores, con ninguno de estos tendrás problemas con los caracteres.

Saludos.