function SoundCardInstalled:Boolean;
begin
Result:=WaveOutGetNumDevs>0;
end;
How expected it returns true;
But if try to play my WAVE-file with the sndplaysound-function using the
mmsystem-unit it happens nothing ( no sound , no messages ).
i call it with the parameters below:
sndplaysound('C:\MYSOUND.WAV',SND_ASYNC);
why it doesn go (something forgotten ? )
Thanks
axel müller
SndPlaySound wants a PChar, not a String, perhaps that's the reason
(although I thought it should also work). Or the file does not exist.
Following procedure wotks fine for me...
Jens
Procedure PlaySound (SoundFileName: String);
Begin
If SoundFileName <> '' Then SndPlaySound
(PChar(SoundFileName),SND_ASYNC);
End;
Regards
Gordon Waters
axel mueller wrote:
--
------------------------------------
Gordon Waters
Systems Support
The Canberra Times
------------------------------------