Как указать путь к папке, где лежит exe-шник?

← →
Razrab7 © (2008-08-25 11:11) [0]

Здравствуйте, коллеги!
Возник следующий вопрос. Написал приложение на Delphi 7 для работы с Excel (MS Office 2003). Привожу кусок кода, по которому собственно возникает вопрос:

var ExcelApp, Workbook: Variant; begin ExcelApp := CreateOleObject("Excel.Application"); ExcelApp.Application.EnableEvents := false; Workbook := ExcelApp.WorkBooks.Add("C:\My_programms\Excel\shablon.xls"); ... end;

В данном случае у меня сам exe-шник лежит в папке "C:\My_programms\", а файл Excel соответственно в "C:\My_programms\Excel\". Каким образом открыть shablon.xls без указания полного пути к нему?

← →
Vlad Oshin © (2008-08-25 11:19) [1]

if FileExists("Excel\shablon.xls") then ShowMessage("");

← →
Medbe}I{onok XML © (2008-08-25 11:19) [2]

Ну и где здесь путь к exe?

← →
Razrab7 © (2008-08-25 11:39) [3]

Vlad Oshin

Это ("Excel\shablon.xls") я и раньше пробовал, не прокатывает. Пишет доступ к файлу невозможен. Такая же ошибка и на "\Excel\shablon.xls". В чем проблема не пойму? Главное мне нельзя привязываться к рабочей папке на ярлыке. Нужно чтобы работало независимо от параметров ярлыка и не по полному пути, а по относительному.

← →
Razrab7 © (2008-08-25 11:42) [4]

Medbe}I{onok XML

Прошу прощения по поводу заголовка темы, ошибся в спешке, конечно же "путь к файлу Excel от самого exe-шника".

← →
Плохиш © (2008-08-25 11:42) [5]

> Vlad Oshin © (25.08.08 11:19) [1]

Где гарантии, что текущая папка будет папкой в которой лежит exe?

> Razrab7 © (25.08.08 11:39) [3]

Надеюсь, что тебе поможет поиск на этом сайте.

← →
Германн © (2008-08-25 11:43) [6]

А вопрос то какой собственно?

> Как указать путь к папке, где лежит exe-шник?

или

> Каким образом открыть shablon.xls без указания полного пути
> к нему?
>

← →
clickmaker © (2008-08-25 11:48) [7]

ExtractFilePath(Application.ExeName) + "Excel\shablon.xls"

← →
Vlad Oshin © (2008-08-25 11:49) [8]

1.

> Где гарантии, что текущая папка будет папкой в которой лежит
> exe?

> В данном случае у меня сам exe-шник лежит в папке "C:\My_programms\"

2.
ShowMessage(extractfilepath(paramstr(0)));
if FileExists(extractfilepath(paramstr(0))+"pack\Pac.dpk") then ShowMessage("");

← →
Плохиш © (2008-08-25 11:51) [9]

> Vlad Oshin © (25.08.08 11:49) [8]
> 1.
>
> > Где гарантии, что текущая папка будет папкой в которой
> лежит
> > exe?
>
>
> > В данном случае у меня сам exe-шник лежит в папке "C:\My_programms\"

И какие гарантии это даёт?

> clickmaker © (25.08.08 11:48) [7]

Так вот кто по понедельникам подаёт...

← →
Vlad Oshin © (2008-08-25 11:58) [10]

> И какие гарантии это даёт?

что в некоторых случаях заработает..
все, понял, понял :)
ну так и там просто синтаксис, как указать относительность, на самом деле

← →
Razrab7 © (2008-08-25 12:17) [11]

clickmaker

Спасибо! Все работает.

> Спасибо! Все работает.

А что, кто-то сомневался?

← →
Smile (2008-08-27 18:04) [13]

Так как поступать с некропостерами?

> Smile (27.08.08 18:04) [13]

> Так как поступать с некропостерами?

Кто это?

Хотя, мочи всех.

--
Regards, LVT.

← →
Smile (2008-08-27 18:19) [15]

Leonid Troyanovsky © (27.08.08 18:14) [14]
Кто это?

См. предыдущий пост, в котором нет никакого содержания и смысла (а поднят из небытия) :)

> Хотя, мочи всех.

Невиновных посметно наградим.

Как указать путь к папке, где лежит exe-шник? Найти похожие ветки