Директория программы

[PUH]

Здравствуйте, уважаемые форумчане!

Программа размещаеться в любой папке, папка содержит в себе:
-Экзешник
-\templates (папка)
-\project (папка)
Задача следующая - определить, из какой директории запускаеться программа, чтобы результаты работы сохранять в {путь}\project\

AssignFile(f, '/project/index.html');
Rewrite(f); 
write(f,index);
Closefile(f);

Так не выходит - после открытия диалогового окошка любого - путь меняеться, и программа сохраняет туда, откуда был открыт тот или иной файл.

[PUH]

Простите за ламовопрос, разобрался, сделал так:

При создании формы вызываю:

GetDir(0,Pat);

А потом уж:

AssignFile(f, Pat+'/project/index.html');
Rewrite(f); 
write(f,index);
Closefile(f);

[Карась]

Как "откусить" от пути любую часть:
http://www.delphibasics.ru/ExtractFileDir.php

Как определить откуда запустилась программа:
http://www.delphibasics.ru/ParamStr.php