SaveDialog
Мастера подскажите. После завершения работы с SaveDialog
procedure TForm7.N6Click(Sender: TObject);
begin
SavePictureDialog2.InitialDir:='C:\'; //Начальный каталог для диалога сохранения второй диаграммы
SavePictureDialog1.Filter:= 'Графические файлы(*.bmp)|*.bmp|'; //Фильтр для графического файла
If SavePictureDialog2.Execute then //Вызов диалогового окна
И после перехода к другим окнам программа не находит файлы, которые раньше находила. Наверное ищет в той директории, которая осталась после работы с SaveDialog. Как вернуться к поиску по относительному адресу, в папке в которой находится файл *.exe этой программы?
procedure TForm7.N6Click(Sender: TObject);
begin
SavePictureDialog2.InitialDir:='C:\'; //Начальный каталог для диалога сохранения второй диаграммы
SavePictureDialog1.Filter:= 'Графические файлы(*.bmp)|*.bmp|'; //Фильтр для графического файла
If SavePictureDialog2.Execute then //Вызов диалогового окна
И после перехода к другим окнам программа не находит файлы, которые раньше находила. Наверное ищет в той директории, которая осталась после работы с SaveDialog. Как вернуться к поиску по относительному адресу, в папке в которой находится файл *.exe этой программы?
Цитата:
On 2002-02-01 0740, fwp1 wrote
Мастера подскажите. После завершения работы с SaveDialog
procedure TForm7.N6Click(Sender TObject);
begin
SavePictureDialog2.InitialDir='C'; //Начальный каталог для диалога сохранения второй диаграммы
SavePictureDialog1.Filter= 'Графические файлы(*.bmp)|*.bmp|'; //Фильтр для графического файла
If SavePictureDialog2.Execute then //Вызов диалогового окна
И после перехода к другим окнам программа не находит файлы, которые раньше находила. Наверное ищет в той директории, которая осталась после работы с SaveDialog. Как вернуться к поиску по относительному адресу, в папке в которой находится файл *.exe этой программы?
Если ты хочеш вернуться в папку где лежит твой *.ехе файл то. Попробуй так
s=ExtractFilePath(Application.ExeName);//где твоя прога
ChDir(s);//перейти