Компонент MediaPlayer, помогите разобраться

[Middle.Cry]

у меня проблема, подскажите кому не затруднит можно ли как нибудь прописать путь к avi файлу в текущей дериктории(т.е где программа там и avi файл), использую компанент MediaPlayer

[Terran]

Можете сделать так:

Procedure TForm1.Button1Click(Sender: TObject);
Begin
//MediaPlayer1.FileName:=''Имя файла.avi;
MediaPlayer1.FileName:=ExtractFilePath(ParamStr(0))+'Имя файла.avi';//<- так лучше будет
End;

[Middle.Cry]

А я вывожу видео на Панели(автоматически), можно также прописать у компанента Panel?, и если не затруднить напишите код плз

[Terran]

Что то не совсем понятен вопрос, поясните поподробней пожалуйста.

[Middle.Cry]

я вывожу видео на Panel с помощью компанента mediaplayer, так вот мне нуна прописать путь к видео, а я не знаю как(, причем это видео находиься где и сама программа

[Terran]

Я в посте №2 написал как это сделать. Если хотите, то могу более подробней написать. К примеру можете сделать так:

Procedure TForm1.Button1Click(Sender: TObject);
Begin
MediaPlayer1.FileName:=ExtractFilePath(ParamStr(0))+'Video.avi';
MediaPlayer1.Open;
MediaPlayer1.DisplayRect:=Panel1.ClientRect;
MediaPlayer1.Play;
End;

Видео файл будет воспроизводиться по нажатию на кнопку, а если хотите выбирать файл самому, то можете использовать компонент OpenDialog. Эта строчка ExtractFilePath(ParamStr(0)) возвращает полный путь к вашей программе + 'Video.avi' - имя вашего файла.

[Middle.Cry]

Но мне нужно чтобы видео запускалось сразу же после того как загрузилась форма(автоматически), а не по нажатию кнопки, вообщем есть MediaPlayer, Panel, видеофайл который находиться в текущей папке где и сама программа, и мне нужно просто прописать путь, подскажите плз очень нужно, заранее благодарен

[XuTpbIu]

Ну тогда пропиши код показанный Terran-ом в событие OnCreate у формы.

[Middle.Cry]

я прописал, но ничего не выходит,выдает ошибку(, говарит что файл вроде не видет, хотя я правильно путь и название файла указал, что может не так быть?

[XuTpbIu]

Я вначале дописал ещё

MediaPlayer1.Display := Panel1;

Текст ошибки в студию. У меня данный код работает "на ура".