diff --git a/components/playsoundpackage/latest_stable/uplaysound.pas b/components/playsoundpackage/latest_stable/uplaysound.pas index f3dcb170a..fd164dd53 100644 --- a/components/playsoundpackage/latest_stable/uplaysound.pas +++ b/components/playsoundpackage/latest_stable/uplaysound.pas @@ -56,7 +56,7 @@ type public { Public declarations } constructor Create(AOwner: TComponent); override; - destructor Destroy; reintroduce; + destructor Destroy; override; // This is the default method procedure Execute; procedure StopSound; @@ -110,6 +110,10 @@ begin if (Result = '') then if (FindDefaultExecutablePath('ffplay') <> '') then result := 'ffplay -autoexit -nodisp'; + // Try mpv + if (Result = '') then + if (FindDefaultExecutablePath('mpv') <> '') then + result := 'mpv --no-video --quiet'; // Try cvlc if (Result = '') then if (FindDefaultExecutablePath('cvlc') <> '') then