Помогите разобраться с видео

[SanderSL]

подскажите как сделать что бы видео в MediaPlayre. работало не только у меня на компике а у всех!!
вроде сделал все правильно вместо полного путя к файлу E:\progect\видеоурок 1.1 указал путь видеоурок 1.1 ток от этого толку ни какого!
понятия не имею что делать подскажите плиз))

[uberchel]

Исходный код в студию! и видео файл находиться где ? в папке с программой?

[SanderSL]

видео находиться в той же папке где и екзешник прогину у меня на этой форме с видео ток вот это

uses Unit1, Unit11;

{$R *.dfm}

procedure TForm12.Label32Click(Sender: TObject);
begin
form1.show;
end;

procedure TForm12.Label32MouseLeave(Sender: TObject);
begin
label32.Caption:='Назад';
end;

procedure TForm12.Label32MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
label32.Caption:='"Назад"';
end;

procedure TForm12.Label22Click(Sender: TObject);
begin
form11.show;
end;

[uberchel]

Держи!

procedure TForm1.Button1Click(Sender: TObject);
begin
with MediaPlayer1 do begin
FileName:= ExtractFilePath(paramStr(0)) + 'video.avi'; // путь к файлу
Display:= Form1;                                                  //отображение на форме
Open;                                                               //открыть файл
Play;                                                               //играть
DisplayRect:= Form1.ClientRect;                          //по форме
end;                                                           
end;

и для чего тебе в 2 обработчиках писать

procedure TForm12.Label32MouseLeave(Sender: TObject);
begin
label32.Caption:='Назад';
end;

procedure TForm12.Label32MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
label32.Caption:='"Назад"';
end;

чего ты этим хочешь добиться ?????

[Alex2009]

SanderSL
НАПРИМЕР ТВОЙ EXE НАХОДИТСЯ НА РАБОЧЕМ СТОЛЕ ТЫ ДОЛЖЕН СКИНУТЬ НА РАБОЧИЙ СТОЛ ВИДЕО ФАЙЛ НАПРИМЕР peimer.avi И ПИШЕШ ТАКОЙ КОД

procedure TForm1.FormCreate(Sender: TObject);
begin
MEDIApLAYER1.FileName:='PRIMER.AVI';
end;

[SanderSL]

это типа кнопка при включении будет выглядеть Назад а при наведении на лабел будет выглядеть вот так "Назад" .
К сожалению твой код мне ни чем не помог все равно программа не может найти файл (((

[uberchel]

А, что пишет ??? , и я спрашивал файл то в папке с прогой или нет и какой фармат???

И ExtractFilePath(paramStr(0) + 'video.avi'); 'video.avi'-это файл в папке с прогой, с названием video и расширением avi !

[SanderSL]

говорю же что файл Урок 1.1. Начало работы с Access.avi находиться в той же папке где и сама программа. Не работает прога все из за того же неможет найти указанный файл

[uberchel]

Дык, а для чего же я пишу

И ExtractFilePath(paramStr(0)) + 'video.avi'; 'video.avi'-это файл в папке с прогой, с названием video и расширением avi !
А?

вот измени на имя своего или свой на имя этого!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!

[SanderSL]

изменил имя файла на мне нужное даже писал его не вручную а копировал название что бы не в чем не ошибиться и все равно не может найти путь к файлу
код:
with MediaPlayer1 do begin
FileName:= ExtractFilePath(paramStr(0) + 'Урок 1.1. Начало работы с Access.avi'); // путь к файлу
Display:=form19;
Open; //открыть файл
Play; //играть
DisplayRect:= Form19.ClientRect; //по форме
end;