Как да укажете пътя до папката, където Търсейки-Schnick

Как да укажете пътя до папката, където Търсейки-Schnick?

Var
# XA0; ExcelApp, работна книга: Вариант;
# XA0;
започвам
# XA0; # XA0; ExcelApp: = CreateOleObject ( "Excel.Application"); # XA0; # XA0;
# XA0; # XA0; ExcelApp.Application.EnableEvents: = фалшива; # XA0; # XA0;
# XA0; # XA0; Работна: = ExcelApp.WorkBooks.Add ( "C: \ My_programms \ Excel \ shablon.xls");
.
приключи;

В този случай, аз се Търсейки-Schnick е в папка "C: \ My_programms", и Excel файл, съответно в "C: \ My_programms \ Excel". Как да отворите shablon.xls без да посочва пълния път до него?

ако FileExists ( "Excel \ shablon.xls"), след това # XA0; ShowMessage ( "");

Е, къде е пътят към EXE?

Това ( "Excel \ shablon.xls"), преди да я опитах, не рула. Напиши достъп до преписката не е възможно. Същата грешка и "\ Excel \ shablon.xls"; # XA0. Какъв е проблемът не разбирам? Основното, което не мога да прикрепен към работна директория на етикета. Ние трябва да работим, независимо от параметрите на етикета, а не от пълния път и роднината.

Съжалявам за заглавието на темата, е направил грешка в бързаме, разбира се, "пътя до файла на Excel от Търсейки-Schnick".

Но въпросът е как точно?

> Как да укажете пътя до папката, където Търсейки-Schnick?

или

> Как да отворите shablon.xls без пълен път
> Тя?
>

1.

> Къде е гаранцията, че текущата папка е папка, която съдържа
> Exe?


> В този случай, аз се EXE-Schnick е в папка "C: \ My_programms"

2.
# XA0; ShowMessage (extractfilepath (paramstr (0)));
# XA0; ако FileExists (extractfilepath (paramstr (0)) + "пакет \ Pac.dpk"), тогава # XA0; ShowMessage ( "");

> И това, което гарантира, че дава?

който ще работи в някои случаи ..
всичко разбрах, реализирани :)
Е, тогава има само синтаксиса на това как да се уточни роднина, в действителност

Благодарим Ви! Всичко работи.

Е, как да се справят с nekroposterami?

> Smile # XA0; (27.08.08 18:04) [13]

> Е, как да се справят с nekroposterami?

Кой е той?

Cm. Предишна публикация в които няма съдържание и смисъл (и отгледан от нищо) :)

> Въпреки всичко урина.

Невинни награди posmetno.