Музыка на форме

[cyx]

пожалуйста подскажите, как сделать так, чтобы после перехода с первой формы на вторую автоматически начала играть музыка с возможность ее выключить и включить(или убрать звук) на button(вкл/выкл), пожалуйста, подробно распишите.

[саша40]

TMediaPlayer. Юзай!

[min@y™]

я писал нечто подобное. для простоты юзал класс TRyPlayer и вот такой самодельный тред:

  // Класс - проигрыватель звуков
  TSoundThread = class(TThread)
  private
    FSoundFile: string;
    Player: TRyPlayer;  // <--- жрёт wav и mp3, другие форматы не проверял.
  protected
    procedure Execute; override;
  public
    constructor Create(CreateSuspended: Boolean; const ASoundFile: string); reintroduce;
  end;

implementation 

{ TWaveThread }

constructor TSoundThread.Create(CreateSuspended: Boolean;
  const ASoundFile: string);
begin
  inherited Create(True);
  FSoundFile:= ASoundFile;

  if not CreateSuspended
    then Resume();
end;

procedure TSoundThread.Execute;
begin
  FreeOnTerminate:= True;
  if not FileExists(FSoundFile)
    then Exit;

  Player:= TRyPlayer.Create(nil);
  try
    Player.FileName:= FSoundFile;
    Player.Open();
    Player.Play();

    repeat
      Windows.Sleep(10);
    until Terminated or (Player.Length <= Player.Position);

    Player.Stop();
    Player.Close();
  finally
    Player.Free();
  end;
end;

[NIKOLAYY2]

чтобы после перехода с первой формы на вторую автоматически начала играть музыка

В uses MMSystem
И код:

sndPlaySound('msf.wav', SND_NODEFAULT or SND_ASYNC);

Там разбирайся сам в исходнике немного накидал тебе.