Changeset 285 for trunk/Packages/CevoComponents/Sound.pas

Timestamp:

Sep 30, 2020, 12:34:51 PM (4 years ago)

Author:

chronos

Message:

• Modified: Suppress text console output from sound commands.

File:

• trunk/Packages/CevoComponents/Sound.pas (modified) (2 diffs)

trunk/Packages/CevoComponents/Sound.pas

@@ -113 +113 @@
 begin
   Result := '';
+  // Try ffplay
+  if (Result = '') then
+    if (FindDefaultExecutablePath('ffplay') <> '') then
+      Result := 'ffplay -autoexit -nodisp -loglevel quiet';
   // Try play
-  if (FindDefaultExecutablePath('play') <> '') then
-    Result := 'play';
+  if (Result = '') then
+    if (FindDefaultExecutablePath('play') <> '') then
+      Result := 'play -q';
   // Try aplay
-  if (result = '') then
+  if (Result = '') then
     if (FindDefaultExecutablePath('aplay') <> '') then
       Result := 'aplay -q';
@@ -136 +141 @@
     if (FindDefaultExecutablePath('pacat') <> '') then
       Result := 'pacat -p';
-  // Try ffplay
-  if (Result = '') then
-    if (FindDefaultExecutablePath('ffplay') <> '') then
-      result := 'ffplay -autoexit -nodisp';
   // Try cvlc
   if (Result = '') then
     if (FindDefaultExecutablePath('cvlc') <> '') then
-      result := 'cvlc -q --play-and-exit';
+      Result := 'cvlc -q --play-and-exit';
   // Try canberra-gtk-play
   if (Result = '') then