Re: playsound

[Bernd.Specht@gmx.com (Bernd Specht)]

sisi.ard@laposte.net (Sylvain) wrote in news:e465bcf0.0506240558.5f62f511
@posting.google.com:

> Can you give me a piece of code which explain me how to use the
> Playsound API please ?
> 
> Thx, Bye !
> 

First do a with for the bindings:

with Win32.Mmsystem;


Then call PlaySound like this:

...
    xBool  : Win32.BOOL;
    SoundFName : String := "ringin.wav" & Ascii.Nul;
    function AdrToLpcstr is new Unchecked_Conversion (System.Address, 
Win32.LPCSTR);
  begin
      Conn := Get_Router_State;
      
        if Conn = Is_Connected
        then
          xBool := Win32.Mmsystem.PlaySound (AdrToLpcstr 
(SoundFName'Address), System.Null_Address, Win32.Mmsystem.SND_FILENAME);
        end if;
...