меня вчера не понели

[lesha_firs]

Ты не понел!! мене в программу нужно засунуть 2 видео файла!!! я кидаю на форму MediaPlayer и Panel если ставлю AutoOpen := true; то прога слитает потомучто незадан путь к файлу задаю кароткий путь к файлу а он требует полный путь. Пешу полный путь переношу прогу на другой комп и нечё не работает!! кто знает как можно написать короткий путь???

[artemavd]

Кажется есть функция, кажется она называется ExtractFilePath и там можно указывать параметры извлекаемого пути. Посмотри в справке Delphi, там точно есть это.

[lesha_firs]

я не понел и не нашел ExtractFilePath мне нужно воспроизвести видео в моей программе та чтобы перенести на другой комп и всё работало!!!

_________________________________

[lesha_firs]

верней ExtractFilePath он не извлекает

[SERG1980]

Либо OpenDialog используйте, или как вам уже говорили ExtractFilePath
MP.Filename:=ExtractFilePath(Applic ation.ExeName)+'\video.mp4' если файлы находятся в папке с экзэшником

[lesha_firs]

Я пешу MediaPlayer1.AutoOpen:=True; а он не хочет присваевать

[lesha_firs]

если я пешу MP.Filename:=ExtractFilePath(Applic ation.ExeName)+'\video.mp4' выдает 2 ошибки
[Ошибка] Unit1.pas(50): Undeclared identifier: 'Applic'
[Ошибка] Unit1.pas(50): Missing operator or semicolon

[JTG]

Функция ExtractFilePath извлекает из FullFileName подстроку пути. Это часть полного имени файла включая конечный \ перед именем файла.

path := ExtractFilePath(Application.Exename )+'file.avi'

[SERG1980]

[Ошибка] Unit1.pas(50): Undeclared identifier: 'Applic'

включите чуть чуть голову это же просто опечатка
Applic ation.ExeName -> Application.ExeName
или так

if OpenDialog1.Execute then
 with MediaPlayer1 do
 begin
  FileName := OpenDialog1.FileName;
  Open;
 end;

[Stilet]

Это что за кросспосты из-под тишка?
Закрыто за нарушения.