Logo Questions Linux Laravel Mysql Ubuntu Git Menu
 

Changing the directory of Delphi OpenDialog

A little background of the program:
The program uses a tabbed interface to work on multiple files at the same time.
I'm trying to change the directory of the OpenDialog so every time I call open a file will show the directory of the file I am working on currently, but even when I set InitialDir to the file's path it always displays the last opened file directory, not the one I am setting it to.
I tried the following:

if Length(CurrentFileName) > 0 then
begin
  OpenFileDialog.InitialDir :='';
  SetCurrentDirectory(PChar(CurrentFileName));
  OpenFileDialog.InitialDir := ExtractFileDir(CurrentFileName);
end;
if OpenFileDialog.Execute then
...

Where CurrentFileName is the full path with the filename of the current tab's opened file. But no luck.

Is there any way to achieve this?

So for example:

tab1 has c:\mydir\file.txt opened
tab2 has d:\someotherdir\somefile.txt opened

If I move to tab1 and call the open function I the OpenDialog should show me the contents of c:\mydir\

I am using Delphi 7. Any help is appreciated.

like image 908
Mr Aleph Avatar asked Oct 25 '10 14:10

Mr Aleph


1 Answers

Here are the rules for Windows Vista and earlier:

  1. If lpstrFile contains a path, that path is the initial directory.
  2. Otherwise, lpstrInitialDir specifies the initial directory.
  3. Otherwise, if the application has used an Open or Save As dialog box in the past, the path most recently used is selected as the initial directory. However, if an application is not run for a long time, its saved selected path is discarded.
  4. If lpstrInitialDir is NULL and the current directory contains any files of the specified filter types, the initial directory is the current directory.
  5. Otherwise, the initial directory is the personal files directory of the current user.
  6. Otherwise, the initial directory is the Desktop folder.

So, if the current FileName property is non-empty, then the InitialDir property is ignored, as is the application's current directory. That fits with what you've observed, so make sure you're clearing the FileName property between uses of your dialog box.

(The rules are different as of Windows 7, and they may foil your plans. If you open a file from the first tab, then open a file from the second tab, another attempt to open a file while the first tab is selected might not display the first tab's directory anymore.)

like image 196
Rob Kennedy Avatar answered Sep 28 '22 08:09

Rob Kennedy