Changeset 21 for trunk/Sound.pas
- Timestamp:
- Jan 8, 2017, 3:12:18 PM (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Sound.pas
r18 r21 4 4 5 5 uses 6 Messages, SysUtils, Classes, Graphics, Controls, Forms {$IFDEF WINDOWS}, MMSystem {$ENDIF};6 Messages, SysUtils, Classes, Graphics, Controls, Forms {$IFDEF WINDOWS}, MMSystem, Windows{$ENDIF}; 7 7 8 8 function PrepareSound(FileName: string): integer; … … 73 73 begin 74 74 PlayParm.dwCallback := HWND; 75 mciSendCommand(FDeviceID, MCI_PLAY, MCI_NOTIFY, integer(@PlayParm));75 mciSendCommand(FDeviceID, MCI_PLAY, MCI_NOTIFY, DWORD_PTR(@PlayParm)); 76 76 end 77 77 {$ENDIF}
Note:
See TracChangeset
for help on using the changeset viewer.