Playing A Sound When A Form Opens

unit Unit1; interface uses Windows, Classes, Forms, Dialogs, MmSystem; type TForm1 = class(TForm) procedure FormShow(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.FormShow(Sender: TObject); begin PlaySound('sound.wav',0,SND_FILENAME); end; end.

Comments

Playing a sound when a Form opens is simple to do: just call the native PlaySound in the OnShow event, as above.  Remember you must include MmSystem in the uses clause.  As the sound file is loaded on the fly, it must, of course, be present in the same directory as the application.

.