Фоновая музыка

[Коля-Коля]

Нужно сделать так, чтобы при включении формы играла музыка формата midi (без плеера). Помогите пожалуста.

[JTG]

Что-то вроде этого

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, MMSystem, StdCtrls;

type
  TForm1 = class(TForm)
    procedure MCINOTIFY(var msg:TMessage); message MM_MCINOTIFY;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  HMidi: DWord;

implementation

{$R *.dfm}

procedure StopMidi;
begin
  mciSendCommand(HMidi, MCI_STOP, 0, 0);
  mciSendCommand(HMidi, MCI_CLOSE, 0, 0);
end;

procedure PlayMidi(wnd: HWnd; Filename:string);
var mciOpenParms: TMCI_Open_Parms;
    mciPlayParms: TMCI_Play_Parms;
begin
  StopMidi;

  ZeroMemory(@mciOpenParms, sizeOf(TMCI_Open_Parms));
  mciOpenParms.lpstrDeviceType := PChar('sequencer');
  mciOpenParms.lpstrElementName := PChar(Filename);
  if mciSendCommand(0, MCI_OPEN, MCI_OPEN_TYPE or MCI_OPEN_ELEMENT, DWord(@mciOpenParms))<>0
  then
    begin
      ShowMessage('Не могу открыть устройство');
      exit
    end
  else HMidi := mciOpenParms.wDeviceID;

  ZeroMemory(@mciPlayParms, sizeOf(mciPlayParms));
  mciPlayParms.dwCallback := wnd;

  if mciSendCommand(HMidi, MCI_PLAY, MCI_NOTIFY, DWord(@mciPlayParms)) > 0
  then
    begin
      ShowMessage('Не могу воспроизвести файл');
      mciSendCommand(HMidi, MCI_CLOSE, 0, 0);
   end;
end;


procedure TForm1.MCINOTIFY(var msg: TMessage);
var params: TMCI_Seek_Parms;
begin
  If msg.WParam = MCI_NOTIFY_SUCCESSFUL then
  begin
    params.dwCallback := handle;
    params.dwTo := 0;
    mciSendCommand(HMidi, MCI_SEEK, MCI_SEEK_TO_START + MCI_NOTIFY, DWord(@params));
    mciSendCommand(HMidi, MCI_PLAY, 0, 0);
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  PlayMidi(Handle,'E:\sample.mid');
end;

end.

[DennerV]

Сделал всё как написано - - не играет, подскажите пожалыста кто чё думает или знае.

[Terran]

Попробуйте ещё такой вариант:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, mmsystem;

type
  TForm1 = class(TForm)
    btnPlay: TButton;
    btnStop: TButton;
    btnPause: TButton;
    OpenDialog1: TOpenDialog;
    btnOpenFile: TButton;
    edtFileName: TEdit;
    Button1: TButton;
    procedure btnPlayClick(Sender: TObject);
    procedure btnPauseClick(Sender: TObject);
    procedure btnStopClick(Sender: TObject);
    procedure btnOpenFileClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

const
  DeviceName='waveaudio';
var
  Form1: TForm1;
  FileName:String;

implementation

{$R *.dfm}

procedure SendMCICommand(Cmd: string);
  var RetVal: Integer;
      ErrMsg: array[0..254] of char;
begin
  RetVal := mciSendString(PChar(Cmd), nil, 0, 0);
  if RetVal <> 0 then
    begin
      mciGetErrorString(RetVal, ErrMsg, 255);
      MessageDlg(StrPas(ErrMsg), mtError, [mbOK], 0);
    end;
end;

procedure TForm1.btnPlayClick(Sender: TObject);
begin
  btnPause.Visible := True;
  btnPlay.Visible := False;

  SendMCICommand('Open '+DeviceName+' Shareable');
  SendMCICommand('Play '+FileName);
  SendMCICommand('Close '+DeviceName);
end;

procedure TForm1.btnPauseClick(Sender: TObject);
begin
  btnPause.Visible := False;
  btnPlay.Visible := True;
  SendMCICommand('Pause '+FileName);
end;

procedure TForm1.btnStopClick(Sender: TObject);
begin
  btnPause.Visible := False;
  btnPlay.Visible := True;
  SendMCICommand('Stop '+FileName);
end;

procedure TForm1.btnOpenFileClick(Sender: TObject);
begin
  btnPlay.Enabled := False;
  btnStop.Enabled := False;
   if OpenDialog1.Execute then begin
     FileName := OpenDialog1.FileName;
     edtFileName.Text := ExtractFileName(FileName);
     btnPlay.Enabled := True;
     btnStop.Enabled := True;
   end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
     SendMCICommand('Pause '+FileName);
end;
end.

[DennerV]

Извините, я тупанул. У меня не компе громкость MIDI стояла на минимуме, поэтому и не играла. Я только когда спал допер . Спасибо за второй вариант, может пригодится.

[NetSpace]

А можно эту песенку MIDI в файл ресурсов запихать, чтоб всё в одном EXE'шнике было?
MP3 можно запихнуть, а вот этот формат будет пахать?

[Terran]

А можно эту песенку MIDI в файл ресурсов запихать, чтоб всё в одном EXE'шнике было?

В ресурсы можно засунуть всё что хочешь. Хоть фильм

[uberchel]

Можно и midi, wav,mp3,wma - да много что мона запихать