[Ankor]

Всем привет.

Подскажите пожалуйста, как сделать, чтобы при вызове OpenDialog1,
открывалась указанная папка, которая лежит в каталоге программы?

Что ни делаю, а открывается всё время старое, запомнившееся окно.

[NumLock]

Код:

  OpenDialog1.InitialDir:='c:\Program Files\Borland\Delphi7\Demos';
  if OpenDialog1.Execute then

[Ankor]

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

Код:

  OpenDialog1.InitialDir:='c:\Program Files\Borland\Delphi7\Demos';
  if OpenDialog1.Execute then

Может я не так делаю?

Код:

 OpenDialog1.InitialDir:='Images';
  if OpenDialog1.Execute then 

Папка Images у меня лежит вместе с программой.
При вызове OpenDialog открывается старое окно, всегда одно и тоже, может предыдущее открывание как-то стирать надо

[NumLock]

укажи полный путь

[Ankor]

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

укажи полный путь

Надо, чтобы из каталога программы открывала.
Если её на другом компе откроют например, там путь и другой может быть.

Смысл в том, чтобы OpenDialog1 всегда открывался в папке, лежащей в каталоге с программой.

[dr. F.I.N.]

OpenDialog1.InitialDir:=ExtractFilePath(Applicatio n.ExeName) + '\Images';

[NumLock]

укажи полный путь каталога из которого запущена программа с конкатенацией дочернего каталога

[Ankor]

В общем, как открывала последний диалог, так и открывает.
Папку, лежащую в каталоге с программой, задать не могу, чтобы она по умолчанию в OpenDialog открывалась.

Предыдущая открытая папка наверно как-то запоминается, она всё время везде и открывается, даже в новых созданных приложениях.
Вопрос остаётся открытым.

[NumLock]

запусти http://zalil.ru/33145277

[Ankor]

Запустил, открывается папка 'закрытая школа'.(исходника нет))

Вот мне надо, чтобы открывалась моя папка, вложенная в каталог программы, в ней содержатся ещё много папок, в которых Image и txt файлы, под одним именем.
Потом при выборе одной из вложенных папок, должны автоматом открыться Image и txt файл, лежащих в последней выбранной папке.

[NumLock]

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

открывается папка 'закрытая школа'

ну т.е. работает все-таки))) исходник:

Код:

type
  TForm1 = class(TForm)
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
...
procedure TForm1.FormCreate(Sender: TObject);
begin
  ForceDirectories('c:\сериалы\закрытая школа\');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  OpenDialog1.InitialDir:='c:\сериалы\закрытая школа\';
  if OpenDialog1.Execute then Sleep(0);
end;

кста, папку "c:\сериалы" у себя удали

[Ankor]

Спасибо, я так понял, что путь надо задавать, начиная с диска(у Вас с С).
Вложенную в программу папку получается открывать напрямую нельзя.
А если на другом компе открывать,если диск будет не C а D, или ещё какой, тогда как быть?

[NumLock]

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

укажи полный путь каталога из которого запущена программа с конкатенацией дочернего каталога

т.е. :

Код:

  OpenDialog1.InitialDir:=ExtractFilePath(Application.ExeName)+'Bpl';
  if OpenDialog1.Execute then

красным замени на свое!

[Ankor]

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

[PS11011010]

Странно, а почему про getcurrentdir; никто не вспомнил?