- unit mysound;
- interface
- type
- MCIERROR = longint;
- HWND = cardinal;
- function mciSendString(x1: PChar; x2: PChar; x3: cardinal; x4: HWND): MCIERROR; stdcall;
- external 'winmm.dll' name 'mciSendStringA';
- procedure opensound(filename:string);
- procedure playsound;
- procedure stopsound;
- procedure closesound;
- implementation
- var fname:string;
- procedure opensound(filename:string);
- begin
- fname:=filename;
- MCISendString(PChar('open '+fname), nil, 0, 0);
- end;
- procedure playsound;
- begin
- MCISendString(PChar('play '+fname), nil, 0, 0);
- end;
- procedure stopsound;
- begin
- MCISendString(PChar('stop '+fname), nil, 0, 0);
- end;
- procedure closesound;
- begin
- MCISendString(PChar('close '+fname), nil, 0, 0);
- end;
- end.