Функция Rewrite

[KatCH]

Здраствуйте. Как сказать функции Rewrite, что файл, который нужно перезаписать, находится в директории с самой программой?
Вот у меня при запуске программы создается текстовый файл:

procedure TForm2.FormActivate(Sender: TObject);
begin
 FileName:='cpcontrol.txt';
 FileCreate(FileName);

А вот функция Rewrite должна открыть, перезаписать и закрыть файл:

procedure TForm2.BitBtn1Click(Sender: TObject);

begin
 FileName:='cpcontrol.txt';
 assignfile(t,filename);
 {$I-}
 Rewrite(t);
 {$I+}
 for i:=0 to RichEdit1.Lines.Count do
  WriteLn(t,RichEdit1.Lines[i]);
  CloseFile(t);
  end;

Вот если прописать путь FileName:='C:\cpcontrol.txt' то все будет работать, ето так. Но надо сделать именно так, что бы искало файл в родительской директории.
Заранее благодарен.

[raxp]

...а положить файлик в каталог с программой, разве не проходит? ...или используйте вызов setcurrentdir().

[Олвин]

Бывает не проходит. Лучше конкретно указать FileName:

FileName := ExtractFilePath(ParamStr(0)) + 'cpcontrol.txt';

где ParamStr(0) - полный путь к exe-шнику.

[KatCH]

Сообщение от Олвин

где ParamStr(0) - полный путь к exe-шнику.

А в случае если я скину папку с прогой корешу, и етот путь у него не пройдет. К примеру вот я выставлю 'C:\Cpcontrol\cpcontrol.txt', а он засунет папку в 'D:\myporno\cpcontrol\cpcontrol.txt '
Я гдето встречал функции поиска файла по всему жесткому диску, может быть в етом направлении копать? Подскажите, если знаете их.

[Hacker19_90]

В родительской директории!!1 Это в смысле в папке с программой???
если да , то FileName присвой значение GetCurrentDir + 'имя файла'!!!

[KatCH]

Сообщение от Hacker19_90

В родительской директории!!1 Это в смысле в папке с программой???
если да , то FileName присвой значение GetCurrentDir + 'имя файла'!!!

Спасибо, подошло. Ток почему ты ореш ? Проблемы в реале, аль ето у тебя такой стиль письма?

[Hacker19_90]

В смысле орёшь????

[KatCH]

Сообщение от Hacker19_90

В родительской директории!!1 Это в смысле в папке с программой???
если да , то FileName присвой значение GetCurrentDir + 'имя файла'!!!

Не слишком много "!!!!" и "!!1111" ?))
оффтоп