unit aani;



interface



uses

  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

  MPlayer, StdCtrls;



type

  TFormAani = class(TForm)

    ButtonExit: TButton;

    MediaPlayeraanet: TMediaPlayer;

    procedure ButtonExitClick(Sender: TObject);

    procedure FormCreate(Sender: TObject);

    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);

    procedure MediaPlayeraanetNotify(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;



var

  FormAani: TFormAani;



implementation



{$R *.DFM}



procedure TFormAani.ButtonExitClick(Sender: TObject);

begin

  Close;

end;



procedure TFormAani.FormCreate(Sender: TObject);

begin

//  MediaPlayerAanet:=TMediaPlayer.Create(Self);  // EI!!!

//  MediaPlayerAanet.Parent:=Self;

  MediaPlayerAanet.FileName:='alku2.wav';

  MediaPlayerAanet.Open;

  MediaPlayerAanet.Play;

end;



procedure TFormAani.FormCloseQuery(Sender: TObject; var CanClose: Boolean);

begin

  CanClose := true;

  MediaPlayerAanet.OnNotify := MediaPlayeraanetNotify;

  MediaPlayerAanet.FileName := 'loppu2.wav';

//  MediaPlayerAanet.AutoRewind := True;

  Hide; // ??? 

  MediaPlayerAanet.Open;          { Open Media Player }

//  MediaPlayerAanet.Wait := true; Open;  // OK dmeotehtävässä

  try

    MediaPlayerAanet.Play;          { Play sound }

  except

  end;

  CanClose := false;

end;



procedure TFormAani.MediaPlayeraanetNotify(Sender: TObject);

begin

  OnCloseQuery := nil;

  Close;

end;



end.