Changeset 18 for trunk/Sound.pas

Timestamp:

Jan 8, 2017, 11:30:16 AM (7 years ago)

Author:

chronos

Message:

• Fixed: Build on Windows.

File:

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

trunk/Sound.pas

@@ -13 +13 @@
   private
     {$IFDEF WINDOWS}
-    procedure OnMCI(var m: TMessage); message MM_MCINOTIFY;}
+    procedure OnMCI(var m: TMessage); message MM_MCINOTIFY;
     {$ENDIF}
   end;
@@ -58 +58 @@
   {$IFDEF WINDOWS}
   if FDeviceID <> 0 then
-    mciSendCommand(FDeviceID, MCI_CLOSE, MCI_WAIT, 0);}
+    mciSendCommand(FDeviceID, MCI_CLOSE, MCI_WAIT, 0);
   {$ENDIF}
   inherited Destroy;