Вот мой код программы:
Код:
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, OleCtrls, WMPLib_TLB;
type
TForm1 = class(TForm)
WindowsMediaPlayer1: TWindowsMediaPlayer;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
WindowsMediaPlayer1.Controls.currentPosition:=00;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
WindowsMediaPlayer1.Controls.currentPosition:=11;
end;
end.
lmikle: Пользуемся тегами!
Как сделать так, чтобы видео начиналось и заканчивалось на нужную позицию, но не останавливалось, а проигрывалось обратно сначала нужного фрагмента? То есть к примеру начиналось с самого начала и до 11 секунды и потом обратно на начало! Все это было циклически.