Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Razrab7 © (2008-08-25 11:11:00)
Здравствуйте, коллеги!
Возник следующий вопрос. Написал приложение на 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 без указания полного пути к нему?

Anatoly Podgoretsky (2008-08-27 20:23:00) [1]

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

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

Smile (2008-08-27 18:19:00) [2]
Leonid Troyanovsky © (27.08.08 18:14) [14]
Кто это?

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

Leonid Troyanovsky (2008-08-27 18:14:00) [3]

> Smile (27.08.08 18:04) [13]

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

Кто это?

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

--
Regards, LVT.

Smile (2008-08-27 18:04:00) [4]
Так как поступать с некропостерами?

Denis__ (2008-08-27 17:48:00) [5]

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

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

Razrab7 (2008-08-25 12:17:00) [6]
clickmaker

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

Vlad Oshin (2008-08-25 11:58:00) [7]

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

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

Плохиш (2008-08-25 11:51:00) [8]

> 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:49:00) [9]
1.

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

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

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

clickmaker (2008-08-25 11:48:00) [10]
ExtractFilePath(Application.ExeName) + 'Excel\shablon.xls'

Германн (2008-08-25 11:43:00) [11]
А вопрос то какой собственно?

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

или

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

Razrab7 (2008-08-25 11:42:00) [12]
Medbe}I{onok XML

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

Плохиш (2008-08-25 11:42:00) [13]

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

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

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

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

Razrab7 (2008-08-25 11:39:00) [14]
Vlad Oshin

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

Vlad Oshin (2008-08-25 11:19:00) [15]
if FileExists('Excel\shablon.xls') then ShowMessage('');

Medbe}I{onok XML (2008-08-25 11:19:00) [16]
Ну и где здесь путь к exe?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »