Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 10.05.2009, 15:05   #1
Влад_М
 
Регистрация: 10.05.2009
Сообщений: 8
По умолчанию Я не хочу прописывать полный путь звукам для MediaPlayer

В программе проигрывается звук с помощью MediaPlayer. Звуки находятся в папке с проектом.
Все нормально пока не открываеться любой файл с помощью Opendialog. После этого корневой каталог изменяться и звуки не проигрываются

Я не хочу прописывать полный путь звукам...
Как можно избежать этого по другому.
Либо вытащить полный путь к самому екзешнику?

И можно ли сделать проверку на существование файла в определенном месте?
Влад_М вне форума Ответить с цитированием
Старый 10.05.2009, 15:15   #2
DarkEvil
Форумчанин
 
Аватар для DarkEvil
 
Регистрация: 08.05.2009
Сообщений: 247
По умолчанию

Для звуков что лежат в дире проэкта
ExtractFilePath(Application.ExeName )
Мой сайт
Цитата:
Сообщение от Scream In Darkness
Кровь не даёт покоя! Кровь не знает сна!
Кровь бежит на волю – Вены рвёт сама!
DarkEvil вне форума Ответить с цитированием
Старый 10.05.2009, 15:26   #3
Влад_М
 
Регистрация: 10.05.2009
Сообщений: 8
По умолчанию

DarkEvil спасибо!
Влад_М вне форума Ответить с цитированием
Старый 10.05.2009, 16:23   #4
Neeter
Форумчанин
 
Аватар для Neeter
 
Регистрация: 22.02.2009
Сообщений: 875
По умолчанию

Можно писать вот так:
Код:
ExtractFilePath(ParamStr(0));
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство.
Neeter вне форума Ответить с цитированием
Старый 11.05.2009, 02:03   #5
856100
Форумчанин
 
Регистрация: 12.08.2008
Сообщений: 135
По умолчанию

Цитата:
И можно ли сделать проверку на существование файла в определенном месте?
Вопрос еще в силе?
если да, то
Код:
If FileExists('C:\123.bmp') then ...
Будь проще, бери пример с одноклеточных
856100 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Узнать полный путь к процессу в Vista abyss_by Win Api 3 26.03.2010 11:47
полный путь tae1980 Microsoft Office Excel 7 08.05.2009 10:46
Из процесса получить полный путь к ехе файлу. Ozerich Общие вопросы Delphi 4 08.08.2008 12:12
Как узнать полный путь к *.ехе файлу SeЯgey Помощь студентам 3 27.05.2008 09:46
Как получить полный путь к файлу, который был послан на принтер? Stilet Общие вопросы Delphi 7 29.02.2008 17:49