Donde diablos está el error? Me sale un 'No MCI Device Open' pero no se porqué, hasta el MPlayer.Open todo correcto, pero luego justo la linia de después... error!
Código Delphi
[-]
procedure TMainFrm.ManualButtonBGItems3Click(Sender: TObject);
begin
if OpenSongDLG.Execute then
begin
if MPlayer.Mode <> mpStopped then
MPlayer.Stop;
MPlayer.FileName := OpenSongDLG.FileName;
MPlayer.Open;
TitleManualLBL.Caption := 'Títol: ' + ExtractFileName(MPlayer.FileName);
TitleManualLBL.Hint := MPlayer.FileName;
LengthManualLBL.Caption := 'Duració: '+
TimeToStr(FloatToDateTime(MPlayer.Length/86400000));
PositionManualLBL.Caption := 'Posició: 00:00:00';
PositionManualTB.Max := MPlayer.Length;
PositionManualTB.Frequency := Trunc(MPlayer.Length / 10);
ManPosTimer.Enabled := True;
MPlayer.Play;
end;
end;