How to play sound on WinCE?

[JohnvdWaeter]

Hi Group,

What is a WinCE equivalent to MessageBeep() ?

I'd like to draw the users attention with some kind of beep...

tia!
John

[Marc]

Indeed I cannot find beep or messagebeep for CE. I think you have to use the playsound api

[JohnvdWaeter]

>>I think you have to use the playsound api

I'd love to... maybe someone has a code snippet?

John

[oraitecamonyes]

>>I think you have to use the playsound api

I'd love to... maybe someone has a code snippet?

John

in win32 playsound uses MMsystem.... how do i call it in wince?? :oops:

[cyberhero]

There is a little sample

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

 Function PlaySoundW(x1: PWideChar; x2: HMODULE; x3: DWORD): longbool;stdcall; external 'coredll.dll' name 'PlaySoundW';

var
  Form1: TForm1;

implementation

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
begin
   PlaySoundW('\windows\beep.wav',0,0);
end;

initialization
  {$I unit1.lrs}

end.

[oraitecamonyes]

thank you cyberhero,
you sample does play a sound, it just isnt the specified wav file...
mine always plays "loudest.wav" from windows...

donno why this happens...

[cyberhero]

You have to copy a wavefile with name 'beep.wav' to the windows folder or you use a alraedy existing file like 'alarm2.wav'.

(   PlaySoundW('\windows\alarm2.wav',0,0);     )

If the wavefile not exists then the PDA plays the systemsound.

Helmut

[oraitecamonyes]

thank you, it does play the wav

[Zaher]

This worked for me
      PlaySoundW(PWideChar(UTF8Decode(ExpandFileName(Application.location+'..\sounds\msg.wav'))), 0, 0);

[sanmiolade]

I am having difficulty is Playing Sound on my Windows CE 5.0 Device.

Can you send me a Working Sample so I can test and learn from it

Thanks