Wie bei Änderung des Formats den Ordner wechseln?

[TiGü]

Disclaimer: Die Lösung verwendet diesen Ansatz: https://stackoverflow.com/questions/...16715#36716715.
Mein Beispielcode basiert auf Delphi Sydney, in früheren oder späteren Versionen kann die Anzahl der privaten Felder vor allen für TCustomFileDialog und TOpenDialog abweichen und muss dementsprechend angepasst werden.

Gegeben sei eine Form mit TOpenDialog und Button:

Delphi-Quellcode:

implementation

{$R *.dfm}

uses
  Winapi.ShlObj;

procedure TForm3.Button1Click(Sender: TObject);
begin
  OpenDialog1.Execute(Self.Handle);
end;

type
  TFileDialogWrapperHack = class(TObject)
  protected
    FFileDialog: TCustomFileDialog;
  end;

  TCustomFileDialogHack = class(TComponent)
  private
    FClientGuid: string;
    FDefaultExtension: string;
    FDefaultFolder: string;
    FDialog: IFileDialog;
  end;

  TOpenDialogHack = class(TCommonDialog)
  private
    FHistoryList: TStrings;
    FOptions: TOpenOptions;
    FFilter: string;
    FFilterIndex: Integer;
    FCurrentFilterIndex: Integer;
    FInitialDir: string;
    FTitle: string;
    FDefaultExt: string;
    FFileName: TFileName;
    FFiles: TStrings;
    FFileEditStyle: TFileEditStyle;
    FOnSelectionChange: TNotifyEvent;
    FOnFolderChange: TNotifyEvent;
    FOnTypeChange: TNotifyEvent;
    FOnCanClose: TCloseQueryEvent;
    FOnIncludeItem: TIncludeItemEvent;
    FOptionsEx: TOpenOptionsEx;
    FInternalWrapper: TObject;
  end;

  TOpenDialogHelper = class helper for TOpenDialog
    procedure SetDefaultFolder(const ADefaultFolder: string);
  end;

procedure TOpenDialogHelper.SetDefaultFolder(const ADefaultFolder: string);
var
  FileDialogWrapper: TFileDialogWrapperHack;
  CustomFileDialog: TCustomFileDialog;
  FileDialog: IFileDialog;
  ShellItem: IShellItem;
  HR: HRESULT;
begin
  FileDialogWrapper := TFileDialogWrapperHack(TOpenDialogHack(Self).FInternalWrapper);
  if Assigned(FileDialogWrapper) then
  begin
    CustomFileDialog := FileDialogWrapper.FFileDialog;
    if Assigned(CustomFileDialog) then
    begin
      FileDialog := TCustomFileDialogHack(CustomFileDialog).FDialog;
      if Assigned(FileDialog) then
      begin
        HR := SHCreateItemFromParsingName(PWideChar(ADefaultFolder), nil, IShellItem, ShellItem);
        if Succeeded(HR) then
          FileDialog.SetFolder(ShellItem);
      end;
    end;
  end;
end;

procedure TForm3.OpenDialog1TypeChange(Sender: TObject);
begin
  if Sender is TOpenDialog then
  begin
    case TOpenDialog(Sender).FilterIndex of
      1:
        begin
          TOpenDialog(Sender).SetDefaultFolder('C:\Program Files');
        end;
      2:
        begin
          TOpenDialog(Sender).SetDefaultFolder('C:\Program Files (x86)');
        end;
    end;
  end;
end;

Wer seine Leser in den Wahnsinn treiben will, kann natürlich auch alles ein zwei Zeilen erschlagen:

Delphi-Quellcode:

procedure TOpenDialogHelper.SetDefaultFolder(const ADefaultFolder: string);
var
  ShellItem: IShellItem;
begin
  if Succeeded(SHCreateItemFromParsingName(PWideChar(ADefaultFolder), nil, IShellItem, ShellItem)) then
    TCustomFileDialogHack(TFileDialogWrapperHack(TOpenDialogHack(Self).FInternalWrapper).FFileDialog).FDialog.SetFolder(ShellItem);
end;