Проблема с пеименованием текстогого файла

[саша40]

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

а к чему это?

Да к тому, что тебе надо файл переменовать.

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

Как узнать в какой директории лежит запущенный exe файл?
Чтобы программа искала файлы в том каталоге, где лежит exe файл.

Первое:

ExtractFilePath(Application.ExeName); //узнаем где наш exe

Второе:

ExtractFilePath(Application.ExeName) + 'что-то там.txt'; //полный путь к файлу в папке с exe

[Huruffus]

саша40, спасибо)

но на мой взгляд, куда удобней:

var
  dir:string;
begin
  dir:=GetCurrentDir+'имя нашего exe.exe';
end.

[Аватар]

GetCurrentDir - рабочий (текущий) каталог, не факт, что совпадает с каталогом, откуда запущен exe, хотя зачастую и совпадает. ExtractFilePath(Application.ExeName ) - то что надо.

[Huruffus]

Создал Frame, добавил его на форму 1. Во Frame создал ListBox.
Пишу в Unit2 (создался, когда на Frame я нажал по Listbox).

Создаём проводник (код не мой. Взял у spirit_102)
В итоге в ListBox ничего не выводится, даже после одного и двух кликов.
Скажите пожалуйста почему?

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TFrame2 = class(TFrame)
    ListBox1: TListBox;
    procedure ListBox1Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SR:TSearchRec;
  Res:Integer;
  dir:string;

implementation

uses Unit1;

{$R *.dfm}

procedure update_lb(path, ext:string);
begin

end;


procedure TFrame2.ListBox1Click(Sender: TObject);
begin
  dir:=GetCurrentDir;
  Res:=FindFirst(dir+'\book',faAnyFile,SR);
  while Res=0 do
  begin
    ListBox1.Items.Add(Sr.Name);
    Res:=FindNext(SR);
  end;
  FindClose(SR);
  end;
end.

[Stilet]

dir:=GetCurrentDir;

Где находится каталог book? Как программа запускается? Если с ярлыка, в котором рабочий каталог настроен то:

  dir:=GetCurrentDir;
  Res:=FindFirst(dir+'\book',faAnyFile,SR);
  if Res<>0 then RaiseLastOSError else
  while Res=0 do

Дабы увидеть текст ошибки.
Если же не с ярлыка то почему не внял рекомендациям Аватара?