Changeset 275
- Timestamp:
- Aug 13, 2020, 9:44:43 PM (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Packages/CevoComponents/Sound.pas
r207 r275 5 5 uses 6 6 SysUtils, Classes, Graphics, Controls, Forms, fgl, FileUtil, 7 StringTables, Directories 7 StringTables, Directories, LCLType 8 8 {$IFDEF WINDOWS}, MMSystem, Windows{$ENDIF} 9 9 {$IFDEF LINUX}, Process, AsyncProcess{$ENDIF}; … … 40 40 constructor Create(const FileName: string); 41 41 destructor Destroy; override; 42 procedure Play(H WND: DWORD);42 procedure Play(Handle: HWND); 43 43 procedure Stop; 44 44 procedure Reset; … … 155 155 156 156 157 procedure TSound.Play(H WND: DWORD);157 procedure TSound.Play(Handle: HWND); 158 158 {$IFDEF WINDOWS} 159 159 var … … 169 169 if FDeviceID <> 0 then 170 170 begin 171 PlayParm.dwCallback := H WND;171 PlayParm.dwCallback := Handle; 172 172 mciSendCommand(FDeviceID, MCI_PLAY, MCI_NOTIFY, DWORD_PTR(@PlayParm)); 173 173 end
Note:
See TracChangeset
for help on using the changeset viewer.