[lmikle]

Код:

procedure TForm1.Button1Click(Sender : TObject);
begin
  PlaySound(PChar(ExtractFilePath(Application.ExeName) + 'mywav.wav'),
                          0,SND_FILENAME OR SND_NOSTOP OR SND_ASYNC);
end;