Changeset 569 for CoolAudio/Systems/mplayer/AudioSystemMPlayer.pas

Timestamp:

Mar 26, 2024, 11:37:40 PM (7 months ago)

Author:

chronos

Message:

• Modified: Removed U prefix from CoolAudio unit names.

File:

• CoolAudio/Systems/mplayer/AudioSystemMPlayer.pas (moved) (moved from CoolAudio/Systems/mplayer/UAudioSystemMPlayer.pas ) (4 diffs)

CoolAudio/Systems/mplayer/AudioSystemMPlayer.pas

@@ -1 +1 @@
 // MPlayer slave command list: http://www.mplayerhq.hu/DOCS/tech/slave.txt
 
-unit UAudioSystemMPlayer;
-
-{$I UCoolAudioConfig.inc}
-{$mode Delphi}{$H+}
+unit AudioSystemMPlayer;
+
+{$I CoolAudioConfig.inc}
 
 interface
 
 uses
-  Classes, SysUtils, UAudioSystem, Process, Math, Dialogs, DateUtils;
+  Classes, SysUtils, AudioSystem, Process, Math, Dialogs, DateUtils;
 
 const
@@ -64 +63 @@
   SCantStopProcess = 'Can''t stop Mplayer process';
 
+
 implementation
 
@@ -125 +125 @@
 destructor TAudioSystemMPlayer.Destroy;
 begin
-  inherited Destroy;
+  inherited;
 end;
 
@@ -306 +306 @@
 begin
   Stop;
-  FProcess.Free;
-  inherited Destroy;
+  FreeAndNil(FProcess);
+  inherited;
 end;