Changeset 280 for CoolAudio/Systems/UAudioSystemMPlayer.pas

Timestamp:

Oct 5, 2011, 12:40:56 PM (13 years ago)

Author:

george

Message:

• Added: Support for play, stop, pause, seek of Windows mmsystem backend.

File:

• CoolAudio/Systems/UAudioSystemMPlayer.pas (modified) (2 diffs)

CoolAudio/Systems/UAudioSystemMPlayer.pas

@@ -105 +105 @@
   tmps := GetEnvironmentVariable('PATH');
   repeat
-    I := pos(':', tmps);
+    I := Pos(PathSeparator, tmps);
     if I = 0 then I := Length(tmps);
     tmppath := IncludeTrailingPathDelimiter(Copy(tmps, 0, I - 1)) + MPlayerExecutableName;
@@ -118 +118 @@
 begin
   inherited Create;
-  FPath := '';
+  FPath := FindPath;
 end;