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

[SanderSL]

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

[uberchel]

Вот так попробуй

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

[SanderSL]

щас вот стало еще забавней если даже тупо путь полностью прописать то прога все равно не видит указанное видео, кто нить знает в чем проблемма???

[SanderSL]

гг)) все все спасибо все заработало)))

[uberchel]

Можешь ещё при изменении формы, что б видео подгонялось:

procedure TForm1.FormCanResize(Sender: TObject; var NewWidth,
  NewHeight: Integer; var Resize: Boolean);
begin
MediaPlayer1.DisplayRect:= Form1.ClientRect;
end;