Не могу правильно прописать код открытия файла проигрывателем

@TeddyBoy · Регистрация: 10.01.2014

Author24 — интернет-сервис помощи студентам

Добрый день!
1)Не могу правильно прописать код открытия файла проигрывателем! Файлы называются: Stage1, Stage2.
2) Хотел бы чтобы при оконцовке позиция сменялась на начало! То есть бесконечный повтор был!

Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, OleCtrls, WMPLib_TLB, ExtCtrls;
 
type
  TForm1 = class(TForm)
    WindowsMediaPlayer1: TWindowsMediaPlayer;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure WindowsMediaPlayer1PositionChange(ASender: TObject;
      oldPosition, newPosition: Double);
 
 
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
WindowsMediaPlayer1.Controls.currentPosition:=0;
WindowsMediaPlayer1.Controls.play;
WindowsMediaPlayer1.Media:= 'Stage 1.kmp';
 
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
WindowsMediaPlayer1.Controls.currentPosition:=11;
WindowsMediaPlayer1.Controls.play;
WindowsMediaPlayer1.Media:= 'Stage 2.kmp';
end;
 
procedure TForm1.WindowsMediaPlayer1PositionChange(ASender: TObject;
  oldPosition, newPosition: Double);
begin
if (newPosition = 7) then
    WindowsMediaPlayer1.controls.currentPosition := 0
 
else if (newPosition = 20) then
    WindowsMediaPlayer1.controls.currentPosition := 10;
end;
 
end.

	10.01.2014, 20:55