Всем здравствуйте! Как реализовать чтобы определённый файл открывался сразу?

[Argontarg]

Всем здравствуйте! Как реализовать чтобы определённый файл открывался сразу? Т.е. к примеру у меня есть кнопка: презентация
Как реализовать так, чтобы при нажатии на кнопку сразу открывалась определённая презентация, вложенная в папку с прогой. Прописывание просто пути к файлу не подойдёт, так как это нужно будет показать на других компах и путь к папке будет меняться. Т.е. если на компе он находится на Д диске, то на других компах он будет вообще читаться через флешку и путь уже измениться. Как реализовать данную задачу?! Подскажите! Заранее спасибо!

[Streletz]

Прописывание просто пути к файлу не подойдёт

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

[Argontarg]

Сообщение от Streletz

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

ммм, как это сделать?) не забывайте что это форум Новички в программировании ) Я делал кнопку с ShellApi и OpenDialog, там просто выбирал файл вручную, но нужно чтобы сразу открывался файл.

[Streletz]

Сообщение от Argontarg

ммм, как это сделать?) не забывайте что это форум Новички в программировании ) Я делал кнопку с ShellApi и OpenDialog, там просто выбирал файл вручную, но нужно чтобы сразу открывался файл.

Простите, но здесь нет ничего сложного. Для ещё большей простоты, будем считать, что презентация и программа лежат в одной папке.
С помощью GetDir получаете папку в которой лежит программа в виде строковой переменной.
Далее к присоединяете к ней имя файла презентации:

DirName:=DirName+'\MyFile.ppt';

Полученный результат подставляете в ShellExecute по аналогии OpenDialog.FileName. Только вместо OpenDialog.FileName у Вас будет DirName.
Всё это можно без проблем разместить в обработчике одной кнопки.
И будет Вам счастье.

[Argontarg]

Сообщение от Streletz

Простите, но здесь нет ничего сложного. Для ещё большей простоты, будем считать, что презентация и программа лежат в одной папке.
С помощью GetDir получаете папку в которой лежит программа в виде строковой переменной.
Далее к присоединяете к ней имя файла презентации:

DirName:=DirName+'\MyFile.ppt';

Полученный результат подставляете в ShellExecute по аналогии OpenDialog.FileName. Только вместо OpenDialog.FileName у Вас будет DirName.
Всё это можно без проблем разместить в обработчике одной кнопки.
И будет Вам счастье.

Я извиняюсь конечно, но здесь http://www.delphibasics.ru/GetDir.php написано то, что определенный диск привязывается к функции, т.е. если у меня сохранён в папке с прогой на диске С, то и на других компах будет открываться именно с этого диска ?

[Argontarg]

Или я могу "GetDir(3, DirName); // Сохраняем директорию C: в переменной DirName
ShowMessage(DirName);" описать это так GetDir(Сюда просто название папки где находится файл, типо "Новая папка" , DirName); и всё?

[Streletz]

Сообщение от Argontarg

Я извиняюсь конечно, но здесь http://www.delphibasics.ru/GetDir.php написано то, что определенный диск привязывается к функции, т.е. если у меня сохранён в папке с прогой на диске С, то и на других компах будет открываться именно с этого диска ?

Простите и Вы меня, но видимо Вы не до полностью или не внимательно ознакомились с описанием процедуры GetDir. Привязка к диску зависит от значения 1го параметра. Если в него передать 0, то она Вам выдаст корректное значение пути к папке с программой, независимо от буквы диска.
Иначе говоря, если Вы запускаете программу с флешки, то какую бы букву ей не присваивали разные ПК, GetDir в этом случае всегда выдаст "настоящий" путь. Поэтому, это

Или я могу "GetDir(3, DirName); // Сохраняем директорию C: в переменной DirName
ShowMessage(DirName);" описать это так GetDir(Сюда просто название папки где находится файл, типо "Новая папка" , DirName); и всё?

в данном случае излишне.

[Argontarg]

Хм,
GetDir(0, DirName);
DirName:=DirName+'\тут путь Презентация.ppt';
ShowMessage(DirName);
if DirName(Здесь ошибку даёт, какую функцию надо вписать?) then
ShellExecute(Hinstance, 'open', PChar(DirName) , nil, nil, SW_SHOWMAXIMIZED);


Только ошибку даёт.

[Аватар]

C GetDir могут быть проблемы - нет гарантии, что текущий каталог есть каталог, из которого запущена прога. Может и отличаться. Следующий код не зависит от текущего каталога

DirName:=ExtractFilePath(Application.ExeName)+'Презентация.ppt';

[Argontarg]

Сообщение от Аватар

C GetDir могут быть проблемы - нет гарантии, что текущий каталог есть каталог, из которого запущена прога. Может и отличаться. Следующий код не зависит от текущего каталога

DirName:=ExtractFilePath(Application.ExeName)+'Презентация.ppt';

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