Changeset 18 for trunk/Sound.pas
- Timestamp:
- Jan 8, 2017, 11:30:16 AM (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Sound.pas
r17 r18 13 13 private 14 14 {$IFDEF WINDOWS} 15 procedure OnMCI(var m: TMessage); message MM_MCINOTIFY; }15 procedure OnMCI(var m: TMessage); message MM_MCINOTIFY; 16 16 {$ENDIF} 17 17 end; … … 58 58 {$IFDEF WINDOWS} 59 59 if FDeviceID <> 0 then 60 mciSendCommand(FDeviceID, MCI_CLOSE, MCI_WAIT, 0); }60 mciSendCommand(FDeviceID, MCI_CLOSE, MCI_WAIT, 0); 61 61 {$ENDIF} 62 62 inherited Destroy;
Note:
See TracChangeset
for help on using the changeset viewer.