Изменение текущей директории

[hunter03]

Помогите решить проблему

Суть такова...Например после открытия некого файла opendialog ом у меня меняется текущая директория. Как програмно сделать текущей директорию ту, в которой находится exe фаил?

Заранее спасибо

[Hacker19_90]

а вам
ExtractFilePath(Application.ExeName )
не подходит?

[hunter03]

оно определит где находится ехе если указать в ExeName имя моей ехешки, а как именно сделать эту директорию текущей, чтоб все файлы искались оттуда?

[hunter03]

хотя...сейчас попробую

[hunter03]

не, не получится так...нет никакой другой функции что б сделать такое?

[Hacker19_90]

Так результат этой функции в поиск и передавай
Ну или
Chdir

не, не получится так...нет никакой другой функции что б сделать такое?

Что не получается? код показывайте!

[hunter03]

хм...тип писать :

ExtractFilePath('program.exe')+'\Папка1\Папка2\Приклад.xls

все верно?

[Hacker19_90]

Нее! Ни чё не верно!
Какой функцией ищешь файлы и что собствеено надо найти?

[hunter03]

Вобщем первоначально делал так:

s:=form2.Table3.FieldByName('Familiya').Value+'-'+Form2.Table7.FieldByName('kod').Value;
CopyFile(Pchar(GetCurrentDir+'\Накази\Прийом\Приклад.xls'),Pchar(GetCurrentDir+'\Накази\Прийом\'+s+'.xls'), true);
path:= (GetCurrentDir+'\Накази\Прийом\'+s+'.xls');
MsExcel := CreateOleObject('Excel.Application');
MsExcel.Workbooks.Open[path];
.........................................................

Все норм робит пока не приспичило сделать опендиалог для загрузки инфы в базу из файла...Из за этого текущая директория ,как я понял, сбивается и оно ищет файл там где я открыл другой фаил, вылетает крит типа фаил не найден.

[Hacker19_90]

Значится так!
Если у вас папки лежат вместе с ехешником
ТО ExtractFilePath(Application.ExeName ) заместо GetCurrentDir
ИЛИ ChDir и дальше использовать GetCurrentDir
Всё просто!